probleme de type incompatible

Question

bonjour,

voici mon code :

Dim db As Database
Dim query As QueryDef
Dim result As Recordset
dim connect as string

connect="UID=***;PWD=***;DSN=madb"
Set query = db.CreateQueryDef("")
query.connect = "ODBC;" & connect
query.SQL = req1
query.ReturnsRecords = True
Set result = query.OpenRecordset()

et il bloque sur la derniere instruction il me dit type incompatible!!

aidez-moi! je ne cromprend plus rien!!!

merci

veve · Answer

Re-Bonjour

une petite rectification dans le code il manque l'ouverture de la db !!!

Dim db As Database
Dim query As QueryDef
Dim result As Recordset
dim connect as string

connect="UID=***;PWD=***;DSN=madb"
Set db = OpenDatabase("", dbDriverPrompt, True, connect)
Set query = db.CreateQueryDef("")
query.connect = "ODBC;" & connect
query.SQL = req1
query.ReturnsRecords = True
Set result = query.OpenRecordset()

et il bloque sur la derniere instruction il me dit type incompatible!!

aidez-moi! je ne cromprend plus rien!!!

merci    
-------------------------------

damien174 · Answer

salut je crois qu'il te menque des "".
et la dernière ligne c'est peut-etre   
set result= query.openrecordset("")

Probleme de type incompatible

2 réponses

Discussions similaires