ADO probleme.

Question

Bonjour,

J'utilise une base de donnée mdb auquel j'accede par ADO (sans control)
Donc j'ai ca :

Sub OpenDB()

 Set ad = New ADODB.Connection
 ad.Provider = "Microsoft.Jet.OLEDB.4.0"
 ad.ConnectionString = gDatabasePath
 ad.Open

End Sub

Function ReadDB(SQL As String) As Recordset

  Dim Reqsql As New ADODB.Command
  Reqsql.ActiveConnection = ad
  Reqsql.CommandText = SQL
  Set ReadDB = Reqsql.Execute

End Function

quand j'appel la fonction ReadDB avec :

SQL = "SELECT `car`.[id], `car`.[ref], `car`.[name], `car`.[desc], `car`.[plate], `location`.[date2], `location`.[active], `client`.[name] AS CName, `location`.[date1] FROM (location LEFT JOIN client ON `location`.[clientid]=`client`.[id]) RIGHT JOIN car ON `location`.[carid]=`car`.[id] ORDER BY `car`.[id]"

J'ai ca comme erreur : 
Aucune Valeur donnée pour un ou plusieurs des parametres requis.
a la ligne  Set ReadDB = Reqsql.Execute
alors que cette requet fonction bien dans access.

Yoo

cs_Baris · Answer

Je precise

J'ai 3 tables :

Car(ID, nom, couleur)
Location(ID, clientID, carID, date)
Client(ID, nom, adress)

Yoo

cboulas · Answer

Salut,

En fait tout simplement tu as une de tes valeurs requises pour le Select qui est 'Vide', elle ne contient pas de valeur, elle est Null.

Je pense que le PB viens de là.

Chris

jrivet · Answer

salut,

Moi j essaierai aussi d enlever tout les ` que tu as mis....

essaie un truc aussi , si tu as sql server.

essai de mettre la meme requete dans une View et tu verra si elle passe ou pas.

@+
-------------------------------------------------
Essai ca sinon on trouvera autre chose
-------------------------------------------------

 :big)

ADO probleme.

3 réponses

Discussions similaires