Форум: "Основная";
Текущий архив: 2003.08.28;
Скачать: [xml.tar.bz2];
ВнизИмпорт данных из текстового файла в БД Найти похожие ветки
← →
Fenixx (2003-08-15 14:08) [0]Подскажите пожалуста как импортировать данные в Бд (Paradox, interbase) из текстового файла. Для экспорта данных использовался следующий код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Db, DBTables, Grids, DBGrids;
type
TForm1 = class(TForm)
DataSource1: TDataSource;
MyTable: TTable;
DBGrid1: TDBGrid;
Button1: TButton;
Dlg: TSaveDialog;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure ExportToASCII;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.ExportToASCII;
const
FASCIISeparator:string=";";
var
I: Integer;
Dlg: TSaveDialog;
ASCIIFile: TextFile;
Res, FASCIIFieldNames: Boolean;
FASCIIFileName:string;
begin
with MyTable do
begin
if Active then
if (FieldCount > 0) and (RecordCount > 0) then
begin
Dlg := TSaveDialog.Create(Application);
Dlg.FileName := FASCIIFileName;
Dlg.Filter := "ASCII-Fiels (*.asc)|*.asc";
Dlg.Options := Dlg.Options+[ofPathMustExist,
ofOverwritePrompt, ofHideReadOnly];
Dlg.Title := "
← →
Leran2003 (2003-08-15 16:13) [1]Gusev@court.uu.ru
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.08.28;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c