Inquiridor
Como fazer para pesquisar Nome do cadastro atravez do comando select

Pergunta
-
galera boa tarde voces tao bem? bom estou querendo fazer uma pesquisar de nomes de cadastro atraz do campo combo box onde eu digito o nome e aparece as informacao nos text box segue do codigo
Private Sub PCarregaDadosNomes()
Using con As OleDbConnection = geetConectionCadClientesFotos()
Try
con.Open()
Dim sql As String = "SELECT nome FROM usuarios WHERE codigo="
Dim cmd As OleDbCommand = New OleDbCommand(sql, con)
Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmd)
Dim dt As DataTable = New DataTable
da.Fill(dt)
cmbPesquisar.DataSource = dt
Catch ex As Exception
MsgBox(ex.Message)
Finally
con.Close()
End Try
End Using
End Sub
XD
- Editado jose_down sexta-feira, 3 de março de 2017 19:22
Todas as Respostas
-
Private Sub PCarregaDadosNomes()
Using con As OleDbConnection = geetConectionCadClientesFotos()
Try
con.Open()
Dim sql As String = "SELECT nome FROM usuarios WHERE codigo= @codigo"
Dim cmd As OleDbCommand = New OleDbCommand(sql, con)
cmd.Parameters.AddWithValue("@codigo", 1001)
Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmd)
Dim dt As DataTable = New DataTable
da.Fill(dt)
cmbPesquisar.DataSource = dt
Catch ex As Exception
MsgBox(ex.Message)
Finally
con.Close()
End Try
End Using
End Sub -
-
-