Conection String conectar o VB com o PostgreSql.

Dim BancoSQL As ADODB.Connection Dim rstConsulta As ADODB.Recordset Dim Conexao As String Conexao = "Provider=MSDASQL.1;Persist Security Info=False;User ID=Antonio;Data Source=PostgreSQL" Set BancoSQL = New ADODB.Connection BancoSQL.CursorLocation = adUseClient BancoSQL.ConnectionTimeout = 30 BancoSQL.Open Conexao Set rstConsulta = New ADODB.Recordset rstConsulta.Source = "SELECT * FROM " & Chr(34) & "Nomes" & Chr(34) Set rstConsulta.ActiveConnection = BancoSQL rstConsulta.LockType = adLockOptimistic rstConsulta.CursorType = adOpenKeyset rstConsulta.Open While rstConsulta.EOF <> True List1.AddItem rstConsulta("sNome") rstConsulta.MoveNext Wend rstConsulta.Close BancoSQL.Close Set rstConsulta = Nothing Set BancoSQL = Nothing

Quebra-Linha

Colaborador..: Douglas Freire
Categoria(s).: Visual Basic;
Data.........: 17/03/2006 15:00:05
Visualizado..: 6052 vezes
Fonte........: Madmax....