Информация о форуме
Администратор: root
Модератор(ы): Mikes, Lurid, Kiddy
Всего тем: 20

Вы можете читать форум
Вы не можете отправлять сообщения
Вы не можете открывать новые темы

Форум: Soft & Warez
все о программах, новых и старых
венн_BDS2005 : Delphi
AndrЮshkA
17.07.07 10:36 		with query do
begin

Close;
SQL.Text:='CREATE TABLE '+ cb1.Text + ' (Курорт
varchar(50))';
Open;

Active:=false;
SQL.Text:='select курорт from '+cb1.Text;
Active:=True;

Edit;
FieldByName('Курорт').AsString:=cb2.text;
Post;

end;

че тут не так? :))
венн_rage
17.07.07 10:57 		AndrЮshkA: (17.07.07 10:36)
with query do
begin

Close;
SQL.Text:='CREATE TABLE '+ cb1.Text + ' (Курорт
varchar(50))';
Open;

Active:=false;
SQL.Text:='select курорт from '+cb1.Text;
Active:=True;

Edit;
FieldByName('Курорт').AsString:=cb2.text;
Post;

end;

че тут не так? :))


 а что тебе мешает записать в SQL две строки подряд?

with query
active := false;
SQL.Add('CREATE TABLE '+ cb1.Text + ' (Курорт
varchar(50))');
SQL.Add('select курорт from '+cb1.Text);
active := true;
end;
венн
24.07.07 14:39 		>AndrЮshkA

такой вариант не устраивает?

procedure TForm1.FormCreate(Sender: TObject);
var
dt: TDateTime;
dtStr: string;
begin
dt := now;
DateTimeToString(dtStr, 'dd mmmm yyyy'+' г.', dt);
Application.MessageBox(PChar(dtStr),PChar(Application.Title)
,MB_OK);
end;
igorturkey
05.12.09 15:45 		XEprP6 <a
href="http://yqxrltjatjgb.com/">yqxrltjatjgb</a>,
[url=http://csbvluwrhaiz.com/]csbvluwrhaiz[/url],
[link=http://oxnlunzyegoy.com/]oxnlunzyegoy[/link],
http://qbpdrsecynre.com/