Listview et base de données acces
Gravity2
Messages postés
1
Date d'inscription
mercredi 2 avril 2003
Statut
Membre
Dernière intervention
1 mars 2004
-
1 mars 2004 à 01:37
mastercatz Messages postés 193 Date d'inscription jeudi 4 décembre 2003 Statut Membre Dernière intervention 12 août 2010 - 1 mars 2004 à 10:46
mastercatz Messages postés 193 Date d'inscription jeudi 4 décembre 2003 Statut Membre Dernière intervention 12 août 2010 - 1 mars 2004 à 10:46
A voir également:
- Listview et base de données acces
- Base de données javascript - Conseils pratiques -Javascript
- Récupérer données json (javascript) - Conseils pratiques -Javascript
- Nomenclature base de données - Conseils pratiques -PHP
- Connexion base de données - Conseils pratiques -PHP
- Sauvegarde base de données sql server ✓ - Forum SQL
1 réponse
mastercatz
Messages postés
193
Date d'inscription
jeudi 4 décembre 2003
Statut
Membre
Dernière intervention
12 août 2010
1 mars 2004 à 10:46
1 mars 2004 à 10:46
Voila un p'tit code qui va récuperer un à un les elements d'une listbox et qui va les inserer dans une base access.
Il ne te reste plus qu'a indiquer ta base access au début et à formuler ta requette
La listbox s'appelle List1
Pense a mettre en reference ADO 2.6
Private Sub Command1_Click()
Dim Oconn As New ADODB.Connection
Dim Ocomm As New ADODB.Command
Dim i As Integer
Dim Item As String
'ouverture de la connexion
Oconn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:\ta_base.mdb"
Oconn.Open
Ocomm.ActiveConnection = Oconn
For i = 0 To List1.ListCount
'on recupere le contenu du champ de la liste en cours
Item = List1.List(i)
'On tape la requette d'insertion
Ocomm.CommandText = " ..... "
'On l'execute
Ocomm.Execute
Next
'Fermeture de la connexion
Oconn.Close
End Sub
Il ne te reste plus qu'a indiquer ta base access au début et à formuler ta requette
La listbox s'appelle List1
Pense a mettre en reference ADO 2.6
Private Sub Command1_Click()
Dim Oconn As New ADODB.Connection
Dim Ocomm As New ADODB.Command
Dim i As Integer
Dim Item As String
'ouverture de la connexion
Oconn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:\ta_base.mdb"
Oconn.Open
Ocomm.ActiveConnection = Oconn
For i = 0 To List1.ListCount
'on recupere le contenu du champ de la liste en cours
Item = List1.List(i)
'On tape la requette d'insertion
Ocomm.CommandText = " ..... "
'On l'execute
Ocomm.Execute
Next
'Fermeture de la connexion
Oconn.Close
End Sub