none
realizar un SELEC y enviar resultados a textboxs RRS feed

  • Pregunta

  • Hola compañeros, el siguiente codigo que les dejo sirve para capturar los valores de una tabla buscando como condicion el valor del campo cedula y en via el resultado a un datagrid

     

    Dim cn As New SqlConnection("Data Source=...........")
        Dim ad As New SqlDataAdapter()
        Dim ds As New DataSet
        Dim cmd As New SqlCommandBuilder(ad)

     

    ad.SelectCommand = New SqlCommand("SELECT Cedula, Presentacion FROM (Examenes) WHERE  (Cedula = '" & Me.TextBox1.Text & "')", cn)
    ad.Fill(ds, "Examenes")

    DG.DataSource = ds.Tables(0)

     

     

    Mi pregunta es como se realiza un comando select en ADO y mostrar los resultados en cajas de textos

    viernes, 1 de abril de 2011 20:15

Respuestas

  • hola

    usa algo como esto

     

    Dim cn As New SqlConnection("Data Source=...........")

    Dim query As String = "SELECT Cedula, Presentacion FROM Examenes WHERE  Cedula = @cedula"
    Dim cmd As New SqlCommand(query, cn)
    cmd.Parameters.AddWithValue("@cedula", Me.TextBox1.Text)

    Dim da As New SqlDataAdapter(cmd)
    Dim dt As New DataTable
    Dim cmdbuilder As New SqlCommandBuilder(da)
    da.Fill(dt)

    If Not (dt.Rows.Count = 0) Then
        Dim row As DataRow = dt.Rows(0)
       
        TextBox1.Text = CStr(row("Cedula"))
        TextBox2.Text = CStr(row("Presentacion"))

    End If

     

     

    saludos


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina
    viernes, 1 de abril de 2011 20:28

Todas las respuestas

  • hola

    usa algo como esto

     

    Dim cn As New SqlConnection("Data Source=...........")

    Dim query As String = "SELECT Cedula, Presentacion FROM Examenes WHERE  Cedula = @cedula"
    Dim cmd As New SqlCommand(query, cn)
    cmd.Parameters.AddWithValue("@cedula", Me.TextBox1.Text)

    Dim da As New SqlDataAdapter(cmd)
    Dim dt As New DataTable
    Dim cmdbuilder As New SqlCommandBuilder(da)
    da.Fill(dt)

    If Not (dt.Rows.Count = 0) Then
        Dim row As DataRow = dt.Rows(0)
       
        TextBox1.Text = CStr(row("Cedula"))
        TextBox2.Text = CStr(row("Presentacion"))

    End If

     

     

    saludos


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina
    viernes, 1 de abril de 2011 20:28
  • Leandro muchisimas gracias! funciono perfectamente, te ganastes un espacio en los agradecimientos de mi Tesis de grado (:
    viernes, 1 de abril de 2011 20:43