Visual Basic - Abrir DBF

Life is soft - evento anual de software empresarial
 
Vista:

Abrir DBF

Publicado por Anahis (42 intervenciones) el 06/06/2006 17:22:24
Dim base As Database
Dim tabla As Recordset

var_dir = Me.lista.Path
VAR_ARC = Me.archivos.FileName

Set base = OpenDatabase(var_dir, False, False, "dbase iv;")
Set tabla = base.OpenRecordset(var_arc, dbOpenDynaset)

Estas lineas me arrojan este error cuando la ejecuto. Alguien me puede decir a que se debe... o que esta malo en el codigo

El Sistema Operativo no admite la secuencia de ordenacion seleccionada.....
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:Abrir DBF

Publicado por Moises (8 intervenciones) el 06/06/2006 20:20:20
dos comprobaciones:
1º que la variable var_dir termine con slash ("c:\MiDirectorio\")
y la 2ª la variable VAR_ARC debe de tener solamente el archivo a abrir ("MiBaseDBF") y FileName dá la ruta completa, inténtalo con FileTitle aunque quizá le tengas que quitar la extensión.
Salus.
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:Abrir DBF

Publicado por Anahis (42 intervenciones) el 06/06/2006 20:41:04
Gracias por tu respuesta; pero no me funciono sigue dando el mismo error... Quien me pueda ayudar se los agradeceria de antemano
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:Abrir DBF

Publicado por Moises (8 intervenciones) el 06/06/2006 21:09:13
vale, si has comprobado lo dicho anteriormente, en la apertura del recordset le quitas dbOpenDynaset.
Espero que estés trabajando con una base de DBase y no de Fox.
salds
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:Abrir DBF

Publicado por jose carlos (340 intervenciones) el 06/06/2006 21:45:32
yo las abro así:

data.Connect = "dbase iii;"
data.DatabaseName = App.Path
data.RecordSource = "select * from provi.dbf order by nombre"
data.Refresh

espero te sirva

saludos
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