Tema: helppp
Ver Mensaje Individual
  #1 (permalink)  
Antiguo 23/01/2009, 09:26
kakoxvid
 
Fecha de Ingreso: enero-2009
Mensajes: 31
Antigüedad: 15 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