PREENCHIMENTO DE TEXTBOX
Olá Pesoal
é possÃvel que ao digitar um número em uma textbox, preencha automaticamente outra textbox do mesmo formulário com um valor contido em uma célula datagridview de outro formulário
Um abraço a todos
é possÃvel que ao digitar um número em uma textbox, preencha automaticamente outra textbox do mesmo formulário com um valor contido em uma célula datagridview de outro formulário
Um abraço a todos
Boa tarde!
Pesquisando na internet, os créditos vão para DoctorKaos, consegui resolver usando um dataReader com o código a seguir:
Private Sub txtCodigoCategoria_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtCodigoCategoria.KeyPress
If e.KeyChar = Chr(13) Then
Dim con As New System.Data.SqlClient.SqlConnection([Ô]Data Source=SAN-PC;Initial Catalog=OBoteco;Integrated Security=True[Ô])
Dim com As New System.Data.SqlClient.SqlCommand(String.Format([Ô]SELECT * FROM TB_Categoria WHERE idCategoria = {0}[Ô], txtCodigoCategoria.Text), con)
Dim dr As System.Data.SqlClient.SqlDataReader
con.Open()
dr = com.ExecuteReader
If dr.HasRows Then
dr.Read()
txtDescricaoCategoria.Text = dr(1).ToString
txtSubCategoria.Text = dr(2).ToString
dr.Close()
End If
con.Close()
Else
Exit Sub
End If
End Sub
Espero que seja útil.
Pesquisando na internet, os créditos vão para DoctorKaos, consegui resolver usando um dataReader com o código a seguir:
Private Sub txtCodigoCategoria_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtCodigoCategoria.KeyPress
If e.KeyChar = Chr(13) Then
Dim con As New System.Data.SqlClient.SqlConnection([Ô]Data Source=SAN-PC;Initial Catalog=OBoteco;Integrated Security=True[Ô])
Dim com As New System.Data.SqlClient.SqlCommand(String.Format([Ô]SELECT * FROM TB_Categoria WHERE idCategoria = {0}[Ô], txtCodigoCategoria.Text), con)
Dim dr As System.Data.SqlClient.SqlDataReader
con.Open()
dr = com.ExecuteReader
If dr.HasRows Then
dr.Read()
txtDescricaoCategoria.Text = dr(1).ToString
txtSubCategoria.Text = dr(2).ToString
dr.Close()
End If
con.Close()
Else
Exit Sub
End If
End Sub
Espero que seja útil.
Tópico encerrado , respostas não são mais permitidas