Trazer dados do banco access

[kassio07]

E ai pessoal sou novo em programação VBA, e gostaria de saber como posso trazer os dados de um select do banco de dados e exibir esses dados buscados em um formulário via VBA? já fiz a conexão e tudo mais, mas não sei como exibir essas informações. O código q eu to usando é esse:

Private Sub but_ok_Click()
    Dim db As New ADODB.Connection
    Dim rs As New ADODB.Recordset

    Dim entrada As String
    
    entrada = text_busca.Text
    
    If IsNumeric(entrada) Then
       MsgBox "Digite somente Letras!", vcCritical, "Erro"
       text_busca = ""
    Else
       db = abrirCon
       db.Open
    
       Sql = "SELECT Nome_Agencia, Tempo_Contrato FROM Agencias WHERE Nome_Agencia = entrada"
      
       'text_cidade = Nome_Agencia.Value
       'text_contrato = Tempo_Contrato.Value
    End If
End Sub

Editado Maio 15, 2012 por kassio07

[leandroalvespires]

Cara eu tb sou novo, mas consegui fazer isso, vou mandar meu exemplo, peguei de alguns forum e comecei a adaptar, caso tenha alguma duvida me made um email para podermos discutir, tb quero aprender mais, assim podemos dar uma ajuda um para o outro (meu email: leandroalvespires@hotmail.com).

Boa sorte

Abraço

Private Sub CommandButton1_Click()

Dim sql As String

Dim cn As ADODB.Connection

Dim rs As ADODB.Recordset

Dim i As Integer

Set cn = New ADODB.Connection

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:/manutencao/controlemanutencao.mdb"

cn.Open

Set rs = New ADODB.Recordset

sql = "SELECT os,data,turno"

sql = sql & " FROM (controlemanutencao)"

rs.Open sql, cn

i = 2

If Not rs.EOF Then

Do While Not rs.EOF

Range("A" & i).Value = rs(0)

Range("B" & i).Value = rs(1)

Range("C" & i).Value = rs(2)

rs.MoveNext

i = i + 1

Loop

End If

cn.Close

End Sub

E ai pessoal sou novo em programação VBA, e gostaria de saber como posso trazer os dados de um select do banco de dados e exibir esses dados buscados em um formulário via VBA? já fiz a conexão e tudo mais, mas não sei como exibir essas informações. O código q eu to usando é esse:

Private Sub but_ok_Click()
    Dim db As New ADODB.Connection
    Dim rs As New ADODB.Recordset

    Dim entrada As String
    
    entrada = text_busca.Text
    
    If IsNumeric(entrada) Then
       MsgBox "Digite somente Letras!", vcCritical, "Erro"
       text_busca = ""
    Else
       db = abrirCon
       db.Open
    
       Sql = "SELECT Nome_Agencia, Tempo_Contrato FROM Agencias WHERE Nome_Agencia = entrada"
      
       'text_cidade = Nome_Agencia.Value
       'text_contrato = Tempo_Contrato.Value
    End If
End Sub

Editado Maio 19, 2012 por leandroalvespires

[benzadeus]

http://social.msdn.microsoft.com/Forums/pt...a7-602bf3a0f4c6

[sagui_surfista]

Olá pessoal,

Tenho este mesmo problema, preciso trazer uma informação do banco de dados e grava-la na váriavel declarada no meu código porém está dando erro, estou tentando buscar o valor do campo Bd_Segmento da minha ase de dados e gravar na variável txtSegmento mas retorna erro "Run time error 424 - Object required"

Meu código está assim:

 

'INICIO

Dim txtSegmento As String

Call OpenConn

Set rs = conn.Execute("SELECT Bd_Segmento, Bd_Head, Bd_Especialista_Cash " & _
                                  "FROM tbl_Clientes " & _
                                  "WHERE Bd_Grupo = '" & Grupo & "' ")

txtSegmento = Bd_Segmento.Value

Call CloseConn

'FIM

 

 

[sagui_surfista]

Consegui resolver, fiz o seguinte:

 

 

Dim txtSegmento As String

Call OpenConn

Set rs = conn.Execute("SELECT Bd_Segmento, Bd_Head, Bd_Especialista_Cash " & _
                                  "FROM tbl_Clientes " & _
                                  "WHERE Bd_Grupo = '" & Grupo & "' ")

If rs.EOF And rs.BOF Then
         'Do Nothing
    Else
        rs.MoveFirst
        txtSegmento = rs!Bd_Segmento
            
      End If
     
    rs.Close

'--------FIM--------

Após isso a variavel txtSegmento recebeu o valor que estava na coluna Bd_segmento do Access

 

 

 

[Patropi]

sagui_surfista

Obrigado por compartilhar a solução.

[]s