Discussion :

[bvi67]

Bonjour,


Je cherche à ajouter des informations dans une base de donnée access a partir de l’interface VB6, j’ai trouvé le code suivant mais il ne fonctionne pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Sub Command1_Click()
 
Dim ma_base As ADODB.Connection
Dim C_str As String
Set ma_base = New ADOD.Connection
C_str "provider=microsoft.jet.OLEDB.4.0;data source=c:\base1.mdb;"
ma_base.Open C_str
 
Set record = New ADODB.Recordset
record.Open = "etudiants",ma_base,adOpenKeyset, adLockOptimistic
 
record.AddNew
record.Fields("n_insee").Value = "123456789"
record.Fields("nom").Value = "toto"
record Update
 
End Sub

J’ai déjà une erreur avec le message «Erreur de compilation : « attendu fin d’instruction » après avoir tapé la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
record.Open = "etudiants",ma_base,adOpenKeyset, adLockOptimistic

Le curseur et sur la virgule entre « etudiants",ma_base »


Puis si je persiste (pour rien vous me direz) le programme s’exécute mais j’ai le message suivant après clic que command1

Erreur de compilation « type défini par l’utilisateur non défini »
Le curseur est sur « Set ma_base = New ADOD.Connection » - « New ADOD.Connection »

Voila, je sais pas comment et quoi faire, j’ai peut être une erreur de syntaxe ou oublier un éléments,

J’ai besoin de votre aide, merci

[AlainTech]

Manquerait pas un B...?

[bvi67]

effectivement, il manque un B dans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Set ma_base = New ADOD.Connection

et puis il manque aussi un "=" dans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
C_str "provider=microsoft.jet.OLEDB.4.0;data source=c:\base1.mdb;"

J'ai corriger, j'ai compiler et maintenant j'ai une erreur a

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
record.Open = "etudiants",ma_base,adOpenKeyset, adLockOptimistic

Le message c'est "erreur de compilation: erreur de symtaxe"

voila .. cette erreur la, je la vois pas

merci

[ThierryAIM]

Alors là, c'est pas de bol parce que tu a déjà un = en trop !!!

[ThierryAIM]

c'est si difficile que ça de lire les aides, les tutos et de faire attention aux syntaxes, dans les expressions !!!!

c'est exaspérant, à la fin

[bvi67]

Merci, j'ai bien un "=" en trop,

mais celui la il etait bien présent sur ma feuille (un cours que j'ai recuperer) ..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
record.Open "etudiants", mabase, adOpenKeyset, adLockOptimistic

Merci,