Cita:
Iniciado por gady22 
hola quiero habris el contenido de un archivo de texto en un data grid tengo el siguiente codigo pero memarca el error de que el proveerdo jet no encuentra el archivo
'Función que devuelve el recordset con los datos
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
Private Sub Form_Load()
Command1.Caption = " Cargar Txt "
End Sub
ayuda porfavor
Hola,
¿en qué línea dá el error?
porque, aparentemente, tanto la conexión como la apertura del recordset están bién.
¿Existe el archivo "datos.txt" en el directorio de la aplicación?
