basico32
16 de Febrero del 2004

Hola estoy migrando de Clipper a VB. y necesito una rutina que me pase mis DBF que tengo llenas de datos a MDB.
Gracias

Baltasar
16 de Febrero del 2004

Tienes varias opciones:

1.- usando access, puedes crear un MDB y luego importar tablas de DBF

2.- crearte tus propias rutinas de paso de datos entre tus ficheros. Para usar un DBF en visual puedes abrirlo así:

Set DBase = OpenDatabase("c:dbfs", False, False, "dbase iii")
Set RS0 = DBase.OpenRecordset("select * from tabla order by campo1")

Teniendo en cuenta que c:dbfs es la ruta hasta tus ficheros dbf, de modo que el fichero sería algo como C:DBFSTABLA1.DBF

frank monzon
16 de Febrero del 2004

crea un formulario en visual con dos data, uno lo vas a vincular con la la dbf utilizando database III, la otra con la misma estructura de campos pero vinculada a la mdb. y el codigo sera el siguiente

datadbf.refresh
datamdb.refresh

datadbf.recordset.movefirst
do while datadbf.recordset.eof()
if datadbf.recordset.eof() then
exit sub
else
lista de campos dbf comparados a una variable
de esta manera
xcodi=datadbf.recordset("codigo")
xnombre=datadbf.recordset("nombre")
xdireccion=datadbf.recordset("direccion")
asi sucesivamente con todos los campos
** aqui entra la mdb
datamdb.recordset.addnew
datamdb.recordset("codigo") = xcodigo
datamdb.recordset("nombre") = xnombre
datamdb.recordset("direccion")=xdireccion
asi con todos locampos y luego actulizar el datamdb.recordset.update()
datadbf.recordset.movenext
endif
loop
** buena suerte


*** ahora te pido ayuda con respecto a filtros