|
|
Delphi BDE ile database uygulaması - Delphi / Kylix Webmaster bilgi bankası, knowledge base Webmaster Araçları
| AnaSayfa > Delphi / Kylix > Delphi BDE ile database uygulaması | |
| | Kategori | : Delphi / Kylix | | Gönderen | : Admin | | Tarih | : 2011-02-20 | | Puan | : 6  | Katılımcı : 4 | | Okunma | : 7720 | | | | | |
| |
uses DBTables;
procedure TForm1.Button1Click(Sender: TObject);
var CurrentAliases: TStringList;
begin
CurrentAliases := TStringList.Create;
Session.GetAliasNames(CurrentAliases);
ComboBox1.Items:= CurrentAliases;
CurrentAliases.Free;
end;
uses DBTables;
...
var sMaybeAlias : string;
...
Session.IsAlias(sMaybeAlias)
...
uses dbtables;
procedure TForm1.Button1Click(Sender: TObject);
var sMaybeAlias : string;
DBPath : string;
ParamList : TStringList;
begin
sMaybeAlias := 'DBDEMOS';
if Session.isAlias(sMaybeAlias) then
begin
ParamList := TStringList.Create;
try
Session.GetAliasParams(sMaybeAlias, ParamList);
DBPath := ParamList.Values['PATH'];
finally
ParamList.Free;
end;
ShowMessage('Path to '+sMaybeAlias+' is '+DBPath);
end
else ShowMessage(sMaybeAlias+' is not an alias!');
end;
...
sNewAlias := 'MyNewParadoxAlias'
sDataDir := 'c:\MyApplication\NewDataDirectory'
Session.AddStandardAlias
(sNewAlias, sDataDir, 'PARADOX');
...
uses dbtables;
procedure TForm1.Button1Click(Sender: TObject);
var AliasParams : TStringList;
AliasDirectory : string;
AliasName : string;
begin
AliasDirectory:='c:\MyApp\Data\IBData.GDB';
AliasName:='IBNewData';
AliasParams := TStringList.create;
try
AliasParams.Values['SERVER NAME'] := DataFile;
AliasParams.Values['USER NAME'] := 'SYSDBA';
Session.AddAlias
(AliasName, 'INTRBASE', AliasParams);
Session.SaveConfigFile;
finally
AliasParams.Free;
end;
|
| Yorumlar | | Henüz Kimse Yorum Yapmamış, ilk yorumu siz ekleyin! | | Yorum Ekleme Aparatı | Yorum Eklemek için lütfen sol menuden giris yapınız.. | | Toplam 0 yorum listelendi. |
|
