- Beranda
- Komunitas
- Tech
- Programmer Forum
[Tanya] login database mysql dengan inifile delphi


TS
hamunkimpoidra
[Tanya] login database mysql dengan inifile delphi
selamat siang master delphi skalian, saya mau tanya nih....
dalam infile.ini saya
[database]
username=root
dbname=simdiklat
server=localhost
port=3306
pass=
utk koding delphinya :::
saat di compile ada eror sebagai berikut:
#28000 access denied for user '@'localhost'
mohon penjelasan dari master sekalian....
terima kasih
dalam infile.ini saya
[database]
username=root
dbname=simdiklat
server=localhost
port=3306
pass=
utk koding delphinya :::
Code:
procedure TForm1.FormCreate(Sender: TObject);
var
ini : TIniFile;
path : string;
port : integer;
begin
path := GetCurrentDir;
ini := TIniFile.Create(path+'koneksi.ini');
ShowMessage(path+'koneksi.ini');
try
MyConnection1.Connected := False;
MyConnection1.Username := ini.ReadString('database','username','');
showmessage(ini.readstring('database','username',''));
MyConnection1.Database := ini.ReadString('database','dbname','');
MyConnection1.Server := ini.ReadString('database','server','');
MyConnection1.Password := ini.ReadString('database','pass','');
MyConnection1.Port := ini.ReadInteger('database','port',0);
MyConnection1.Connect;
if MyConnection1.Connected = True then
begin
Application.MessageBox('Koneksi Database Berhasil', 'Informasi',
MB_OK or MB_ICONINFORMATION);
end else
Application.MessageBox('Seting Ulang Koneksi Database Anda... !!!', 'error',
MB_OK or MB_ICONERROR);
finally
ini.Free;
end;
end;
saat di compile ada eror sebagai berikut:
#28000 access denied for user '@'localhost'
mohon penjelasan dari master sekalian....
terima kasih
0
1.7K
5


Komentar yang asik ya
Urutan
Terbaru
Terlama


Komentar yang asik ya
Komunitas Pilihan