Creazione di un database in Visual Basic può essere utile se avete bisogno di un database con una quantità precisa 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 si può adattare a modificare il contenuto dei record. La seconda tecnica utilizza sia ADOX e Visual Basic per creare un database di Access utilizzando un codice di esempio.

istruzione

Creazione di un database con Visual Basic 4.0

1 Aprire il "Basic 4.0 visiva" applicazione.

2 Fare clic sul menu "File", e poi "Nuovo progetto".

3 Inserire una "DBGrid controllo", "Data Control" e un "pulsante di comando" sul modulo 1.

4 Modificare il controllo DBGrid "Proprietà origine dati" per il controllo dei dati.

5 Copia questo codice di esempio alla finestra di codice Form1:

Option Explicit

Dim rs1 As Recordset

RS2 fiochi come Recordset

db fioco come base di dati

td fioco come TableDef

Dim fl come campo

Private Sub Command1_Click ()

Dim iFields As Integer, iRecords As Integer

'Creare il database.

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

Set TD = db.CreateTableDef ( "Table1")

'Ora che è stato creato il database, aggiungere campi al database

Per iFields = 1 a 5 'L'ultimo numero può essere modificato.

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

td.Fields.Append fl

iFields Avanti

db.TableDefs.Append td

'Ora che il database ha campi, aggiungere record attraverso un

'Record.

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

Per iRecords = 1 a 10 'per ogni riga

rs1.AddNew 'aggiungere un nuovo record.

Per iFields = 1 a 5 'Per ogni campo del record

RS1 ( "Field" & CStr (iFields)) = iFields 'aggiungere un numero.

iFields Avanti

rs1.Update

iRecords Avanti

'Chiudere sia il set di record e il database.

rs1.Close

db.Close

'Popolare il controllo DBGrid con il contenuto del 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 ()

Se Dir ( "C: \ test.mdb") = "" Allora

Command1.Caption = "Crea database"

Command1.Visible = True

Finisci se

End Sub

6 Premere il tasto "F5" sulla tastiera per eseguire il programma. Selezionare il pulsante "Comando" e popolare il controllo DBGrid. Il test.mdb file viene creato.

Creazione di un database utilizzando ADOX e Visual Basic .NET

7 Start up "Visual Basic .NET."

8 Fare clic su "Esplora soluzioni," tasto destro del mouse "Riferimenti" e quindi scegliere "Aggiungi riferimento".

9 Fare clic sulla scheda "COM", quindi "Microsoft ADO Ext. 2.7 for DDL and Security", seguito da "Select". Fai clic su "OK".

10 Eliminare il codice dalla finestra di codice Module1.vb. Quindi copiare il codice seguente nella stessa finestra:

Le importazioni ADOX

Module Module1

Sub Main()

cat fioco come Catalog = Nuovo catalogo ()

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

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

"Jet OLEDB: Tipo motore = 5")

Console.WriteLine ( "database creato con successo")

cat = Nothing

End Sub

Modulo fine

11 Modificare un percorso per il nuovo file con estensione mdb, avendo cura 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 e avvertenze

• La tecnica dalla sezione "Creazione di un database utilizzando ADOX e Visual Basic .NET" può causare problemi intermittenti nelle applicazioni multithreaded e basate su servizi. Dovrebbe essere usato solo come un metodo a breve termine e dopo il test per assicurarsi che non esistono problemi di compatibilità.