¿Al importar Excel en VB6.0, aparece "No se puede encontrar ISAM insertable"?

Microsoft. Jet.OLEDB.4.0 no parece ser compatible con Excel y se puede acceder a él mediante DAO.

Primero, debe consultar la biblioteca de objetos Microsoft DAO 3.6.

Atenuar DB como DAO. Base de datosˌBase de datos

Dim RS es Tao. Conjunto de registros

Establecer DB = OpenDatabase("d:\data.xls", false, false, "Excel 8.0")

Establecer RS ​​= DB. OpenRecordset ("archivo $ ")

Establecer DataGrid1. Fuente de datos = RS

Parece que aquellos que no pueden encontrar un ISAM conectable simplemente no soportan este formato de datos.

Lo siento, acabo de mirarlo. Datagrid solo admite la fuente de datos de ADO. Si debe utilizar el enlace de control, puede utilizar Microsoft FlexGrid y vincular la fuente de datos de dao.

Si solo desea mostrarlo, le sugiero que no vincule un control ListView en el formulario, luego cambie el modo de visualización a lvReport en las propiedades de ListView y agregue títulos de columna (título) y columnas de Excel una. por uno. El código es el siguiente

Dim DB As DAO. Base de datosˌbase de datos

Dim RS es Tao. Conjunto de registros

Establecer DB = OpenDatabase("d:\data.xls", false, false, "Excel 8.0")

Establecer RS ​​= DB. OpenRecordset ("file $ ")

Atenuar li como ListItem

Vista de lista 1. Listar elementos. Limpiar

Hacer hasta RS. Fin del archivo

Establecer li = ListView1. ListItems.Add(,,(RS(0))

Para i = 1 a Rs.Field.Count - 1

li.Item(1) = Rs(1)

Luego

RS Siguiente

Timbre