Arsip: Gimana cara dapetin daftar DSN/Alias?

 
user image
more 18 years ago

arioss

Fren... saya mau bikin program yg akan menampilkan tabel2 pada suatu database, tapi masih bingung gimana caranya buat mendapatkan daftar DSN sama Alias. Ada yg bisa bantu?
user image
more 18 years ago

saysansay

Bisa bantu dikit sech...Wakakakaka Mas Ariooos kaya Basa Jepang aja wakakaka... Ok dech...Ini Procedeure DataBaseDescription...Yang jelas Klu ada alias Mas Pake Paradox ya...Klu DSN( Data Source name) Ini Pake Apa Dulu...??? Untuk Description BDE Nech Tak Bantuin...Kebangin Ndiri ya wakakakaakkaakkakakka

  uses BDE;
    .....
    procedure ShowDatabaseDesc(DBName: String);
    const
       DescStr = 'Driver Name: %s'#13#10'AliasName: %s'#13#10 +
                 'Text: %s'#13#10'Physical Name/Path: %s';
    var
      dbDes: DBDesc;
    begin
       dbiGetDatabaseDesc(PChar(DBName), @dbDes);
       with dbDes do
         ShowMessage(Format(DescStr, [szDbType, szName, szText, szPhyName]));
    end;
NB : Never Give Erorr...wakakakaakakakak
user image
more 18 years ago

arioss

Oke deh saya coba dulu... Makasih ya say... ups... kaya ke pacar aja... wakakak... Btw, saya libatkan Alias juga soalnya database yg dipake itu bebas2 aja...
user image
more 18 years ago

saysansay

Makasih ya say... ups... kaya ke pacar aja... wakakak
Wah jeruk makan jeruk nech
user image
more 18 years ago

arioss

@saysansay:
Makasih ya say... ups... kaya ke pacar aja... wakakak
Wah jeruk makan jeruk nech
Wakakakak.... Oks... back-to-the-topic. Yg saya maksud itu justru daftar aliasnya. Bukan deskripsi tentang alias yg diberikan.
user image
more 18 years ago

masdi2t

bisa pake kelas TSession aja mas arioss. sederhana kok. saya memakai sebuah komponen Button dan ListBox (pokoknya asal punya property bertipe TStrings bisa kok, e.g. ComboBox)

procedure TForm1.Button1Click(Sender: TObject);
var
  ses: TSession;
begin
  ses := TSession.Create(Application);
  try
    {blm explore lebih lanjut kegunaan SessionName, baca manual aja}
    ses.SessionName := 'mySession';  
    ses.GetAliasNames(ListBox1.Items);
  finally
    ses := nil;
    ses.Free;
  end;
end;
user image
more 18 years ago

saysansay

Coba Yang ini..Klu masih belum setuju Pake yg Mas didit aja wakakaakakakak

function GetAliasPath(aliasName: string): string;
var
    cfgRec  : DBDesc;
    dbRes   : DBIResult;
    tempStr : array of char;
begin
  result:= '';
  dbRes:= DBIGetDatabaseDesc(StrPCopy(tempStr, aliasName) , @cfgRec);
  if dbRes = DBIERR_OBJNOTFOUND then
    begin
      raise Exception.create('Tidak Ada Alias BDE Nech Kumaha Atuhhhh Wakakakaakka');
    end
  else
    result := strPas(cfgRec.szPhyName);
end;
user image
more 18 years ago

arioss

Tararengkyu... Fungsi dari mas didit yg saya perlukan, trus buat sansay aku pake aja prosedur yg pertama. Sorry... yg kedua nggak kepake... wakakakakakakak
more ...
  • Pages:
  • 1
Share to
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com