Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte program Microsoft Visual Basic Express a kliknite na tlačidlo " Nový projekt ... " na ľavom paneli obrazovky . Double - kliknite na " Console Application . " Stlačte tlačidlo " Ctrl " a " A " a stlačte tlačidlo " Delete " odstrániť existujúce kód .
2
Skopírujte a vložte nasledujúci kód do modulu " Module1.vb " na vykonanie dotazu a vytvoriť tabuľku v databáze Northwind a potom vykonať ďalší dotaz a odstrániť tabuľku , ktorá bola vytvorená . Databáza Northwind je súčasťou balíka Microsoft Office .
Dovoz System.Data.OleDb
Module Module1
Sub Main ( )
Dim myConnToAccess ako OleDbConnection
Dim mySqlCommand Ako OleDbCommand
Dim mySQLStrg As String
myConnToAccess = new OleDbConnection ( " Provider = Microsoft.ACE.OLEDB.12.0 ; Data Source = C : \\ Northwind 2007.accdb ; " )
myConnToAccess.Open ( )
mySQLStrg = " CREATE TABLE tableToDelete ( [ Index ] Počet [ Popis ] TEXT ) ; "
mySqlCommand = new OleDbCommand ( mySQLStrg , myConnToAccess )
mySQLCommand.ExecuteNonQuery ( )
MsgBox ( " tableToDelete bola vytvorená vo vašej databáze Northwind " )
mySQLStrg = " DROP TABLE tableToDelete ; "
mySqlCommand = New OleDbCommand ( mySQLStrg , myConnToAccess )
mySQLCommand.ExecuteNonQuery ( )
MsgBox ( " tableToDelete bol zmazaný " )
myConnToAccess . Close ( )
End Sub End Module
3
Upraviť nasledujúci riadok kódu a zadajte cestu k databáze :
OleDbConnection ( " Provider = Microsoft.ACE.OLEDB.12.0 ; dát
Source = C : \\ Northwind 2007.accdb ; " )
Stlačte " F5 " spustiť program < . br >