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

 

  Fórum

  Visual Basic
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
Pontos: 2843
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
Pontos: 2843
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
Topo da página