|
Création d'une base de données dans Visual Basic peut être utile si vous avez besoin d'une base de données avec une quantité précise d' enregistrements et champs d'essais . La première méthode pour ce faire utilise Visual Basic 4.0 et crée une base de données Microsoft Office Access avec un exemple de code que vous pouvez adapter à modifier le contenu des dossiers. La seconde technique utilise à la fois ADOX et Visual Basic pour créer une base de données Access à l'aide d'un exemple de code. Instructions
Créer une base de données avec Visual Basic 4.0
1 Ouvrez votre application " Visual Basic 4.0 ».
2 Cliquez sur le menu "Fichier" , puis " nouveau projet. "
3 Insérez un " contrôle DBGrid »,« Control Data »et un« bouton de commande » sur le formulaire 1 .
4 Changer le dbGrid contrôle "Data Source, propriété " pour le contrôle des données
5 Copier cet exemple de code dans la fenêtre de code Form1: .
Option Explicit
RS1 As Recordset Photos rs2 As Recordset
db As Database Dim
TD TableDef
fl As Field Of Private Sub Command1_Click (
) iFields As Integer, iRecords As Integer
«créer la base de données
Set db = CreateDatabase ( . " C: \\ test.mdb " , dbLangGeneral ) < br > Set td = db.CreateTableDef ( "Table1 " )
«Maintenant que la base de données est créée , ajouter des champs de la base de données
iFields = 1 à 5 ' du dernier numéro peut être changé.
Set fl = td.CreateField ( "Champ " & CStr ( iFields ) , dbInteger )
td.Fields.Append fl
Suivant iFields < br > db.TableDefs.Append td
«Maintenant que la base de données comporte des champs , ajouter des enregistrements à travers un
' enregistrements.
Set RS1 = db.OpenRecordset ( "Table1 " , dbOpenTable )
iRecords = 1 To 10 ' Pour chaque ligne
rs1.AddNew ' Ajouter un nouveau record.
iFields = 1 To 5 ' pour chaque champ de l'enregistrement
RS1 ( "Champ " & CStr ( iFields ) ) = iFields ' ajouter un numéro.
suivante iFields
rs1.Update
Ensuite iRecords
« Fermez les deux enregistrements et la base de données.
rs1.Close
db.Close
« remplir le contrôle DBGrid avec l' contenu du jeu d'enregistrements
Set db = OpenDatabase . ("C: \\ test.mdb " )
Set RS1 = db.OpenRecordset ( "SELECT * FROM Table1" )
Set Data1.Recordset = RS1
Command1.Visible = False
End Sub
Private Sub Form_Load ( )
Si Dir ( "C: \\ test.mdb " ) =" "Then
Command1.Caption =" Créer une base de données "
Command1.Visible = True
End If End Sub
6 Appuyez sur " F5" de votre clavier pour exécuter le programme. Cliquez sur le bouton "Commande" et remplir le contrôle DBGrid . Le fichier test.mdb est maintenant créé .
Créer une base de données avec ADOX et Visual Basic. NET
7 Start up " Visual Basic. NET . "
8 Cliquez sur " Explorateur de solutions, " clic-droit " Références" et puis choisissez " Ajouter une référence . "
9 Cliquez sur l'onglet « COM », puis « Microsoft ADO Ext . 2.7 for DDL and Security », suivi par « Select » . Cliquez sur « OK ».
10 supprimer le code de la fenêtre de code Module1.vb . Ensuite, copiez le code suivant dans la même fenêtre : Photos importations ADOX
Module Module1
Sub Main ()
cat As catalogue = Nouveau catalogue ( )
cat.Create ( "Provider = Microsoft.Jet.OLEDB.4.0; " & _
"Data Source = D: \\ AccessDB \\ NewMDB.mdb ; " & _
"Jet OLEDB: type de moteur = 5")
Console.WriteLine (" base de données créée avec succès")
cat = Nothing End Sub
< p> End Module
11 Changer un chemin pour le nouveau fichier mdb . , en veillant à utiliser un chemin existant .
12 Appuyez sur la touche "F5" de votre clavier pour exécuter le projet . Le fichier mdb . Est dans Access ( Jet 4.0 ) Format 2000.
|
