Visual Basic - Facil pero no me resulta

Life is soft - evento anual de software empresarial
 
Vista:

Facil pero no me resulta

Publicado por Felipe (165 intervenciones) el 26/02/2002 18:13:44
Quiero llamar a una base dedatos acces desde un form visual pero sin utilizar el datacontrol. He visto muchos ejemplos en la red, e incluso he bajado algunos pero cuando llevo las lineas a mi form me devuelve el siguiente error "Compile error: user-defined type not defined". Las lineas que estoy usando son las siguientes:

Sub Form_Load()
Dim mibase As Database
Dim org As Recordset
Set mibase = Workspaces(0).OpenDatabase("path\chtrans.mbd")
Set org = mibase.openrecordset("org", dbOpenTable)
End Sub

Por favor cual es el error. Se supone que esto lo estoy copiando textual de otro form que si funciona o lineas que aparecen en cursos en internet...
Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Facil pero no me resulta

Publicado por adolfo (45 intervenciones) el 26/02/2002 18:57:25
hola Felipe. Yo lo hago así y funciona. Pero de todas maneras, asegurate de que el nombre de la tabla (en tu ejemplo parece ser "org") es correcto. Espero que te valga:

Dim EspacioDeTrabajo As Workspace
Dim BaseDeDatos As database
Dim Registro As Recordset
Set EspacioDeTrabajo = Workspaces(0)
Set BaseDeDatos = EspacioDeTrabajo.OpenDatabase(Nombre de base)
Set Registro = BaseDeDatos.OpenRecordset(Nombre de tabla)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Facil pero no me resulta

Publicado por José Muñoz (9 intervenciones) el 27/02/2002 04:57:28
Sub Form_Load()
Dim mibase As Database
Dim org As Recordset
Set mibase = OpenDatabase(app.path & "\chtrans.mbd")
Set org = mibase.Openrecordset("org", dbOpenTable)
End Sub
El data control es necesario para que habilite las propiedades de Database y Recorset.
Te debe funcionar......

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar