Exportar una tabla de Fox pro a SQL Server desde Delphi

[ZiriusB]

De verdad necesito ayuda con esto, si tienen alguna sugerencia se los agradeceria...

[Casimiro Noteví]

Explica con más detalle, por favor.

[ZiriusB]

Buenas amigos, les cuento desde el principio para que entiendan, en la empresa existe un sistema para llevar el control de horas, trabajadores, proyectos, embarcaciones etc etc...el sistema esta basado en Foxpro, el informatico anterior decidio hacer la aplicacion en Delphi pero dejo algunos(MUCHOS) cabos sueltos e importantes, uno de ellos es el siguiente.

Desde Microsoft projetc el Jefe de Reparacion hacia su cronograma y luego por una macro en project este EXPORTABA la tabla a .dbf, luego iba al sistema e IMPORTABA esa tabla que habia sido creada...

Ahora con el nuevo sistema no encuentro la forma de IMPORTAR esa tabla .dbf que se crea para añadirla a la tabla SQL a la que debe ir...

estuve buscando mucho por la web y no encontre mayor ayuda...

----

Ahora solo tengo un TTABLE (Propiedad Databasename = al directorio donde van las dbf creadas), un Datasource conectado a TTABLE y su respectivo DBGRID que me muestra la tabla .DBF que selecciono(busco la tabla con un opendialog)...

Código Delphi [-]
If OpenDialog1.Execute Then
    Begin
     Table1.Close;
     Table1.DatabaseName := ExtractFilePath (OpenDialog1.Filename);
     Table1.TableName := ExtractFileName (OpenDialog1.Filename);
     Table1.Active := True;

    End;

Lo que quiero es luego de tener cargada la tabla de Foxpro cargada en el DBGRID pasar esos datos a SQL SERVER, o si existe una forma mas sencilla de hacerlo... agradezco enteramente su ayuda!

Gracias

-----

En resumen lo que quiero es pasar una tabla de foxpro (.dbf) a una tabla ya creada en SQL SERVER!

Cual duda tienes?, gracias por responder

[Casimiro Noteví]

Si puedes leer la tabla dbf, entonces ahora sólo tendrás que ir recorriendo todos los registros y guardarlos en la otra base de datos.
¿Cuál es el problema?

[ZiriusB]

Fue lo que me dijeron mas arriba, pero necesito un ejemplo no soy muy experto y queria un empujon, gracias por responder!

[Casimiro Noteví]

Pues depende de qué componentes estás usando, pero básicamente:

Código Delphi [-]
tablanueva.open;
tabladbf.open;
while not tabladbf.eof do
begin
  tablanueva.append;
  tablanueva.campoxxx := tabladbf.campoxxx;
  tablanueva.campoyyy := tabladbf.campoyyy;
  tablanueva.campozzz := tabladbf.campozzz;
  tablanueva.post;
  //
  tabladbf.next;
end;
tablanueva.transaction.commit;

[ZiriusB]

Uso un TTABLE para cargar la tabla de foxpro en el grid...

para grabar a SQL usare ADO!

mañana hago las pruebas, desde ya muchas gracias por la respuesta!