USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Banco de Dados)

Título da Dica:  Acessa o banco de dados (contatos) do outlook
Postada em 4/2/2004 por Rochª            
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim i As Long

Set con = New ADODB.Connection
Set rs = New ADODB.Recordset

With con
.ConnectionString = "Provider=Microsoft.JET.OLEDB.4.0;" & _
                            "Exchange 4.0;" & _
                            "MAPILEVEL=Outlook Address Book\;" & _
                            "PROFILE=Outlook;" & _
                            "TABLETYPE=1;" & _
                            "DATABASE=c:\temp" 'Folder do diretorio do banco
.Open
End With

With rs
        Set .ActiveConnection = con
        .CursorType = adOpenStatic
        .LockType = adLockReadOnly
        .Open "Select * from [Contacts]"
        .MoveFirst
                
        Do While Not rs.EOF
            For i = 0 To rs.Fields.Count - 1
                Debug.Print rs(i).Name + vbTab + Format(rs(i).value)
            Next i
                    
            rs.MoveNext
        Loop
        
        .Close
End With

Set rs = Nothing
con.Close
Set con = Nothing
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página