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 .
Istruzioni Creare un database con Visual Basic 4.0
1 Aprire l'applicazione di " Visual Basic 4.0" .
2 Fare clic sul menu "File" e poi " nuovo progetto ".
3
Inserire un " controllo DBGrid , " " Data Control "e un" Pulsante di comando " sul Modulo 1 .
4
Cambiare il dbGrid controllo " dati Proprietà Source " per il controllo dati
5
Copia questo codice di esempio nella finestra del codice di Form1 : .
Option Explicit
Dim RS1 come Recordset
Dim rs2 come Recordset
Dim db As Database
Dim td 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 ) < br >
Set td = db.CreateTableDef ( " Tabella1 " ) per
' Ora che è stato creato il database , aggiungere campi al database
iFields = 1 To 5 ' l'ultimo numero può essere cambiato .
fl = td.CreateField ( "Field" & CStr ( iFields ) , dbInteger ) per
td.Fields.Append fl
Successivo iFields < br >
db.TableDefs.Append td
' Ora che il database ha campi , aggiungere i record attraverso un
' recordset .
Set RS1 = db.OpenRecordset ( " Tabella1 " , dbOpenTable ) per
iRecords = 1 To 10 ' Per ogni riga
rs1.AddNew ' Aggiungi un nuovo record.
iFields = 1 To 5 ' Per ciascun campo del record
RS1 ( "Field" & CStr ( iFields ) ) = iFields ' aggiungere un numero .
Avanti iFields
rs1.Update
Avanti iRecords
' chiudere sia il set di record e di database .
rs1.Close
db.Close
' popolare il controllo DBGrid con il contenuto del Recordset
Set db = OpenDatabase . ( "C : \\ test.mdb " ) per
Set RS1 = db.OpenRecordset ( " Select * from Tabella 1 " ) per < p > Imposta Data1.Recordset = RS1
Command1.Visible = False
End Sub
private Sub Form_Load ( ) per
Dir ( "C : \\ test.mdb " ) = " "Then
Command1.Caption =" Crea Database "
Command1.Visible = True
End If End Sub
6
Premere " F5 " sulla tastiera per eseguire il programma . Selezionare il tasto "Command" e compilare il controllo DBGrid . Il file test.mdb è ora creato .
Creare un database utilizzando ADOX e Visual Basic . NET
7
Start up " di Visual Basic. NET . "
Pagina 8
Fare clic su " Esplora soluzioni " clic destro "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 " . Fare clic su " OK ".
10
cancellare il codice dalla finestra del codice di Module1.vb . Quindi copiare il seguente codice nella stessa finestra :
Importazioni ADOX
Module Module1
Sub Main ( ) per
Dim cat Come Catalog = nuovo catalogo ( ) per
cat.Create ( "Provider = Microsoft.Jet.OLEDB.4.0; " & _
"Data Source = D : \\ AccessDB \\ NewMDB.mdb ; " & _
"Jet OLEDB : Engine Type = 5 " ) per
Console.WriteLine ( "Database creato con successo " ) per
cat = Nothing End
Sub < p > End Module
11
modificare un percorso per il nuovo file . mdb , avendo cura di utilizzare un percorso esistente .
12
Premere il tasto " F5 " sulla vostra tastiera per eseguire il progetto . Il file . Mdb è in Access ( Jet 4.0) 2000.
