Ver Mensaje Individual
  #2 (permalink)  
Antiguo 29/05/2009, 13:25
Avatar de buxforever
buxforever
 
Fecha de Ingreso: abril-2009
Ubicación: Tijuana, B.C
Mensajes: 107
Antigüedad: 16 años
Puntos: 0
Respuesta: error 80004005 en vb

Cita:
Iniciado por buxforever Ver Mensaje
error 80004005 en vb me marca No se puede encontrar ISAM Instalable alguien sabe como resolverlo ya busque por todo el internet y no logro solucionarlo..
el codigo es el siguiente


Dim cat As ADOX.Catalog
Set Conexion_MDB = New ADODB.Connection
Set Rst_Mdb = New ADODB.Recordset
Set cat = New ADOX.Catalog
'
' Crear la base de datos
cat.Create "Provider=" & "Microsoft.Jet.OLEDB.4.0" & ";" & "Data Source=" & "c:\bd.mdb" & ";"

Conexion_MDB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\bd.mdb"

Conexion_MDB.Open
Rst_Mdb.ActiveConnection = "Provider= Microsoft.Jet.OLEDB.4.0;Data" & ";" & "Data Source= c:\ bd.mdb" & ";"
Rst_Mdb.CursorLocation = adUseClient
Rst_Mdb.CursorType = adOpenDynamic
Rst_Mdb.LockType = adLockBatchOptimistic

Conexion_MDB.Execute "CREATE TABLE nombre_tabla " & _
"(id autoincrement," & _
"nombre text(255)," & _
"apellidos text(255)," & _
"primary key(id))"

Conexion_MDB.Close
Set Conexion_MDB = Nothing

Set Rst_Mdb = Nothing
Set cat = Nothing