03-08-2022, Saat: 14:59
Herkese iyi çalışmalar.
MySQL uzak veritabanı ile bağlantı kurarken sık sık aşağıdaki hatayı alıyorum.(Resim ekte) (Veritabanı kendi sitemizde-paylaşımlı hosting)
bunlar da bağlantı kodlarım.
Bu hatanın bir çözümü var mıdır acaba? Nasıl bir yol izleyebilirim.
MySQL uzak veritabanı ile bağlantı kurarken sık sık aşağıdaki hatayı alıyorum.(Resim ekte) (Veritabanı kendi sitemizde-paylaşımlı hosting)
Kod: (Select All)
try
oParams := TStringList.Create;
try
with oParams do
begin
Add('DriverID=' + fLogin.txt_DriverID.Text); //Combo-BrowseComputer code
Add('Server=' + fLogin.txt_Server.Text); //Combo-BrowseComputer code
Add('Port=' + fLogin.txt_Port.Text); //Default:3306
Add('Database=' + fLogin.txt_Database.Text); //DatabaseName
Add('User_Name=' + fLogin.txt_mySQL_User_Name.Text); //
Add('Password=' + fLogin.txt_mySQL_Password.Text); //
Add('CharacterSet=' + fLogin.txt_CharacterSet.Text); //UTF8,OCTETS,NONE,ASCII,ISO8859_1_2,
Add('Compress=' + fLogin.txt_Compress.Text); //True
Add('UseSSL=' + fLogin.txt_UseSSL.Text); //False
end;
finally
oParams.Free;
end;
try
with mySQLConn do
begin
Close;
Server := fLogin.txt_Server.Text;
Username := fLogin.txt_mySQL_User_Name.Text;
Password := fLogin.txt_mySQL_Password.Text;
Database := fLogin.txt_Database.Text;
Port := StrToInt(fLogin.txt_Port.Text);
Open;
end;
except
on E: Exception do
ShowMessage(E.ClassName + ' Veritabanına bağlanılamadı! : ' + E.Message);
end;
bunlar da bağlantı kodlarım.
Bu hatanın bir çözümü var mıdır acaba? Nasıl bir yol izleyebilirim.