Arsip: Gmana caranya buat koneksi sendiri ke Mysql, dengan file ini

 
user image
more 15 years ago

mankerman

Buat mastering delphi, mau nanya nih, gmana cara buat koneksi mysql ke delphi yang koneksinya tersimpan dalam file *.ini...???dan gmna memanggilnya kembali>>???>>> :P :?: :?:
user image
more 15 years ago

elva_ivana

ada banyak cara, tp sy sering menggunakan yang praktis yaitu manggunakan komponen ZEOS lalu file *.ini di load ke Memo kemudian Zeos load koneksi nya dari memo. Semoga bermanfaat
user image
more 15 years ago

mas_kofa


procedure TfKoneksi.bacaFileIni;
begin
  _SQL           := ExtractFilePath(Application.ExeName)+ 'setting.ini';
  MyIniFile      := TIniFile.Create(_SQL);
  eHost.Text     := MyIniFile.ReadString('setting','hostname','Localhost');
  eUser.Text     := MyIniFile.ReadString('setting','user','root');
  edbase.Text    := MyIniFile.ReadString('setting','dbname','simdikdb');
  ePassword.Text := DecodePassword(MyIniFile.ReadString('setting','pass',''));
  ePort.Text     := MyIniFile.ReadString('setting','port','');
  MyIniFile.Free;
end;

function TfKoneksi.TesKoneksi: boolean;
begin
  with dm.dbKoneksi do
  begin
    HostName := eHost.Text;
    User := eUser.Text;
    Password := ePassword.Text;
    Database := edbase.Text;
    Port     := StrToInt(ePort.Text); 
    Disconnect;
    try
      Connect;
    except
    end;
    result := Connected;
  end;
end;
user image
more 15 years ago

mankerman

Oya ya buat maz_Kofa klu sprti diatz, databasenya di pndah ke komputer laen ber masalah ga...??? soalnya saya bikin database pake koneksi MydacMysql, saya pindah komputer tp ga jalan.
user image
more 15 years ago

mas_kofa

ya tinggal dirubah aja di file setting.ini nya.....
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com