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 .