Gente estou tentando fazer uma conexão ADO em VB 6.0 só que estou tendo dificuldades pois estou aprendendo sozinho, por isto estou solicitando ajuda de como faze-lo, tipo:

 

Public Sub Abre_Banco()
 
  Dim Con As ADODB.Recordset
  Dim db As ADODB.Connection
  'On Error Resume Next
  Set db = New ADODB.Connection
 
  db.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:RafaelVBDeluxecd.mdb")
  Exit Sub
  If Err.Number <> 0 Then
    MsgBox "Não foi possível abrir o banco", vbOKOnly, "AVISO"
  End If
End Sub

 

Eu utilizei esta sub para abrir meu banco está certo? Mas mesmo assim eu não sei como é que se faz para eu setar um Recordset para fazer consulta no banco... Para informação estou fazendo Técnico em informática tenho noções de C#, Delphi, Java e outros mas estou muito interessado em VB por gentileza me ajudem. Muito agradecido.

Tente

 

Ele le o cliente que tenha codigo = 1

con.Open "Select * from cliente where cod_cliente = 1 ", arq, adOpenStatic

txt_cliente = con.Fields("cod_cliente").value

txt_nome = con.Fields("nome").value

con.Open "Select * from cliente where cod_cliente < 100 and situacao = 1 ", arq, adOpenStatic

Le cliente com codigo < 100 e o campo de situacao = 1

segue algumas dicas q vaum te ajudar agora e mais pra frente....

agora:

mais pra frente

 

lah vai mais uma dica... da uma consultada na seção de dicas.... lah vai ter sempre otimas dicas...

 

[]'s

cadu

 

Amigo, veja também este link:

 

 

Pegue o arquivo: