Witam,
probuję się łączyć z baza mysql takim kodem
procedure TForm1.Button1Click(Sender: TObject);
var
Conn: TSQLConnection;
begin
Conn := TSQLConnection.Create(nil);
with Conn do
begin
ConnectionName := 'MySQLConnection';
DriverName := 'MySQL';
GetDriverFunc := 'getSQLDriverMYSQL';
KeepConnection := TRUE;
LoginPrompt := FALSE;
Name := 'mySQLConnection';
VendorLib := 'LIBMYSQL.DLL';
TableScope := [tsTable,tsView];
Params.Add('DriverName=MySQL');
Params.Add('HostName=localhost');
Params.Add('Database=za10groszy');
Params.Add('User_Name=root');
Params.Add('Password=');
Params.Add('BlobSize=-1');
Params.Add('ErrorResourceFile=');
Params.Add('LocaleCode=0000');
Params.Add('Compressed=False');
Params.Add('Encrypted=True');
LoadParamsOnConnect := True;
Open;
end;
end;
Natomiast jako błąd dostaje komunikat po kliknięciu bottona:
Access denied for user 'user'@'localhost' (Using Password:YES).
Co mnie dziwi to to, że po pierwse loguje się na usera 'root' a po drugie bez hasła.W takim razie jakimi danymi probuje sie logowac programik? :)
dodanie znacznika <code class="delphi"> oraz <quote> dla treści błędu- fp