Exportar una tabla de Fox pro a SQL Server desde Delphi

[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!

[Casimiro Noteví]

Aquí estaremos por si tienes cualquier duda

[[Caral]]

Hola
Yo convertiria primero de DBF a Access y luego a Sql Server, por que?:
1 Access y sql server son del mismo mocosoft asi que se entienden.
2 Para convertir de access a sql server el mismo access lo hace solo.
3 Aqui hay un programa que lo hace y no se tiene que tener ningun conocimiento previo.
Saludos

[ZiriusB]

He probado ese programa Caral, el problema es que el usuario desde el mismo sistema debe con un boton (IMPORTAR POSICIONES) importar directamente, osea el usuario en un click debe guarda esos datos de la tabla de foxpro que se creo (.dbf) en una tabla de sql.... para el usuario todo este proceso es invisible, el solo da clic y listo ya tiene las posiciones en la base de datos SQL. Y dicho sea de paso este proceso se hace varias veces al mes y se hace y hara SIEMPRE!

Es por eso que no puedo hacerlo con el programa que tu me recomiendas, de todas formas gracias por responder! si tienes alguna otra sugerencia sera bienvenida!

[[Caral]]

Hola
La idea mas sencilla es la que te indica Casimiro.
Lo que necesitas es simplemente que los campos de las dos tablas y bases de datos coincidan.
La verdad no entiendo la razon para que se necesiten dos bases de datos, seria mejor eliminar una, ademas de eliminar del todo el programa de foxpro que debe ser la razon de todo esto.
Saludos

[ZiriusB]

Código Delphi [-]
procedure TForm20.ImportarClick(Sender: TObject);
begin
adoqdbf.open;
table1.open;
while not table1.eof do
begin
adoqdbf.append;
adoqdbf.FieldByName('Codproy').AsInteger := Table1.FieldByName('Proy').AsInteger;
adoqdbf.FieldByName('Codposic').AsInteger := Table1.FieldByName('Pos').AsInteger;
adoqdbf.FieldByName('Espec').AsInteger := Table1.FieldByName('Esp').AsInteger;
adoqdbf.FieldByName('Desc').AsString := Table1.FieldByName('Nombre').AsString;

adoqdbf.FieldByName('Horas').AsInteger := Table1.FieldByName('Trabajo').AsInteger;
adoqdbf.FieldByName('Fecini').AsDateTime := Table1.FieldByName('Comienzo').AsDateTime;
adoqdbf.FieldByName('Fecfinp').AsDateTime := Table1.FieldByName('Fin').AsDateTime;
table1.next;
end;
    ShowMessage('Se han cargado nuevas posiciones al Sistema de Tarjetas');
end;

Bueno, me ha quedado asi y pues ya funciona, muchisimas gracias por su ayuda!


CARAL, respondiendo a lo que dijistes de que porque se usan dos bases de datos es porque la tabla .dbf se crea a partir de una exportacion que hacen desde MICROSOFT PROJECT a traves de una macro de visual basic...

Como es algo urgente, me toca por el momento dejandolo trabajar asi para luego ver como borro por completo el sistema viejo (si te contara el enredo con el que se trabaja jajajaja)