valores separados por comas ( CSV ​​) es un formato de archivo de texto simple que se utiliza comúnmente para almacenar datos. Una fila representa cada registro en este formato, y dentro de cada fila, una coma separa cada valor. 6 secuencias de archivo de entrada-salida de Visual Basic o de objetos de acceso a datos se pueden utilizar para cargar y leer un archivo CSV. Cosas que necesitará
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.