problema con mi consulta
Publicado por NEID (10 intervenciones) el 27/01/2010 23:27:19
tengo una consulta individual campo por campo pero hay dos campos que no me muestra, en que me habre equivocado si yo veo los códigos =
Dim conexion As New SqlConnection
Dim adapter As New SqlDataAdapter("select * from tbl_ganadoca where num_tatuaje='" & TextBox1.Text & "'", conexion)
Dim data As New DataSet
Dim valida As Integer
Dim comando As New SqlCommand("select count(*) from tbl_ganadoca where num_tatuaje ='" & Me.TextBox1.Text & "'", conexion)
conexion.ConnectionString = str_conexion
If Me.TextBox1.Text = "" Then
MessageBox.Show("Por favor ingrese el número de tatuaje para poder modificar el registro", "Error en el número de tatuaje", MessageBoxButtons.OK, MessageBoxIcon.Information)
Me.TextBox1.Focus()
Return
End If
Try
conexion.Open()
valida = CInt(comando.ExecuteScalar)
If valida = 1 Then
'---------------------------------------------------------------------------
If IsDBNull(data.Tables(0).Rows(0).Item("num_tatuaje")) Then
TextBox1.Text = ""
Else
TextBox1.Text = data.Tables(0).Rows(0).Item("num_tatuaje")
End If
'---------------------------------------------------------------------------
If IsDBNull(data.Tables(0).Rows(0).Item("fecha_nac")) Then
MaskedTextBox1.Text = ""
Else
MaskedTextBox1.Text = data.Tables(0).Rows(0).Item("fecha_nac")
End If
'---------------------------------------------------------------------------
If IsDBNull(data.Tables(0).Rows(0).Item("fecha_inseminacion")) Then
MaskedTextBox7.Text = ""
Else
MaskedTextBox7.Text = data.Tables(0).Rows(0).Item("fecha_inseminacion")
End If
'---------------------------------------------------------------------------
If IsDBNull(data.Tables(0).Rows(0).Item("no_toro_donante")) Then
TextBox5.Text = ""
Else
TextBox5.Text = data.Tables(0).Rows(0).Item("no_toro_donante")
End If
'---------------------------------------------------------------------------
If IsDBNull(data.Tables(0).Rows(0).Item("fecha_compra")) Then
MaskedTextBox2.Text = ""
Else
MaskedTextBox2.Text = data.Tables(0).Rows(0).Item("fecha_compra")
End If
etc etc, me muestra todos los campos menos fecha_inseminacion y no_toro_donante que pasará ayuda please
Dim conexion As New SqlConnection
Dim adapter As New SqlDataAdapter("select * from tbl_ganadoca where num_tatuaje='" & TextBox1.Text & "'", conexion)
Dim data As New DataSet
Dim valida As Integer
Dim comando As New SqlCommand("select count(*) from tbl_ganadoca where num_tatuaje ='" & Me.TextBox1.Text & "'", conexion)
conexion.ConnectionString = str_conexion
If Me.TextBox1.Text = "" Then
MessageBox.Show("Por favor ingrese el número de tatuaje para poder modificar el registro", "Error en el número de tatuaje", MessageBoxButtons.OK, MessageBoxIcon.Information)
Me.TextBox1.Focus()
Return
End If
Try
conexion.Open()
valida = CInt(comando.ExecuteScalar)
If valida = 1 Then
'---------------------------------------------------------------------------
If IsDBNull(data.Tables(0).Rows(0).Item("num_tatuaje")) Then
TextBox1.Text = ""
Else
TextBox1.Text = data.Tables(0).Rows(0).Item("num_tatuaje")
End If
'---------------------------------------------------------------------------
If IsDBNull(data.Tables(0).Rows(0).Item("fecha_nac")) Then
MaskedTextBox1.Text = ""
Else
MaskedTextBox1.Text = data.Tables(0).Rows(0).Item("fecha_nac")
End If
'---------------------------------------------------------------------------
If IsDBNull(data.Tables(0).Rows(0).Item("fecha_inseminacion")) Then
MaskedTextBox7.Text = ""
Else
MaskedTextBox7.Text = data.Tables(0).Rows(0).Item("fecha_inseminacion")
End If
'---------------------------------------------------------------------------
If IsDBNull(data.Tables(0).Rows(0).Item("no_toro_donante")) Then
TextBox5.Text = ""
Else
TextBox5.Text = data.Tables(0).Rows(0).Item("no_toro_donante")
End If
'---------------------------------------------------------------------------
If IsDBNull(data.Tables(0).Rows(0).Item("fecha_compra")) Then
MaskedTextBox2.Text = ""
Else
MaskedTextBox2.Text = data.Tables(0).Rows(0).Item("fecha_compra")
End If
etc etc, me muestra todos los campos menos fecha_inseminacion y no_toro_donante que pasará ayuda please
Valora esta pregunta
![Me gusta: Está pregunta es útil y esta clara Me gusta: Está pregunta es útil y esta clara](/img/img.png?11.51)
![NO me gusta: Está pregunta no esta clara o no es útil No me gusta: Está pregunta no esta clara o no es útil](/img/img.png?11.51)
0