Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Spustite program Microsoft Visual Basic Express , kliknite na tlačidlo " Nový projekt " na ľavom paneli obrazovky , potom vyberte "Windows Forms . " Kliknite na tlačidlo " OK " .
2
Double - kliknite na " tlačidlo " na " Toolbox " paneli pridať nový ovládací prvok tlačidla . Double - kliknite na " DataGridView " pre pridanie nového ovládacieho prvku mriežky . Kliknite pravým tlačidlom myši na ovládací prvok DataGridView " " , zvoľte " Upraviť stĺpca " sa otvorí " Pridať stĺpec " okno . Kliknite na " . Pridať "
3
zvoľte " DataGridViewCheckBoxColumn " vedľa " Typ : " kliknite na tlačidlo " Pridať " pridajte prvý stĺpec ako zaškrtávacie políčko stĺpca . Kliknite na tlačidlo " Close " .
4
Double - kliknite na " Button1 " otvorte modul " Form1.vb " . Zadajte nasledujúce v prvom riadku programu :
Dovoz System.Data.OleDb
5
Skopírujte a vložte nižšie " button1_Click " nasledujúce vytvoriť pripojenie k databáze :
Dim myConString As String
myConString = " Provider = Microsoft.ACE.OLEDB.12.0 ; Data Source = C : \\ Northwind 2007.accdb "
Dim connOledb Ako OleDbConnection = New OleDbConnection
Upraviť nasledujúci riadok kódu a zadajte cestu a názov databázy :
C : \\ Northwind 2007.accdb
6
zadajte nasledujúce Prehlasujem váš adaptér dát a dát nastaviť premenné :
Dim Dadapter ako OleDbDataAdapter
Dim DSET ako DataSet
7
Zadajte nasledujúci dotaz tabuľka " zamestnanci " :
connOledb.ConnectionString = myConString
Dadapter = New OleDbDataAdapter ( " . výber zamestnancov * od zamestnancov , " connOledb )
Upravte nasledujúci text a zadajte dotaz :
výber zamestnancov * od zamestnancov ;
8
Zadajte nasledujúce načítať dáta z dotazu a pridať ju do data Grid View ovládanie : .
DSET = new DataSet
Dadapter.Fill ( DSET , " zamestnanci " )
S Me.DataGridView1
. DataSource = DSet.Tables ( " zamestnanci " )
End With
connOledb.Close ( )
9
Zadajte nasledujúce zmenu písma a farebné vlastnosti ovládacieho prvku dát Grid View :
With Me . DataGridView1
. BackgroundColor = Color.Azure
. ForeColor = Color.Black
End With
S Me.DataGridView1.Rows
. bod ( 1 ) . Cells ( 2 ) . Style.BackColor = Color.Green
. bod ( 1 ) . Cells ( 2 ) . Style.ForeColor = Color.White
. položka ( 1 ) . Cells ( 1 ) . Style.Font = New Font ( " BlippoBlackEF " , 10 )
End With