Abrir dbf con Visual Basic 6.0
Publicado por Pilar (1 intervención) el 13/02/2001 09:20:03
Hola, estoy trabajando en visual Basic 6.0 e intento trabajar con una tabla de base de datos en dbase III. Necesito hacer una seleccion de algunos campos que cumplen alguna condicions determinada pero tengo en problema de que no me apecta el recordset.
Para ello pongo la siguiente sentencia, teniendo en cuenta que la tabla a abrir es "hrecauda.dbf" y está en una ruta.
Las sentencias que utilizo son las siguientes:
ruta = "D:\IN\AU"
Dim MIBASEDATOS As Database
Dim MIRECORDSET As Table
Set MIBASEDATOS = OpenDatabase(ruta, False, True, "dBASE III;")
Set MIRECORDSET = MIBASEDATOS.OpenRecordset("Hreda", dbOpenDynaset)
SENTENCIA_SELECT = "SELECT * FROM HREDA"
Set MIRECORDSET = MIBASEDATOS.OpenRecordset(SENTENCIA_SELECT, dbOpenDynaset)
pero desgraciadamente me da error en la siguiente linea:
Set MIRECORDSET = MIBASEDATOS.OpenRecordset("Hreda", dbOpenDynaset)
Para ello pongo la siguiente sentencia, teniendo en cuenta que la tabla a abrir es "hrecauda.dbf" y está en una ruta.
Las sentencias que utilizo son las siguientes:
ruta = "D:\IN\AU"
Dim MIBASEDATOS As Database
Dim MIRECORDSET As Table
Set MIBASEDATOS = OpenDatabase(ruta, False, True, "dBASE III;")
Set MIRECORDSET = MIBASEDATOS.OpenRecordset("Hreda", dbOpenDynaset)
SENTENCIA_SELECT = "SELECT * FROM HREDA"
Set MIRECORDSET = MIBASEDATOS.OpenRecordset(SENTENCIA_SELECT, dbOpenDynaset)
pero desgraciadamente me da error en la siguiente linea:
Set MIRECORDSET = MIBASEDATOS.OpenRecordset("Hreda", dbOpenDynaset)
Valora esta pregunta


0