pb update adodb

Question

salut à tous  je galere pour trouver mon pb;

voilà j'ai 2 tables, 'tb2 et tb1' avec adodb j'essaye de récuperer des données de tb1 pour mettre à jour les données de tb1

mais j'ai le message: "object or provider is not capable of performing..." (erreur 3251)

voilà mon code :

Dim Res As New ADODB.Recordset
Dim Res2 As New ADODB.Recordset

Set Res = MaConnection.Execute("select champ1, ...from tb1,tb2 where tb1.champ1=tb2.champ2")

While Not Res.EOF

Res2.CursorType = adOpenDynamic
Res2.LockType = adLockOptimistic
Set Res2 MaConnection.Execute("select champ1... where nom'" & Res.Fields(1) & "'")

'Res2.Fields(0) = Res.Fields(0)
Res2.Fields(2) = Res2.Fields(2) + Res.Fields(2)

Res2.Update

Res.MoveNext

merci d'avance pour l'aide

cs_frop01 · Answer

Comment as tu déclarer le variable MaConnection ?? 

 :-p   [mailto:cyberscorp2004@msn.com MSN]  :big)  [mailto:frop01@yahoo.fr YAHOO]  >:) 

Membre du club CodeS-SourceS

elbrahimo · Answer

ChaineCnx = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
               "Data Source=" & "c:\editique\editique.mdb" & ";" & _
               "Persist Security Info=False"

MaConnection.ConnectionString = ChaineCnx
            
MaConnection.Open ChaineCnx

cs_frop01 · Answer

essai de changer 

Set Res = MaConnection.Execute("select champ1, ...from tb1,tb2 where tb1.champ1=tb2.champ2")

par 

Res.open "select champ1, ...from tb1,tb2 where tb1.champ1=tb2.champ2', MaConnection

et changer
Set Res2 MaConnection.Execute("select champ1... where nom'" & Res.Fields(1) & "'")

par 

Res2.Open "select champ1... where nom ='" & Res.Fields(1) & "'",MaConnection

 :-p   [mailto:cyberscorp2004@msn.com MSN]  :big)  [mailto:frop01@yahoo.fr YAHOO]  >:) 

Membre du club CodeS-SourceS

elbrahimo · Answer

hé non, ça ne marche pas mieux ...

cs_frop01 · Answer

ton code est incomplet ,

Envoie le code ( form) + la base (tb1 et tb2) à mon email frop01@yahoo.fr pour que je puisse l'analyser ensuite je poste la réponse sur ce forum (si je trouve la solution) .

 :-p   [mailto:cyberscorp2004@msn.com MSN]  :big)  [mailto:frop01@yahoo.fr YAHOO]  >:) 

Membre du club CodeS-SourceS

Pb update adodb

5 réponses

Discussions similaires