URGENT INSERTION

pepe013 Messages postés 42 Date d'inscription jeudi 21 novembre 2002 Statut Membre Dernière intervention 2 juin 2006 - 16 janv. 2003 à 12:13
pepe013 Messages postés 42 Date d'inscription jeudi 21 novembre 2002 Statut Membre Dernière intervention 2 juin 2006 - 16 janv. 2003 à 13:24
8-) pépé

Je n'arrive pas a transferer mes contacts qui sont dans ma base access vers mes contacts d 'outlook.

AIDEZ MOI

1 réponse

pepe013 Messages postés 42 Date d'inscription jeudi 21 novembre 2002 Statut Membre Dernière intervention 2 juin 2006
16 janv. 2003 à 13:24
OU EST LE BUG ???

requete_outlook = " select * from contacts "

Dim rs2 As ADODB.Recordset
Dim CoADO2 As ADODB.Command

Set CoADO2 = New ADODB.Command
CoADO2.CommandText = requete_outlook
CoADO2.CommandType = adCmdText
Set CoADO2.ActiveConnection = ct
Set rs2 = New ADODB.Recordset
rs2.CursorType = adOpenDynamic

rs2.Open CoADO2
rs2.AddNew
rs2!nom = " test "
rs2.Update
rs2.Close

L'insertio ne marche pas !!!
0
Rejoignez-nous