Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Spustite program Microsoft Visual Basic Express a kliknite na tlačidlo " Nový projekt ... " na ľavom paneli obrazovky . Double - kliknite na " Aplikácia konzoly . "
2
Stlačte tlačidlo " Ctrl " a " A " , a potom stlačte tlačidlo " Delete " odstrániť existujúci kód .
3
skopírujte a vložte nasledujúci kód do modulu " Module1.vb " . Kód bude pripojenie súboru a dotaz na súbor CSV pomocou výberového dotazu. Výsledky dotazu potom bude vložený do dátového súboru , a počet stĺpcov a riadkov sa zobrazí cez " okno konzoly . "
Dovoz System.Data.OleDb
Module Module1
Sub Main ( )
Dim oleString As String
oleString = " Provider = microsoft.jet.oledb.4.0 ; "
oleString = oleString a " dát source = C : \\ ; Extended Properties = " " Text " ;
oleString = oleString & " HDR = No , FMT = čiarkou " " "
Dim conn As New OleDbConnection ( oleString )
Dim da As New OleDbDataAdapter ( )
Dim ds ako New DataSet ( )
Dim oldeComm ako nový OleDbCommand ( " SELECT * FROM C : \\ CSVFile.csv " , prip )
conn.Open ( )
da.SelectCommand = oldeComm
ds.Clear ( )
da.Fill ( ds , " CSV " )
Console.Write ( " Počet stĺpcov : " . & ds.Tables ( 0 ) Columns.Count )
Console.Write ( " Počet riadkov : " & ds.Tables ( 0 ) . Rows.Count )
Conn.Close ( )
End Sub End Module
4
Upraviť nasledujúci riadok kódu a zadajte cestu k súboru do vášho súboru CSV :
Dim oldeComm As New OleDbCommand ( " SELECT * FROM C : \\ CSVFile.csv " , prip )
Stlačte " F5 " pre spustenie programu .