
23/01/2009, 09:26
|
| | Fecha de Ingreso: enero-2009
Mensajes: 31
Antigüedad: 16 años, 4 meses Puntos: 0 | |
helppp tengo que leer un archivo de texto delimitado por tabulador y mostrarlo en un datagrid para posteerirmente almacenarlo en mysql todo esto desde vb6
Private Function Leer_Txt_con_Ado() As ADODB.Recordset
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
'Cadena de conexión
conn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" & _
"DBQ=" & App.Path & ";", "", ""
'Ejecutamos el recordset pasandole el archivo de texto en la cláusula From
rs.Open "select * from [datos#txt]", conn, adOpenStatic, _
adLockReadOnly, adCmdText
'eliminamos las variables
Set Leer_Txt_con_Ado = rs
Set rs = Nothing
Set conn = Nothing
End Function
Private Sub Command1_Click()
'Le asignamos el Datasource del datagrid a la función que devuelve el recordset
Set DataGrid1.DataSource = Leer_Txt_con_Ado
End Sub
esta es la funcion
ahora el problema es que con los archivos delimitados por coma los lee bien pero los por tabulador nop como arreglo la conexion para que me muesre bien los datos en el datagrid del txt delimitado por tabulador |