Ako vytvoriť Access 2007 databázu v VB

Vytvorenie databázy v jazyku Visual Basic môže byť užitočné , ak potrebujete databázu s presným množstvom záznamov a polí pre testovanie . Prvý spôsob , ako to dosiahnuť pomocou Visual Basic 4.0 a vytvorí databázu programu Microsoft Office Access s príklad kódu , ktorý môžete prispôsobiť meniť obsah záznamov . Druhý technika využíva aj ADOX a Visual Basic vytvoriť databázu programu Access pomocou príklad kódu . Pokyny
Vytvorenie databázy pomocou jazyka Visual Basic 4.0
1

Otvorte " Visual Basic 4.0 " aplikácie .
2

Kliknite na menu " Súbor " a potom " nový projekt . "
3

Vložte kartu " DBGrid Control " , " Data Control " a " Command Button " na formulári 1.
4

Zmeniť . DBGrid Control " Data Source Vlastnosť " na Data Control
5

skopírujte tento príklad kódu do okna Form1 kód :

Option Explicit Dim

RS1 ako Recordset

Dim RS2 ako Recordset

Dim db ako databáza

Dim td ako TableDef

Dim fl ako pole

Private Sub Command1_Click ( )

Dim iFields As Integer , iRecords As Integer

' Vytvoriť databázu

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

Nastaviť td = db.CreateTableDef ( "Tabuľka 1 " )

"Teraz , keď je vytvorená databáza , pridať pole do databázy

iFields = 1 až 5 " posledné číslo môže byť zmenený .

Set fl = td.CreateField ( " pole " a CStr ( iFields ) , dbInteger )

td.Fields.Append fl

Ďalšie iFields

db.TableDefs.Append td

" A teraz , že databáza obsahuje polia , pridať záznamy do mladého

" záznamov .

Set RS1 = db.OpenRecordset ( " Tabuľka 1 " , dbOpenTable )

iRecords = 1 To 10 ' Pre každý riadok

rs1.AddNew " pridať nový záznam .

iFields = 1 To 5 " pre každé pole záznamu

RS1 ( " pole " a CStr ( iFields ) ) = iFields ' pridať číslo .

Ďalšie iFields

rs1.Update

Ďalšie iRecords

" Zatvorte obe záznamov a databázy .

rs1.Close

db.Close

" Naplnenie riadenie DBGrid s obsah Recordset

Set db = OpenDatabase . ( " C : \\ test.mdb " )

Set RS1 = db.OpenRecordset ( " SELECT * FROM Tabuľka1 " )

Nastaviť Data1.Recordset = RS1

Command1.Visible = false

End Sub

Private Sub Form_Load ( )

Ak Dir ( " C : \\ test.mdb " ) = " " Tak

Command1.Caption = " Vytvoriť databázu "

Command1.Visible = TRUE

End If

End Sub
6

Stlačte " F5 " na vašej klávesnici spustiť program . Kliknite na tlačidlo " Command " a naplniť ovládací prvok DBGrid . Súbor test.mdb je teraz vytvorená .
Vytvorenie databázy pomocou ADOX a Visual Basic . NET
7

Uvedenie do prevádzky " Visual Basic . NET . "
stránka 8

kliknite na " Solution Explorer " , kliknite pravým tlačidlom myši " odkazy " a potom zvoľte " Pridať odkaz " .
9

kliknite na záložku " COM " , potom " Microsoft ADO Ext . 2.7 pre DDL and Security " , nasleduje " Vybrať " . Kliknite na tlačidlo " OK " .
10

Odstrániť kód z okna Module1.vb kódu . Potom skopírujte nasledujúci kód do rovnakého okna :

Dovoz ADOX

Module Module1

Sub Main ( )

Dim mačka ako katalóg = nový katalóg ( )

cat.Create ( " Provider = microsoft.jet.oledb.4.0 , " & _

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

" Jet OLEDB : Engine Type = 5 " )

Console.WriteLine ( " Databáza Vytvorené úspešne " )

cat = Nothing

End Sub

End Module
11

zmeniť cestu pre nové . súboru mdb , uistite sa , že používate existujúcu cestu .
12

Stlačením tlačidla " F5 " na vašom klávesnice na spustenie projektu . Súbor . Mdb je v programe Access 2000 ( 4,0 Jet ) formáte .

• Predchádzajúca strana: Ako na uloženie hodnôt do premennej v Oracle SQL 
• Ďalšia strana: Ako triediť tabuľky v programe Access 2007