Sniper_Vgaerr
Messages postés113Date d'inscriptionjeudi 2 décembre 2004StatutMembreDernière intervention14 août 2006
-
18 janv. 2006 à 13:49
nhervagault
Messages postés6063Date d'inscriptiondimanche 13 avril 2003StatutMembreDernière intervention15 juillet 2011
-
19 janv. 2006 à 23:09
Bonjour,
J'aurais voulu savoir comment faire pour créer une base de donnée ainsi que des tables avec ses champs dedans. J'ai cherché sur le site mais j'ai rien trouvé de concluant.
Je sais pas si ca peux vous aider, mais voici le code que j'utilise pour me connecter à la base de donnée. En fait j'aimerais pouvoir créer cette base de donnée et lui rajouter des tables dynamiquement.
Dim ds
As DataSet
Dim cnx
As OleDb.OleDbConnection
Dim da
As OleDb.OleDbDataAdapter
Dim i
As Int16
cnx =
New OleDb.OleDbConnection("provider microsoft.jet.oledb.4.0 ; data source " & Application.StartupPath &
"\Clients.mdb;")
Try
cnx.Open()
da =
New OleDb.OleDbDataAdapter(
"select NClient,Societe,Tel,Port,Ville from [" &
Me.Classeur.SelectedItem &
"]", cnx)
Dim list = ListView1.Items.Add(ds.Tables(0).Rows(i).Item(0))
list.SubItems.Add((ds.Tables(0).Rows(i).Item(1)))
list.SubItems.Add((ds.Tables(0).Rows(i).Item(2)))
list.SubItems.Add((ds.Tables(0).Rows(i).Item(3)))
list.SubItems.Add((ds.Tables(0).Rows(i).Item(4)))
Next i
Catch ex
As Exception
MsgBox(
"Une erreur est survenue dans le chargement de la base de donnée Clients.mdb", MsgBoxStyle.Critical,
"Erreur base de donnée.")