Any solution about this?
On 10/13/06, Diwakoe <[EMAIL PROTECTED]> wrote:
this is the example:
-- begin code ---
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, DBGrids,
DBCtrls, DB, sqldb, mysql50conn, Buttons;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Datasource1: TDatasource;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
mycon: TMySQL50Connection;
SQLQuery1: TSQLQuery;
SQLTransaction1: TSQLTransaction;
procedure Button1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
end;
initialization
{$I unit1.lrs}
end.
---- end code ---
On 10/13/06, Mattias Gaertner <[EMAIL PROTECTED]> wrote:
> On Fri, 13 Oct 2006 07:51:54 +0700
>
> Can you post a small example?
>
>
> Mattias
>
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
