pb avec un bug entre Vb et Access

Question

Bonjour;

je dois debuger un soft et je n'arrive pas a savoir pourquoi VB n'est pas content quand il arrive a "Set rs = Base.open......."

Le Soft doit taper dans une base de donnée Access, dans la table "Interventions", et y recupérer, a travers le champs "Moyen Industriel", toutes les machines qui ont étés en panne compris entre la date "DateSerial(Year(DateCour1), Month(DateCour1), 1)" aujourd'hui.

'declaration
Dim rs As Recordset

Requete = "SELECT * FROM INTERVENTIONS WHERE"
Requete = Requete & "((INTERVENTIONS.[Moyen Industriel]='"  & Choix.Combo1.Text & "')"
Requete = Requete & " AND (INTERVENTIONS.[Date et heure Fin] >=" & DateSerial(Year(DateCour1), Month(DateCour1), 1) & "))"
Requete = Requete & " ORDER BY INTERVENTIONS.[Date et heure Début] DESC"

-> Set rs = Base.OpenRecordset(Requete, dbOpenDynaset) <-

Lors de l'execution on trouve les données:
-rs = nothing
-Requette = "SELECT * FROM INTERVENTIONS WHERE((INTERVENTIONS.[Moyen Industriel]='CENTRIF 2') AND (INTERVENTIONS.[Date et heure Fin] >=01/08/2000)) ORDER BY INTERVENTIONS.[Date et heure Début] DESC"
-dbOpenDynaset = 2

et VB me declare un erreure:
Erreure d'execution '3061'
trops de paramètres. 1 attendu.

Je ne peux pas avoir le MSDN (il reste 200Mo sur le HD)

Si vous savez, merci de me donner un coup de main.

WolfKiller · Answer

ma réponse : copier direct de la msdn
[VBASIC]
   Dim cnn1 As ADODB.Connection
   Dim rstEmployees As ADODB.Recordset

   ' Ouvre une connexion.
   strCnn = "Provider=sqloledb;" & _
           "Data Source=srv;Initial Catalog=pubs;User _
           Id=sa;Password=; "
   Set cnn1 = New ADODB.Connection
   cnn1.Open strCnn
   
   ' Ouvre la table des employés.
   Set rstEmployees = New ADODB.Recordset
   rstEmployees.CursorType = adOpenKeyset
   rstEmployees.LockType = adLockOptimistic
   rstEmployees.Open "employee", cnn1, , , adCmdTable

/VBASIC

change "employee" par ta requete SQL
et adCmdTable par adCmdUnknown

Il existe sûrement une solution plus simple avec les méthodes et les membres du recordset
Tu peux sûrement utiliser la Bibliothéque d'objet(F2)

A plus :-)

Cassiopee · Answer

Hey!Mec t'as les pieds plats ou quoi!!! 
  la balise pour afficher du code de VB 
  c'est <code>

Va voir ta mère

Cassiopee · Answer

Hey!Mec t'as les pieds plats ou quoi!!!!

La balise pour le VB c'est  
 
va voir ta mère

seishiro · Answer

merci je vais essayer ca.

Pb avec un bug entre Vb et Access

4 réponses

Discussions similaires