Создание БД

← →
xOn © (2005-02-21 09:01) [0]

Я как новичок, хотел спросит следующее,
1. Как создается БД (база данных) в среде Delphi 7 ?
2. Как в программе указать добавит новых данных в существующий БД ?

Если можно дайте маленкий код пример, или ссылки.

Заранее спасибо.

← →
Anatoly Podgoretsky © (2005-02-21 09:07) [1]

А причем тогде Д5 и Д6
В большинстве случаев общий синтаксис такой CREATE DATABASE

← →
ЮЮ © (2005-02-21 09:14) [2]

>Если можно дайте маленкий код пример
Думаешь поможет?

(для MS SQL)
procedure TCADOConnection.CreateDatabase(const DBName: string);
var
i, p, lcs: integer;
prevDBName: string;
begin
// здесь FADO: TADOConnection;
if not FADO.Connected then
raise ECCon.Create(
"Соединение с БД не установлено"
);

p := Pos("Initial Catalog=", FConnectionString);
if p > 0 then begin
Inc(p, Length("Initial Catalog="));
lcs := Length(FConnectionString);
SetLength(prevDBName, lcs);
i := p;
while (i <= lcs) and (FConnectionString[i] <> ";") do begin
prevDBName[i - p + 1] := FConnectionString[i];
Inc(i);
end;
SetLength(prevDBName, i - p);
end;

Connect;
Exec("USE master");
Exec("CREATE DATABASE " + DBName);

Disconnect;
FConnectionString := StringReplace(
FConnectionString,
"Initial Catalog=" + prevDBName,
"Initial Catalog=" + DBName,
[rfReplaceAll]
);
Connect;
end;

(для IB)
procedure TCIBXConnection.CreateDatabase(const Login, Password: string);
begin
// здесь FDatabase: TIBDatabase, Params -
FDatabase.Params;

Params.Delete(Params.IndexOfName("user_name"));
Params.Delete(Params.IndexOfName("password"));
Params.Add("USER "" + Login + """);
Params.Add("PASSWORD "" + Password + """);
FDatabase.SQLDialect := 3;
FDatabase.CreateDatabase;
end;

← →
Desdechado © (2005-02-21 10:34) [3]

Вообще-то в среде Дельфи не создаются БД и с ними ничего не делается. А вот в программе на дельфи все это сделать можно, но сильно зависит от СУБД. Вариант для IB - выше.

Всем огромное спасибо, особенно, ЮЮ тебе.

Создание БД Найти похожие ветки