как создать программно БД из Delphi
От: Terv  
Дата: 04.01.05 17:53
Оценка:
в делфи реализовать программно создание БД , грубо говоря сделать тоже сам что делает Interactive SQL(Borland) командой
"create database "d:\base.gdb" user "SYSDBA" password "masterkey" DEFAULT CHARACTER SET WIN1251;"
Re: как создать программно БД из Delphi
От: Igor Trofimov  
Дата: 04.01.05 19:00
Оценка:
Обычно у компонентов доступа есть что-то навроде CreateDatabase.
Re: как создать программно БД из Delphi
От: Terv  
Дата: 04.01.05 22:18
Оценка:
Здравствуйте, Terv, Вы писали:

T>в делфи реализовать программно создание БД , грубо говоря сделать тоже сам что делает Interactive SQL(Borland) командой
T>"create database "d:\base.gdb" user "SYSDBA" password "masterkey" DEFAULT CHARACTER SET WIN1251;"?
Re: как создать программно БД из Delphi
От: Shtirliz Россия  
Дата: 11.01.05 06:34
Оценка:
Здравствуйте, Terv, Вы писали:

T>в делфи реализовать программно создание БД , грубо говоря сделать тоже сам что делает Interactive SQL(Borland) командой
T>"create database "d:\base.gdb" user "SYSDBA" password "masterkey" DEFAULT CHARACTER SET WIN1251;"


Var Query : TIBQuery;

Begin
  Query := TIBQuery.Create(Nil);
    Query.Database := IBDataBase;
    Query.Transaction := IBTransaction;
    Query.SQL.Text := 'create database "d:\base.gdb" user "SYSDBA" password "masterkey" DEFAULT CHARACTER SET WIN1251';
    try
      Query.ExecSQL;
    Finally
      Query.Free;
  End    ;
End;


Примерно так...
... -= RSDN@Home 1.1.4 beta 3 rev 241 =- А в Winamp'e — Весь в работе
Дункан Маклауд любил ходить в лес и издеваться над кукушками.
138385660
Re[2]: как создать программно БД из Delphi
От: DarkMaster Украина http://www.bdslib.at.ua
Дата: 11.01.05 08:28
Оценка:
Здравствуйте, Shtirliz, Вы писали:


T>>в делфи реализовать программно создание БД ,
S>
S>Var Query : TIBQuery;
S>Begin
S>  Query := TIBQuery.Create(Nil);
S> ........
S>End;
S>


S>Примерно так...

Может лучше так?

var DB:TIBDatabase;
begin
  DB:=TIBDatabase.Create(nil);
 try
  DB.DatabaseName:='D:\MyDatabases\DataBase.gdb';
  DB.Params.Text:='USER "SYSDBA"'#13#10'PASSWORD "masterkey"'#13#10'PAGE_SIZE 4096'#13#10;
  DB.SQLDialect:=3;
  try
    DB.CreateDatabase;
   except on E:Exception do ShowMessage('Error!');
  end;
 finally DB.Free; end;
end;
WBR, Dmitry Beloshistov AKA [-=BDS=-]
Re[3]: как создать программно БД из Delphi
От: Shtirliz Россия  
Дата: 11.01.05 09:18
Оценка:
Здравствуйте, DarkMaster, Вы писали:

DM>Может лучше так?

DM>
DM>var DB:TIBDatabase;
DM>begin
DM>  DB:=TIBDatabase.Create(nil);
DM> try
DM>  DB.DatabaseName:='D:\MyDatabases\DataBase.gdb';
DM>  DB.Params.Text:='USER "SYSDBA"'#13#10'PASSWORD "masterkey"'#13#10'PAGE_SIZE 4096'#13#10;
DM>  DB.SQLDialect:=3;
DM>  try
DM>    DB.CreateDatabase;
DM>   except on E:Exception do ShowMessage('Error!');
DM>  end;
DM> finally DB.Free; end;
DM>end;
DM>



Может быть.
Я никогда не занимался этим...
Скорее всего ты прав...
... -= RSDN@Home 1.1.4 beta 3 rev 241 =- А в Winamp'e — Весь в работе
Дункан Маклауд любил ходить в лес и издеваться над кукушками.
138385660
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.