NAO CONSIGO CONECTAR APLICATIVO VB6 DB2 WINDOW

FGIRO 21/09/2012 10:06:22
#410143
Pessoal, desativei o UAC e depois instalei aplicativo VB6 e o client do db2. Quando executa o comando open da conexão dá o seguinte erro: [Ô]Run-time erro 3706: Porvedor não encontrado. é possível que ele não esteja instalado corretamente[Ô] . Abaixo segue a lógica da tela:

Private Sub Command1_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim i As Integer
Dim con As ADODB.Connection
Dim objConexao As New ADODB.Connection
Dim objComando As New ADODB.Command
Dim strConnection As String
Dim strConnectionSCR As String
Dim objError As ADODB.Error
Dim strSQL As String

On Error GoTo trataerro

Set rs = New ADODB.Recordset

Set con = New ADODB.Connection

strConnection = [Ô]IBMDADB2;Persist Security Info=True;User ID=SBEAT;Password=TAEBS;Data Source=DBRCTID[Ô]

Set objConexao = Nothing
Set objConexao = New ADODB.Connection

objConexao.CursorLocation = adUseClient [ô]adUseServer
objConexao.Provider = strConnection
objConexao.CommandTimeout = 30000
objConexao.ConnectionTimeout = 30000
objConexao.Open

strSQL = [Ô] select * from RIOCARDD.SBE_MOEDA[Ô]

rs.Open strSQL, objConexao

If Not rs.EOF Then
List1.AddItem rs.Fields([Ô]CD_MOEDA[Ô])
Else
List1.AddItem [Ô]Registro não encontrado[Ô]
End If

rs.Close
Set rs = Nothing

Exit Sub

Em outro aplicativo dá a seguinte mensagem: [Ô]Não foi possível estabelecer conexão com o banco de dados[Ô]. Alguém poderia me ajudar?
MARCELO.TREZE 21/09/2012 11:18:05
#410157
veja esta conexão bem sucedida

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


fonte: http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=352936
Tópico encerrado , respostas não são mais permitidas
Voltar