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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  VB6 + Access 2000
cfgonsalves
BETIM
MG - BRASIL
Postada em 11/01/2007 18:52 hs         
Pessoal boa noite,

Estou desenvolvendo uma aplicação VB6 + Access 2000 e estou tendo uma dificuldade.
Estou utilizando conexão ADO e quando vou incluir um registro no banco de dados, ocorre o seguinte erro:
Run time error 13: Type mismatch
O curioso é que o registro é gravado no banco, apesar do erro.
Alguém pode me ajudar a resolver este problema?
Abaixo o código fonte para

Public Sub AbreConexao()
    Dim slcaminho As String
    slcaminho = App.Path & "DBFINANCEIRO.mdb"

    Set conexao = New ADODB.Connection
  
    
    conexao.ConnectionString = " Provider = microsoft.jet.oledb.4.0;" & _
    "data source=" & slcaminho

    conexao.Open
End Sub

Private Sub gravar(operacao As String)
    Select Case operacao
        Case "I"
            sgquery = "insert into banco(CODBANCO,NOMEBANCO,ATIVO) " & vbCr & _
            "values('" & Trim(mskcodbanco) & "','" & Trim(Txtnomebanco) & "','" & IIf(Chkativo = 1, "S", "N") & "')"
            Set rs = conexao.Execute(sgquery)
        Case "A"
            sgquery = "update banco set NOMEBANCO = '" & Trim(Txtnomebanco) & "',ATIVO =  '" & IIf(Chkativo = 1, "S", "N") & "'" & vbCr & _
            "where CODBANCO = '" & Trim(mskcodbanco) & "'"
            Set rs = conexao.Execute(sgquery)
    End Select
End Sub
     
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 11/01/2007 20:34 hs            
não sei extamente onde o erro acontece mas tenta substituir esta linha:
 
Set rs = conexao.Execute(sgquery)
por esta
 
conexao.Execute sgquery
     
cfgonsalves
BETIM
MG - BRASIL
Postada em 13/01/2007 10:01 hs         
Funcionou

Valeu!!!!!!


     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página