Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Spustite program Microsoft Visual Basic Express . Kliknite na " New Project " , potom vyberte "Windows Forms " . Kliknite na tlačidlo " OK " . Kliknite na " Nástroje " na ľavom paneli obrazovky a potom dvakrát kliknite na " tlačidlo " pridať nové tlačidlo .
2
Dvakrát kliknite na " Button1 " otvorte modul " Form1.vb " . Kliknite na menu " Project " a potom zvoľte " Pridať odkaz .. " Vyberte kartu " COM " a potom kliknite na " Microsoft Active Data Objects Zadajte nasledujúce deklarovať svoje premenné : Dim cn ako ADODB.Connection Dim mačkou , ako ADOX.Catalog Dim objTable ako ADOX.Table Dim sqlStr As String cn = New ADODB . pripojenie Cat = New ADOX.Catalog objTable = New ADOX.Table Zadajte nasledujúci vytvoriť novú premennú a nastavte ju na hodnotu NULL : Dim hodnoty ako VariantType hodnota = Constants.vbNull Zadajte nasledujúci vytvoriť pripojenie k databáze Access : Cn . otvorená ( " Provider = Microsoft.ACE.OLEDB.12.0 ; Data Source = C : \\ Northwind 2007.accdb " ) Cat.ActiveConnection = Cn Upravte nasledujúci kód a zadajte cestu a meno do databázy : C : \\ Northwind 2007.accdb Zadajte nasledujúci vytvoriť novú tabuľku s názvom " ADOXTable " : objTable . meno = " ADOXTable " objTable.Columns.Append ( " ID " , ADOX.DataTypeEnum.adInteger ) objTable.Columns.Append ( " IdDesc " , ADOX.DataTypeEnum.adWChar ) Cat.Tables.Append ( objTable ) Zadajte nasledujúce vložiť nový záznam dát s hodnotou NULL : sqlStr = " INSERT INTO " a ( objTable.Name ) & " ( ID , IdDesc ) " sqlStr = sqlStr a " VALUES ( 5 , " a hodnota a " ) ; " Cn.Execute ( sqlStr ) zadajte nasledujúce uvoľniť premenné z pamäti : cat = Nothing cn.Close ( ) klipart cn = Nothing Stlačte " F5 " spustiť program a potom kliknite na tlačidlo " Button1 . "
3
4
5
6
7
Stránka 8