Bom galera eu consegui fazer essa consulta para meu BD em ACCES so que esta dando erro na seguinte linha
strconn = control.ConnectionString o que sera
aqui o codigo completo.
'Declarando um Objeto do Tipo conection para se conectar ao Banco
Dim cn As New ADODB.Connection
'Esse o o nosso Recordset ele será responsavel por
'manipular os Dados na nossa Aplicacao
Dim rs As New ADODB.Recordset
Private Sub txt_codigo_de_barras_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
strconn = control.ConnectionString
'Pegando a mesma string de conexão que vc usou no controle
'abrindo a Conexao....
cn.Open strconn
'Criando a instancia do Record Set
Set rs = New ADODB.Recordset
'Variavel que vai Armazenar a consulta ..
Dim strSQL As String
strSQL = " SELECT * "
strSQL = strSQL & " FROM Entrada "
strSQL = strSQL & " WHERE Codigo_de_Brarras = " & txt_codigo_de_barras.Text
'Executando a Consulta no Banco de Dados...Onde
'Cn = é a Conexão com o Banco
'adOpenForwardOnly = é o Cursor que vai percorrer os Dados nesse ele ira so ler dados pra frente
'adLockReadOnly = Tipo de Trava do recordSet quer dizer que vc nao pode atualizar dados nele somente ler
Set rs = cn.Execute(strSQL)
'Esse Comando "prende" o Objeto e vc pode usar apenas ponto para as propriedades dele
With rs
'Verificando se Retornou algo, Caso seja EOF (end of File) nao veio nada na Consulta
If Not .EOF Then
'Primeiro modo de retornar dados de um Rs
txt_nome.Text = !nome
txt_valor.Text = .Fields("Valor")
End If
End With
cn.Close
End If
End Sub
Agradeço quem puder me ajudar pois ja estou atras disaso a tempos..
fallow lcs
Cara posta aí qual é o erro que está dando.... porque pode ser a tipagem de dados que não está correta...
Faço conecção de forma bastante diferente, mas poderia ser....
E também nesse código você não declarou strconn para verificar qual é o seu tipo.