Vb access

Résolu
Signaler
Messages postés
25
Date d'inscription
mardi 11 mai 2004
Statut
Membre
Dernière intervention
25 août 2005
-
Messages postés
25
Date d'inscription
mardi 11 mai 2004
Statut
Membre
Dernière intervention
25 août 2005
-
Bonjour je suis novice en programmation et j essaye de créer un formulaire en vb pour rentrer des infos dans une base de donnée. Lorsque que je clique sur le bouton enregistrer j ai l erreur suivante qui apparait : Erreur d execution '2147217843' (80040e4d) echec de l authentification qui apparait.
Si qqn sait d ou ca peut venir.

Voici mon code:
Private Sub CmdAjouter_Click()


'creation de l objet connexion
Dim con As ADODB.Connection
Set con = New ADODB.Connection


If (Text1 "") Or (Text2 "") Then MsgBox ("Ne laissez pas de blanc")



'definition du pilote et de la chaine de connexion
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data"
Source "C:\Documents and Settings\My laptop\Mes documents\FOR_ECS.mdb;persist security info false"

'ouverture de la connexion
con.Open

'exexution de la requete
con.Execute "insert into ECS(N°Enregistrement,Date,Nom_Client,N° Axe,Nom_Tech,Temps_prévu,Temps_Passé,Temps_Deplacement,Commentaire) values ('" & Text1.Text & "' , '" & Text2.Text & "' , '" & Text3.Text & "' , '" & Text4.Text & "', '" & Text5.Text & "' ,'" & Text6.Text & "','" & Text7.Text & "','" & Text8.Text & "','" & Text9.Text & "');"


' fermeture de la connexion
con.Close

MsgBox " données enregistrées"




End Sub

4 réponses

Messages postés
809
Date d'inscription
mercredi 11 octobre 2000
Statut
Membre
Dernière intervention
29 septembre 2010
9
tu crois pas qu'il y a un pb sur cette ligne :

Source "C:\Documents and Settings\My laptop\Mes documents\FOR_ECS.mdb;persist security info false"



Source ... de quoi ? c'est pas plutot Data Source=... que tu voulais faire ?



donc



con.ConnectionString =
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source = C:\Documents and
Settings\My laptop\Mes documents\FOR_ECS.mdb;persist security info =
false" ?



++

Zlub
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
25
Date d'inscription
mardi 11 mai 2004
Statut
Membre
Dernière intervention
25 août 2005

Merci pour tout, je n 'ai plus le message d erreur mais maintenant il me marque erreur de compilation procedure sub ou fonction non definie
Messages postés
809
Date d'inscription
mercredi 11 octobre 2000
Statut
Membre
Dernière intervention
29 septembre 2010
9
et le curseur se positionne sur quoi ? VB te selectionne quelle procedure ?

++

Zlub
Messages postés
25
Date d'inscription
mardi 11 mai 2004
Statut
Membre
Dernière intervention
25 août 2005

c bon ct une virgule mal placée
Encore merci pour tout Zlub!