Crear una consulta desde VB
Publicado por Rubén (47 intervenciones) el 24/09/2002 11:37:37
Mi objetivo es crear una consulta desde VB, cosa que lograba fácilmente en Access' 97 con instrucciones del tipo:
Dim base As Database, cons As QueryDef
Set base = CurrentDb
Set cons = base.CreateQueryDef("Consulta","Select ...")
base.QueryDefs.Append cons
Ahora tengo que emplear Access'2000, y con la sintaxis sugerida en la ayuda, por ejemplo,
Dim catal As New ADOX.Catalog
Dim comando As New ADODB.Command
Set catal.ActiveConnection = CurrentProject.Connection
comando.CommandText "Select..."
Cat.Views.Append "Consulta", comando
no consigo que me admita la definición "ADOX", ¿qué puedo estar haciendo mal? ¿Hay forma de emplear la sintaxis DAO anterior?
Gracias anticipadas
Dim base As Database, cons As QueryDef
Set base = CurrentDb
Set cons = base.CreateQueryDef("Consulta","Select ...")
base.QueryDefs.Append cons
Ahora tengo que emplear Access'2000, y con la sintaxis sugerida en la ayuda, por ejemplo,
Dim catal As New ADOX.Catalog
Dim comando As New ADODB.Command
Set catal.ActiveConnection = CurrentProject.Connection
comando.CommandText "Select..."
Cat.Views.Append "Consulta", comando
no consigo que me admita la definición "ADOX", ¿qué puedo estar haciendo mal? ¿Hay forma de emplear la sintaxis DAO anterior?
Gracias anticipadas
Valora esta pregunta


0