Conectando Excel con ADO
Publicado por Daniel1024 (1 intervención) el 15/06/2003 03:25:05
Hola , tengo un problema al conectarme a un archivo excel con ADO,
Los datos se ven perfectamente en el grid pero dejo bloqueado el archivo y nadie mas en la red puede ver el archivo.
cnn1 = "provider=microsoft.jet.OLEDB.4.0; data source=" & ruta & ";extended Properties=""Excel 8.0;hdr=YES;"""
Set con = New ADODB.Connection
con.Open cnn1
con.CursorLocation = adUseClient
str = "select Rut, dv, tarjeta, oficina, nombre, adicionales, estado, comentario, tipo, fecha from uno where tarjeta" & "=" & Txtrut.Text
Set rs1 = New ADODB.Recordset
rs1.Open str, con, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs1
Los datos se ven perfectamente en el grid pero dejo bloqueado el archivo y nadie mas en la red puede ver el archivo.
cnn1 = "provider=microsoft.jet.OLEDB.4.0; data source=" & ruta & ";extended Properties=""Excel 8.0;hdr=YES;"""
Set con = New ADODB.Connection
con.Open cnn1
con.CursorLocation = adUseClient
str = "select Rut, dv, tarjeta, oficina, nombre, adicionales, estado, comentario, tipo, fecha from uno where tarjeta" & "=" & Txtrut.Text
Set rs1 = New ADODB.Recordset
rs1.Open str, con, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs1
Valora esta pregunta
0