ERRO AO ABRIR A TABELA RUN TIME ERROR 13
OLA GALERA BLZ?
AO ABRIR A TABELA PELO MéTODO MAIS SIMPLES,, DAO,
RD = DB.OPENRECORDSET([Ô]TABELA[Ô],VBDYNASET), E USANDO O ACEES 2000,
ENFIM, ESTA ACONTECENDO O ERRO 13 - TYPE MISMATCH
TENHO ACERTEZA QUE MEU COMANDO E AS REFERENCIAS USADAS ESTAO CERTOS, ENTÃO QUAL PODE SER O PROBLEMA??
ABRAÇOS
AO ABRIR A TABELA PELO MéTODO MAIS SIMPLES,, DAO,
RD = DB.OPENRECORDSET([Ô]TABELA[Ô],VBDYNASET), E USANDO O ACEES 2000,
ENFIM, ESTA ACONTECENDO O ERRO 13 - TYPE MISMATCH
TENHO ACERTEZA QUE MEU COMANDO E AS REFERENCIAS USADAS ESTAO CERTOS, ENTÃO QUAL PODE SER O PROBLEMA??
ABRAÇOS
meu codigo esta assim...
Dim db As Database
Dim ds As DAO.Recordsets
Set db = OpenDatabase(App.Path & [Ô]\dados.MDB[Ô], False, False, [Ô];pwd=admin[Ô])
Set ds = db.OpenRecordset([Ô]SELECT * FROM ITEMNFe WHERE chave =[ô][Ô] & varnumero & [Ô][ô] and item =[Ô] & x + 1, dbOpenDynaset)
If Not IsNull(ds!infComplementares) Then
Print #1, [Ô] <infAdProd>[Ô] & ds!infComplementares & [Ô]</infAdProd>[Ô]
End If
Print #1, [Ô] </det>[Ô]
Dim db As Database
Dim ds As DAO.Recordsets
Set db = OpenDatabase(App.Path & [Ô]\dados.MDB[Ô], False, False, [Ô];pwd=admin[Ô])
Set ds = db.OpenRecordset([Ô]SELECT * FROM ITEMNFe WHERE chave =[ô][Ô] & varnumero & [Ô][ô] and item =[Ô] & x + 1, dbOpenDynaset)
If Not IsNull(ds!infComplementares) Then
Print #1, [Ô] <infAdProd>[Ô] & ds!infComplementares & [Ô]</infAdProd>[Ô]
End If
Print #1, [Ô] </det>[Ô]
antes de mais nada, tente migrar para ADO
o erro esta aqui
RD = DB.OPENRECORDSET([Ô]TABELA[Ô],VBDYNASET), E USANDO O ACEES 2000,
o certo seria
veja em vermelho o modo correto de abertura do banco
o erro esta aqui
RD = DB.OPENRECORDSET([Ô]TABELA[Ô],VBDYNASET), E USANDO O ACEES 2000,
o certo seria
Dim RD as Recordset
Dim DB As DataBase
Set DB = Workspaces(0).OpenDatabase(Caminho_do_banco)
Set RD= DB.OpenRecordset([Ô]TABELA[Ô], [txt-color=#e80000]dbOpenDynaset[/txt-color]) veja em vermelho o modo correto de abertura do banco
Tópico encerrado , respostas não são mais permitidas