Grabar consultas SQL a TXT
Hola Darnaldo, ¿un favor necesito como grabar las consultas que hago por sql con una interfaz desarrollada en Delphi 3 de una base de datos SQL 7.0 y de ahí grabarlo en un archivo de texto separado por comas? Esto con la finalidad de poder importarlo en otro sistema...
1 Respuesta
Respuesta de darnaldo
1
Te recomiendo ante todo que actualices a Delphi5 o 6, si deseas grabar los resultados de tu consulta imagino que debes de utilizar un query entonces lo que tienes que hacer primero es crear un procedimiento que grabe el archivo, así por ejemplo:
procedure T_form1.ocurrencia(A:String;B:String;C:String;D:String;E:String);
var
Listitem:Tlistitem;
F: TextFile;
ArchivoDia:string;
begin
AssignFile(F, GetCurrentDir + '\ARCHIVO.TXT' );
if Not (FileExists(GetCurrentDir + '\ARCHIVO.TXT')) then
Begin
Rewrite(F);
end;
Reset(F);
Append(F);
Writeln(a + ',' + b + ',' + c + ',' + d + ',' + e);
CloseFile(F);
end;
Luego en el momento que le das el consultar al query tienes que agregar el siguiente código en algún botón:
query1.first;
while not query1.eof do
begin
ocurrencia(query1['CAMPO1'],query1['CAMPO2'],query1['CAMPO3'],query1['CAMPO4'],query1['CAMPO5']);
query1.next;
end;
Con este código consigues que se graben los datos de 5 campos en el archivo ARCHIVO.TXT dentro de la ruta de tu programa, espero te sirva. Suerte!.
procedure T_form1.ocurrencia(A:String;B:String;C:String;D:String;E:String);
var
Listitem:Tlistitem;
F: TextFile;
ArchivoDia:string;
begin
AssignFile(F, GetCurrentDir + '\ARCHIVO.TXT' );
if Not (FileExists(GetCurrentDir + '\ARCHIVO.TXT')) then
Begin
Rewrite(F);
end;
Reset(F);
Append(F);
Writeln(a + ',' + b + ',' + c + ',' + d + ',' + e);
CloseFile(F);
end;
Luego en el momento que le das el consultar al query tienes que agregar el siguiente código en algún botón:
query1.first;
while not query1.eof do
begin
ocurrencia(query1['CAMPO1'],query1['CAMPO2'],query1['CAMPO3'],query1['CAMPO4'],query1['CAMPO5']);
query1.next;
end;
Con este código consigues que se graben los datos de 5 campos en el archivo ARCHIVO.TXT dentro de la ruta de tu programa, espero te sirva. Suerte!.
