connexion a la base de données

Question

salut,
j'arrive pas pas a faire un connexion avec l'acces,voila le code que j'utilise
dim cn as ADODB.Connection
Public sub_connect()
set cn = New connection
cn.Cursorlocation = AdUseClient
cn.open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\examples.mdb" & ";Persist Security Info=False"
End Sub
et puis je voulais enregistré des données dans la base:
Private sub_ajouter()
Set reco = New ADODB.Recordset
reco.CursorLocation = AdUseClient
reco.open" SELECT * FROM table1",cn, adopendynamic,adlockoptimistic

reco.AddNew
reco!nom = text1
reco!prenom = text2
reco.update
End Sub

cs_Jack · Answer

Salut
Sur ces deux lignes :
Dim cn as ADODB.Connection 
Set cn = New Connection 
Tu définis un type et tu le Set d'un autre type. Ca doit pas marcher terrible.
Sinon, rien ne me saute aux yeux, ça devrait fonctionner.

Si ta connexion ne fonctionne pas, dis nous si tu as une erreur, laquelle, sur quelle ligne.
Si tu n'as pas d'erreur, quel est le ".State" de ton objet de connexion, "cn" ?
N'hésite pas à charger des Codes qui parlent de ADODB.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

cs_Ayr · Answer

Salut,

Question subsidiaire :

Qu'est-ce que Public sub_connect() et Private sub_ajouter() ?

Connexion a la base de données

2 réponses

Votre réponse

Discussions similaires