Creazione di un database in Visual Basic può essere utile se è necessario un database con una precisa quantità di record e campi per il test. Il primo metodo per fare questo utilizza Visual Basic 4.0 e crea un database di Microsoft Office Access con un esempio di codice che è possibile adattare per alterare il contenuto dei record. La seconda tecnica utilizza sia ADOX e Visual Basic per creare un database di Access utilizzando un codice di esempio.

Istruzioni

Creare un Database con Visual Basic 4.0

1

Apri il tuo "Visual Basic 4.0" applicazione.

2

Scegliere il menu "File", quindi "Nuovo progetto".

3

Inserire un "controllo DBgrid," "Controllo dati" e un "pulsante di comando" il modulo 1.

4

Modificare il controllo DBgrid "Proprietà origine dati" al controllo dati.

5

Copiare questo codice di esempio alla finestra del codice di Form1:

Option Explicit

Dim rs1 As Recordset

Dim rs2 As Recordset

Dim db As Database

Dim td As TableDef

Dim fl As Field

Private Sub Command1_Click()

Dim iFields As Integer, iRecords As Integer

' Create the database.

Set db = CreateDatabase("C:\test.mdb", dbLangGeneral)

Set td = db.CreateTableDef("Table1")

'Now that the database is created, add fields to the database

For iFields = 1 To 5 'The last number can be changed.

Set fl = td.CreateField("Field " & CStr(iFields), dbInteger)

td.Fields.Append fl

Next iFields

db.TableDefs.Append td

' Now that the database has fields, add records through a

' recordset.

Set rs1 = db.OpenRecordset("Table1", dbOpenTable)

For iRecords = 1 To 10 ' For each row

rs1.AddNew ' add a new record.

For iFields = 1 To 5 ' For each field in the record

rs1("Field " & CStr(iFields)) = iFields ' add a number.

Next iFields

rs1.Update

Next iRecords

' Close both the recordset and database.

rs1.Close

db.Close

' Populate the DBGrid control with the contents of the Recordset.

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()

If Dir("C:\test.mdb") = "" Then

Command1.Caption = "Create Database"

Command1.Visible = True

End If

End Sub6

Premere "F5" sulla tastiera per eseguire il programma. Selezionare il pulsante di "Comando" e popolare il controllo DBgrid. Ora viene creato il file mdb.

Creare un Database utilizzando ADOX e Visual Basic

7

Avviare "Visual Basic.NET."

8

Fare clic su "Esplora soluzioni" clic destro "Riferimenti" e scegli "Aggiungi riferimento".

9

Fare clic sulla scheda "COM", quindi "Microsoft ADO Ext. 2.7 per DDL and Security," seguita da "Select". Fare clic su "OK".

10

Eliminare il codice dalla finestra del codice di Module1. vb. Quindi copiare il codice riportato di seguito nella stessa finestra:

Importazioni ADOX

Module Module1

Sub Main()

Dim cat As Catalog = New Catalog()

cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Data Source=D:\AccessDB\NewMDB.mdb;" & _

"Jet OLEDB:Engine Type=5")

Console.WriteLine("Database Created Successfully")

cat = Nothing

End Sub

End Module

11

Modificare un percorso per il nuovo file con estensione mdb, assicurandosi di utilizzare un percorso esistente.

12

Premere il tasto "F5" sulla tastiera per eseguire il progetto. Il file mdb è in formato Access 2000 (Jet 4.0).

Consigli & Avvertenze

• La tecnica nella sezione "Creare un Database utilizzando ADOX e NET" può causare problemi intermittenti in applicazioni multithread e basate su servizi. Deve essere utilizzato solo come un metodo di breve durato e dopo aver testato per garantire problemi di compatibilità non esistano.