Come creare un database di Access 2007 in VB

Conoscenza Informatica

Home Hardware Networking Programmazione Software Domanda Sistemi

* Conoscenza Informatica >> software >> Software Database >> .

Come creare un database di Access 2007 in VB

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 )

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

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

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

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