Discussion :

[philguio]

Bonjour

je suis debutant et je cherche a resoudre le pb suivant

je selectionnne des éléments dans une listebox et je voudrais enregistrer ces éléments dans une table type access. Pour le moment je le fait dans un fichier txt sans pb, mais je but pour l'enregistrer dans une bdd.

voici le code pour txt

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 Dim enr As String
        Dim i As Integer
 
        FileOpen(1, "c:\essai.txt", OpenMode.Output)   ' ouverture pour export
 
        For i = 0 To ListBox2.Items.Count - 1 ' Début de Boucle, à partir de la ligne index 0 et ce, jusqu'à la dernière
            enr = ListBox2.Items.Item(i) ' Extraction de la ligne en cours
            Print(1, enr)   ' Print enr to file.
        Next ' Fin de Boucle
 
 
        FileClose(1)   ' Close file.

je n'ai pas trop de soucis pour enregistrer des éléments a partir de textbox, mais là je ne voie pas
merci de me donner un petit coup de pouce
@+
phil

[Jérôme Lambert]

En gros, tu ne sais pas comment ça se passe les accès aux bases de données ? Etablissement de la connexion, requête, exécution de la requête, récupération du résultat possible.

Si c'est le cas, je te conseille le tuto suivant : http://webman.developpez.com/article...eter/vbnet/#L3

Pour ce qui est de la chaîne de connexion à une base de données Access, la voici :

Code :

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

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb;User Id=admin;Password=;

[JauB]

Bonjour,
tu peux essayer de procéder comme suit:

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
 
Dim cn As New OleDb.OleDbConnection
Dim da As New OleDb.OleDbDataAdapter
Dim cmd As New OleDb.OleDbCommand
 
sSQL = " INSERT INTO maTable Values ( '" & text1.text &"')
 
try
cn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb;User Id=admin;Password=;" ' d'parès Cardi ;) cn.open
cmd.connection=cn
cmd.CommandText = sSQL
cmd.ExecuteNonQuery()
catch ex as exception
msgbox(ex.Message)
end try
cn.close

code à tester
Bon courage