hvordan du indsætter en datasæt til en tabel i Visual Basic
1
Start Microsoft Visual Basic Express og Klik på " Nyt projekt . . . " i venstre rude på skærmen . Dobbeltklik på " Console Application . "Tryk " Ctrl "og " A ", og tryk derefter på "Slet " for at slette eksisterende kode .
2 .
Kopier og indsæt følgende kode ind på din " Module1. vb "-modulet . Koden vil oprette en forbindelse til en Microsoft Access- database , spørge i " TEST_CASE " og indsætte dens indhold i en datatabel . Koden vil så vise indholdet af data tabellen .
Import System. Data. OleDb
Modul Module1
Sub Main ( )
Dim connString As String=" Provider=Microsoft . Jet. OLEDB. 4. 0 ; Data Source=C : \ testDatabase. mdb "
Dim MinForbindelse Som OleDbConnection=Ny OleDbConnection
Dim da Som OleDbDataAdapter
Dim ds Som DataSet
myConnection. ConnectionString=connString
da=Ny OleDbDataAdapter ( " SELECT TEST_CASE . * FRA TEST_CASE " , MinForbindelse )
ds=New DataSet
da. Fill ( ds , " TEST_CASE " )
Dim dt Som DataTable=ds . Tabeller ( " TEST_CASE " )
For Each dtRow Som DataRow I dt. Rows
For Each col Som DataColumn I dt. Columns
Console . WriteLine ( dtRow ( COL ) )
Næste
Console. WriteLine (" " . PadLeft (20 , "="))
Næste
myConnection. Close ( )
End Sub
.
endemodul
3
Rediger følgende kodelinje og skriv stien til din Access-database :
Dim connString As String=" Provider=Microsoft . Jet. OLEDB. 4. 0 ; Data Source=C : \ testDatabase. mdb "
Tryk på " F5 " for at køre dit program
.
Previous:hvordan man kan erstatte en værdi i en adgang forespørgsel Next:hvordan man åbner en postsættet