USUÁRIO:
SENHA:
SALVAR LOGIN ?
Fórum
Visual Basic
Responder
Voltar
Autor
Assunto:
Erro PostgreSQL com VB6
Zork
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 11/11/2010 12:11 hs
Boa tarde
Pessoal alguem ja teve esse erro no VB 6 com PostgreSQL ?
Query returned unhandled type 18 ???
Meus Driver odbc estao OK.
O codigo que gera o erro é esse
Private Sub Command1_Click()
Set rslogin = New ADODB.Recordset
sql = "Select usuario from tbl_Login"
rslogin.Open sql, cnBanco, adOpenStatic, adLockOptimistic
MsgBox (rslogin!nome)
end sub
Zork
SÃO PAULO
SP - BRASIL
Postada em 11/11/2010 12:58 hs
Pessoal uso o Windows 7 64 bits
Tenho uma VM com o XP e deu certo o codigo.
Ele deu o erro no topico acima com o Sevem 64bits
Alguem sabe como contornar????
Juan Carlos R.A
MACEIO
AL - BRASIL
Postada em 11/11/2010 15:14 hs
tenta com Ado:
Private Sub Command1_Click()
dim cn as new adodb.conection
dim rslogin as New ADODB.Recordset
set rslogin=cn.execute( "Select usuario from tbl_Login")
MsgBox (rslogin!nome)
end sub
Zork
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 11/11/2010 15:58 hs
Juan estou usando ADO kkkkk
Juan Carlos R.A
MACEIO
AL - BRASIL
ENUNCIADA !
Postada em 11/11/2010 16:36 hs
ADO com isso ?
slogin.Open sql, cnBanco, adOpenStatic, adLockOptimistic
vc pode colocar aqui como conecta oa banco? acho que vc usa Dao
Zork
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 12/11/2010 09:06 hs
Juan criei um BAS para fazer a conexao com o banco da uma olhada.
Public cnBanco As ADODB.Connection
Public Tabela As ADODB.Recordset
'Variaveis de controle do Formulário LOGIN
Public UsuarioLogado As String
Public Sub AbreCon()
Set cnBanco = New ADODB.Connection
Set Tabela = New ADODB.Recordset
cnBanco.ConnectionString = "Provider=PostgreSQL OLE DB Provider;Data Source=xxxxxxxx;location=xxxxxx;User ID=xxxxx;password=xxxxx;"
cnBanco.Open
End Sub
Lembrando que funciona normal no XP, porem no SEVEN 64 Bits nao rola
Página(s): 1/2
PRÓXIMA »
Seu Nome:
Seu eMail:
ALTERAR PARA MODO HTML
Mensagem:
[:)] =
[:P] =
[:(] =
[;)] =
HTML DESLIGADO
VOLTAR
CyberWEB Network Ltda. © Copyright 2000-2024 - Todos os direitos reservados.
Powered by
HostingZone -
A melhor hospedagem para seu site