creare un nuovo progetto in Visual Basic . Se si desidera aggiungere la funzionalità di leggere un file CSV a un progetto esistente , è possibile saltare questo passaggio .
2
Aggiungere una classe al progetto facendo clic destro sul nome del progetto nel Progetto Explorer e quindi selezionare "Modulo Aggiungi classe . "
3
Impostare la proprietà Name della classe da " CFileReader " o un nome utilizzando i vostri standard di codifica .
4
Aggiungere un riferimento agli Active Data Objects ( ADO ) libreria selezionando il "Progetto> Riferimenti" del menu e poi selezionando l'opzione " Microsoft ActiveX Data Objects 2.5 Library " o la " ActiveX Data Objects 2.6 libreria Microsoft . "
5
Inserisci il seguente codice nella classe :
private Function ReadCSV ( fileName ByVal come stringa) come ADODB.Recordset
Dim connessione come ADODB.Connection
Dim fileRecords As ADODB.Recordset
Dim fileQuery As String Dim
fieldNum As Integer
'Questa unità supporta le proprietà estese = ' text ; FMT = delimitato ' "
' C'è anche un ulteriore argomento , HDR con sI o NO valori che indica se il file ha un colpo di testa
' "Provider = Microsoft.Jet " connOpen _
' & " OLEDB.4.0 ; . Data Source = " & App.Path _
' & " ; Extended Properties = ' text ; HDR = NO ; " _
' & " FMT = delimitato ' "
connessione Set
= New ADODB.Connection
connection.ConnectionString = _
" Driver = { Microsoft Text Driver ( * txt , . *. csv) } ; "& _
" DBQ = " & App.Path &" " , " " , " "
Connection.Open
fileQuery =" SELECT * FROM " & fileName
fileRecords = Connection.Execute ( fileQuery ) per
ReadCSV = fileRecords
End Function
Questo codice si collega a un file di testo utilizzando il Microsoft driver di testo e seleziona tutte le righe in un recordset ADO .
6
Chiama la funzione dall'evento desiderato o applicazione console .
Programmazione © www.354353.com