Probuje wkorzystac ze zrodla SimpleMySQL do laczenia sie z baza danych lecz nic nie pojawia sie w Memo ??
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, SimpleMySQL, StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
SimpleMySQL: TSimpleMySQL;
q,w:integer;
begin
SimpleMySQL := TSimpleMySQL.Create;
SimpleMySQL.Host := 'localhost';
SimpleMySQL.User := 'login';
SimpleMySQL.Password := 'haslo';
SimpleMySQL.SelectDatabase('moja_baza');
if SimpleMySQL.Query('SELECT * FROM tabela') then begin
for q := 0 to SimpleMySQL.QueryResult.RowsCount -1 do begin
for w := 0 to SimpleMySQL.QueryResult.FieldsCount -1 do begin
Memo1.Lines.Add(SimpleMySQL.QueryResult.Rows[q].Fields[w].Name + ' : ' +
SimpleMySQL.QueryResult.Rows[q].Fields[w].Value);
end;
end;
end;
end;
end.
oczywiscie ten plik zawarty jest w folderze tym samym co pliki SimpleMySQL.
Co trzeba jeszcze zrobic zeby sie polaczyc z lokalna baza MySQL ??
Pozdrawiam i dzieki za pomoc