Problème Objet Adodc - Access - VB6

Question

Bonjour tout le monde,

J'en reviens &#224; vous car je commence &#224; d&#233;s&#233;sp&#233;rer et je suis au bord du p&#233;tage de plomb....
J'aimerais savoir comment aller &#233;crire ou plut&#244;t changer une valeur dans un fichier .mdb via VB6 avec l'objet Adodc. Aussi, comment utiliser ces fameuses requ&#234;tes SQL avec cet  objet?? . Ca fait trois jours que je cherche des infos l&#224; dessus et je n'ai rien trouv&#233; de super clair et je commence &#224; tout m&#233;langer!

Quelle est la syntaxe exacte de ces requ&#234;tes?
Pour l'instant j'arrive juste &#224; lire dans une base de donn&#233;es via Adodc mais c'est tout ... 
Si vous avez d'autres solutions plus simple, je suis tout ou&#239;e!
Merci d'avance en tout cas 

Philippe 
phil.lasch@free.fr

cs_dan80 · Answer

tu dois d'abord d&#233;clar&#233; une connection:

ex:

Sub Connection()
    Set cnn = New ADODB.Connection
    cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
    cnn.Properties("Jet OLEDB:Database Password") = "azerty"  dans le cas ou ta base a un password
    cnn.Open "Data Source=" & chemin
End Sub

exemple de requetes:
dim rst as ADODB.Recordset
dim SQLString as String

rst.CursorLocation=aduseclient
sqlstring="Select .... From ..... Where ....."
rst.open SQLString,'nom de ta connection ici cnn',adOpenDynamic, adLockOptimistic

exemple acc&#233;s au valeur:
dim val as string

val = rst.fields("Nom de ton champ").value

fais moi signe si t'a du mal

cs_dan80 · Answer

tu dois d'abord d&#233;clar&#233; une connection:

ex:

Sub Connection()
    Set cnn = New ADODB.Connection
    cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
    cnn.Properties("Jet OLEDB:Database Password") = "azerty"  dans le cas ou ta base a un password
    cnn.Open "Data Source=" & chemin
End Sub

exemple de requetes:
dim rst as ADODB.Recordset
dim SQLString as String

rst.CursorLocation=aduseclient
sqlstring="Select .... From ..... Where ....."
rst.open SQLString,'nom de ta connection ici cnn',adOpenDynamic, adLockOptimistic

exemple acc&#233;s au valeur:
dim val as string

val = rst.fields("Nom de ton champ").value

fais moi signe si t'a du mal

philippe laschweng 1 · Answer

Merci d'avoir r&#233;pondu si vite, j'essairai demain matin car l&#224;j'ai la t&#234;te en choux fleur et je dois y aller. Je te tiens au courant si j'ai des probs .... tiens toi pr&#234;t ! ).
Moi j'arrivai &#224; r&#233;cup&#233;rer les donn&#233;es de la base Access sans taper une seule ligne de code, la d&#233;claration &#233;tait faite dans l'objet Adodc mais ca doit pas &#234;tre la bonne solution car je sais pas comment r&#233;cup&#233;rer une donn&#233;e pr&#233;cise dans la bdd sans devoir faire d&#233;filer les param&#232;res lus dans la bdd, via les petites fl&#232;ches du control Adobc.

En tout cas je te dis d&#233;j&#224; merci!
Philippe

philippe laschweng 1 · Answer

J'ai quand m&#234;me regard&#233; le code ce soir mais j'ai un probl&#232;me &#224; l'instruction : 
val = rst.fields("Marque").Value

Il me mets variable ojet ou bloc with non d&#233;finie. J'ai cr&#233;e une base de donn&#233;e bidon Appel&#233;e CARS qui contient une colonne avec pour intitul&#233; 'Marque' (avec access). Alors ou est ma faute et comment lister les param&#232;tres de la colonne marque (SUBARU, MITSU, M3 .....).
Voici mon code tel que je l'ai mis avec un commandbutton1

Dim rst As ADODB.Recordset
Dim SQLString As String
Dim val As String


Sub Connection()
    Set cnn = New ADODB.Connection
    cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
    cnn.open "Data Source=" & App.Path & "\essai.mdb"
End Sub



Private Sub Command1_Click()


'exemple acc&#233;s au valeur:
Connection
val = rst.fields("CARS").Value


End Sub

D&#233;sol&#233; si je pose des questions b&#234;tes ...
Merci d'avance !

Philippe

cs_dan80 · Answer

en premier tu dois faire :

projet ->  references et tu coche la case Microsoft ActiveX Data Objects 2.0 Librairie
c'est la librairie ado 

ensuite tu met sa dans un module:


Sub Connection()
    Set cnn = New ADODB.Connection
    cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
    cnn.open "Data Source=App.Path & "\essai.mdb""
End Sub

Sub Deconnection()
   cnn.close
End Sub

et pour l'acc&#233;s aux donn&#233;es tu fais:

le mieu dans ton cas et de cr&#233;er un combobox qui va contenir tes marques

Private Sub Form_Load()
dim rst as adodb.recordset 'tu declare un recordset (jeu d'enregistrement) qui va contenir les champs de ta requete
dim SQLString as String 'tu declare une chaine de caractere qui va contenir ta requete
Connection ' tu &#233;tabli la connection
SQLString="Select Marque from Cars" 'ta requete
rst.CursorLocation=aduseclient 'c pour pouvoir compter le nombre d'enregistrement
rst.open SQLString,cnn,adOpenDynamic, adLockOptimistic 'tu envoi ta requete dans le recordset

'et la tu rempli ton combobox avec une boucle:
If rst.recordcount <> 0 then 'tu teste si ton recordset n'est pas vide
   rst.movefirst 'tu te place sur le 1er enregistrement
   while not rst.eof  'tant qu'on est pas a la fin du recordset
      combo.additem (rst.fields(0)) 'tu envoi dans ton combo le champ de ta base
      rst.movenext 'tu passe a l'enregistrement suivant
   loop
End if
Deconnection 'mais tu peux le faire quand tu quitte ton prog pour &#233;viter les reconnections avant chaque requete
end sub

J'espere que ca va t'aid&#233; fais moi signe  


End Sub

philippe laschweng 1 · Answer

Il me met tjrs Erreur d'&#233;x&#233;cution '91' : variable objet ou variable bloc with non d&#233;finie.
C'est &#224; la ligne l&#224; qu'il plante :
rst.CursorLocation = aduseclient 'c pour pouvoir compter le nombre d'enregistrement

Y'a pas besoin de d&#233;clarer rst (dim rst as 'je sais ps quoi')?
Et pourquoi ne faut-il pas faire : Set rst = 'je sais ps quoi')?

Ca sert &#224; quoi au juste l'instruction 'set'? c'est bien pour cr&#233;er un objet?

Merci pour ton aide en tout cas !
Philippe

cs_dan80 · Answer

je crois que j'ai oubli&#233; un truc

essaye ca:

dim rst as new adodb.recordset

ou t'ajoute avant cursorlocation

set rst = new adodb.recordset

fais mois signe

philippe laschweng 1 · Answer

Maintenant il plante &#224; la ligne l&#224;:
rst.open SQLString, cnn, adOpenDynamic, adLockOptimistic 

> erreur d'ex&#233;cution '3001' probs d'arguments .....
J'en ai marre !

------------------------------------------------
Dim SQLString As String 'tu declare une chaine de caractere qui va contenir ta requete

Sub Connection()
    Set cnn = New ADODB.Connection
    cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
    cnn.open "Data Source=" & App.Path & "\essai.mdb"
End Sub


Sub Deconnection()
   cnn.Close
End Sub


Private Sub Form_Load()


Connection ' tu &#233;tabli la connection
SQLString = "SELECT Marque FROM CARS" 'ta requete
Set rst = New ADODB.Recordset
rst.CursorLocation = aduseclient 'c pour pouvoir compter le nombre d'enregistrement
rst.open SQLString, cnn, adOpenDynamic, adLockOptimistic 'tu envoi ta requete dans le recordset


'et la tu rempli ton combobox avec une boucle:
If rst.recordcount <> 0 Then 'tu teste si ton recordset n'est pas vide
   rst.movefirst 'tu te place sur le 1er enregistrement
   Do While Not rst.EOF  'tant qu'on est pas a la fin du recordset
      Combo.AddItem (rst.fields(0)) 'tu envoi dans ton combo le champ de ta base
      rst.movenext 'tu passe a l'enregistrement suivant
   Loop
End If


Deconnection 'mais tu peux le faire quand tu quitte ton prog pour &#233;viter les reconnections avant chaque requete
End Sub

cs_dan80 · Answer

ta table s'appelle bien CARS et le champ de ta table c bien Marque?

philippe laschweng 1 · Answer

Vi tout &#224; fait !!!!
Vois pas ou est le probl&#232;me alors ... ah ce cher VB !!!

Problème Objet Adodc - Access - VB6

10 réponses

Discussions similaires