POR FAVOR AYUDA CON VB6 Y WIN98
Publicado por Aseluis (130 intervenciones) el 02/08/2003 23:50:01
Hola. Tengo una aplicación que me funciona perfectamente en win xp pero cuando la instalo en Win98 me da error 430 y dice que la clase no admite Automatización, más en concreto, Set rstClientes = New ADODB.Recordset Debajo pongo parte del código a ver si me lo podeis adaptar para win 98. muchas gracias.
ChDir App.Path
Const sPathBase As String = "clientes.mdb"
Set cnoClientes = New ADODB.Connection
Set rstClientes = New ADODB.Recordset
With cnoClientes
.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & sPathBase & ";"
.Open
End With
rstClientes.Open "SELECT * FROM clientes", cnoClientes, adOpenDynamic, adLockOptimistic
Y también abro un listview que me imagino que cuando correija el fallo anterior, el siguiente será este:
Set tssClientes = cnoClientes.Execute(criterio1Clientes2Clientes)
With tssClientes
ChDir App.Path
Const sPathBase As String = "clientes.mdb"
Set cnoClientes = New ADODB.Connection
Set rstClientes = New ADODB.Recordset
With cnoClientes
.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & sPathBase & ";"
.Open
End With
rstClientes.Open "SELECT * FROM clientes", cnoClientes, adOpenDynamic, adLockOptimistic
Y también abro un listview que me imagino que cuando correija el fallo anterior, el siguiente será este:
Set tssClientes = cnoClientes.Execute(criterio1Clientes2Clientes)
With tssClientes
Valora esta pregunta


0