Visual Basic 6
Ver Más instrucciones
1
Crear un nuevo proyecto en Visual Basic . Si desea añadir la funcionalidad para leer un archivo CSV a un proyecto existente , puede saltarse este paso.
2
Agregar una clase al proyecto , haga clic en el nombre del proyecto en el Proyecto explorer y seleccionando la opción " Agregar módulo de clase . "
3
Establezca la propiedad nombre de la clase de " CFileReader " o un nombre con sus estándares de codificación .
4 < p> Añadir una referencia a los objetos de datos activos ( ADO) biblioteca seleccionando el "Proyecto> Referencias" del menú y luego seleccionar la opción " Microsoft ActiveX Data Objects 2.5 Library " o el " ActiveX Data Objects 2.6 Library Microsoft . "
Página 5
Escriba el siguiente código en la clase :
privado Función ReadCSV ( fileName ByVal como secuencia) como ADODB.Recordset
conexión As ADODB.Connection
< p> fileRecords dévil como ADODB.Recordset
fileQuery dévil como secuencia
numCamp Dim As Integer
" Esta unidad es compatible con las propiedades extendidas = 'text ; FMT = delimitado "
' también hay un argumento adicional , HDR con sí o no los valores que indica si el archivo tiene un encabezado
" Provider = Microsoft.Jet " connOpen _
' & " OLEDB.4.0 ; . Data Source = " & _ app.Path
" &" ; propiedades extendidas = 'text ; HDR = NO; "_
" & " FMT = delimitado "
conexión Set
= New ADODB.Connection
connection.ConnectionString = _
" Driver = { Microsoft Text Driver (* txt , . *. csv ) } ; " & _
" DBQ = "& App.Path &" , " ", " ", "
Connection.Open
fileQuery = " Select * FROM "& fileName
Set fileRecords = Connection.Execute ( fileQuery )
Establecer ReadCSV = fileRecords
End Function
Este código se conecta a un archivo de texto con el Microsoft controlador de texto y selecciona todas las filas en un conjunto de registros ADO .
6
llamar a la función desde el evento deseado o aplicación de consola.