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
|