VB y Win XP !!!
Publicado por Pablo (2 intervenciones) el 04/09/2002 07:27:31
Hola Gente!
He instalado el Windows XP Home Edition, Visual Basic 6.0 sp5. El tema es que cuando quiero conectarme a una DB (Access 2000), me tira un error:
Error 430
Esta clase no admite Automatizacion o no admite la interfaz esperada
Este es el codigo:
Private Sub Command1_Click()
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection ' ACA ME TIRA EL ERROR
With cn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Prueba.mdb;Persist Security Info=False;Jet OLEDB:Database Password=123456"
.ConnectionTimeout = 30
.CursorLocation = adUseClient
.Open
End With
If cn.State = adStateOpen Then
MsgBox "Conectado !!"
Else
MsgBox "Error al conectar" & vbCrLf & Err.Description, vbCritical, Err.Number
End If
End Sub
He instalado el Mdac2.6, el Mdac2.7 tambien ....en referencias utilizo, Microsoft ActiveX Data Objects 2.5, 2.6, 2.7...y nada..el mismo error.
Alguno sabe que puede ser ??? alguna ayuda ???
Desde ya, muchas gracias.
Saludos.
Pablo.
He instalado el Windows XP Home Edition, Visual Basic 6.0 sp5. El tema es que cuando quiero conectarme a una DB (Access 2000), me tira un error:
Error 430
Esta clase no admite Automatizacion o no admite la interfaz esperada
Este es el codigo:
Private Sub Command1_Click()
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection ' ACA ME TIRA EL ERROR
With cn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Prueba.mdb;Persist Security Info=False;Jet OLEDB:Database Password=123456"
.ConnectionTimeout = 30
.CursorLocation = adUseClient
.Open
End With
If cn.State = adStateOpen Then
MsgBox "Conectado !!"
Else
MsgBox "Error al conectar" & vbCrLf & Err.Description, vbCritical, Err.Number
End If
End Sub
He instalado el Mdac2.6, el Mdac2.7 tambien ....en referencias utilizo, Microsoft ActiveX Data Objects 2.5, 2.6, 2.7...y nada..el mismo error.
Alguno sabe que puede ser ??? alguna ayuda ???
Desde ya, muchas gracias.
Saludos.
Pablo.
Valora esta pregunta


0