CONEXAO DB2

NETMANIA 14/09/2010 13:52:07
#352962 Resposta escolhida

Segundo o site Connectiom Strings (www.connectionstrings.com), a string de conexão é a seguinte:

Driver={IBM DB2 ODBC DRIVER};Database=myDataBase;Hostname=myServerAddress;Port=1234; Protocol=TCPIP;Uid=myUsername;Pwd=myPassword;

IMPORTANTE: Só vai funcionar se você tiver instalado o driver de ODBC do DB2 instalado no equipamento que tentará acessar o DB2.

MARCIOR 15/09/2010 15:22:00
#353040

obrigado netmania. mas ainda não sai do chão.

nexo envio arquivo que retirei do planet source, mas o mesmo não têm a informação de porta de conexão.

alguem têm algum exemplo desta conexão

MARCIOR 16/09/2010 22:13:07
#353174

como poderia, mudar/adequar a conexão abaixo para uma conexão db2

Private Sub Main()
Dim strArquivo As String
Dim strLocal As String
Dim ConectaAccess As String

Dim caminhoTeste As String

Load MDIForm1
MDIForm1.Show


DoEvents
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

strArquivo = [Ô]BDPedido.mdb[Ô]

strLocal = [Ô]C:\PROJETOS\base\[Ô] [ô]App.Path

Set cn = CreateObject([Ô]ADODB.Connection[Ô])
ConectaAccess = [Ô]Driver={Microsoft Access Driver (*.mdb)};[Ô] & _
[Ô]Dbq=[Ô] & strArquivo & [Ô];[Ô] & _
[Ô]DefaultDir=[Ô] & strLocal & [Ô];[Ô] & _
[Ô]Uid=Admin;Pwd=;[Ô]

cn.Open ConectaAccess
End Sub

e sobre o driver como posso verificar se já não possuo instalado?

XXXANGELSXXX 18/09/2010 12:07:17
#353297

para verificar se tem o driver instalado, vai no painel de controle/Ferramentas administrativas/fonte de dados ODBC

MARCIOR 23/09/2010 14:39:19
#353686

ok Angels, verifiquei e instalei.

já testei a no drive e conexão e está OK, mas estou com um problema na conexão no vb. mensagem de erro:

[IBM]CLI Driver] SQL1031N o Diretório de bancos de dados não foi localizado no sistema de arquivos indicado. SQLSTATE=58031.

MARCIOR 04/12/2010 17:22:43
#358797

Conectado!!!.

Global cn As ADODB.Connection
Global rs As ADODB.Recordset

Private Sub Main()
Dim i As Integer
Dim con As ADODB.Connection

Set rs = New ADODB.Recordset

Set con = New ADODB.Connection
con.Open [Ô]Driver={IBM DB2 ODBC DRIVER};Database=NOMEBANCO;Hostname=111.22.33.222;Port=35000; Protocol=TCPIP;Uid=yyy0001;Pwd=senha;[Ô]
MsgBox [Ô]Conectado![Ô]

Load Form1
Form1.Show

[ô]con.Close

[ô]
rs.Open [Ô]select * from xxx.tabela where Campocliente=[Ô] & [Ô]0001[Ô] & [Ô][Ô], con, adOpenKeyset, adLockOptimistic

Do While Not rs.EOF
For i = 0 To 26
Form1.List1.AddItem IIf(IsNull(rs.Fields(i).Name), Empty, rs.Fields(i).Name) & [Ô] > [Ô] & IIf(IsNull(rs.Fields(i).Value), Empty, rs.Fields(i).Value)
Next
rs.MoveNext
Loop

End Sub