Создание таблицы FOXPRO

Советы » Другое » Создание таблицы FOXPRO

if

savedialog1.execute then

begin

if

FileExists(savedialog1.filename) then

DeleteFile(savedialog1.filename); //QUERY.DataSource НЕ ЗАПОЛНЕНО иначе взрыв гарантирован with

Session do

begin

ConfigMode := cmSession; try

AddStandardAlias('TEMPDB', extractfilepath(savedialog1.filename), 'FOXPRO'); //FOXPRO finally

ConfigMode := cmAll; end

; end

; with

database1 do

begin

databasename:='tst'; LoginPrompt := False

; Params.Values['PATH'] :=extractfilepath(savedialog1.filename); DriverName:='Microsoft FoxPro Driver (*.dbf)'; AliasName:='TEMPDB'; end

; query1.paramcheck := false

; Query1.DatabaseName := 'tst'; Query1.SQL.Clear; vrem:=Trim(ChangeFileExt(extractfilename(SaveDialog1.fileName),' ')); query1.sql.Add('CREATE TABLE '''+vrem+''' ('); query1.sql.Add('last_name CHAR(20),'); query1.sql.Add('first_name CHAR(15),'); query1.sql.Add('salary DECIMAL(10,2));'); //NUMERIC query1.ExecSQL; query1.close; end

; // от savedialog

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com