Сам что то наваял, но понимаю что неправильно
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, DBAccess, MyAccess, MemDS;
type
TForm1 = class(TForm)
MyDB1: TMyConnection;
Myq1: TMyQuery;
Myq2: TMyQuery;
Mys1: TMyDataSource;
Mys2: TMyDataSource;
DBGrid1: TDBGrid;
DBGrid2: TDBGrid;
procedure FormCreate(Sender: TObject);
procedure FormClick(Sender: TObject);
procedure MyDB1ConnectionLost(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
//MyDB1.LoginPrompt := False;
MyDB1.Options.LocalFailover:=True;
MyDB1.Options.Charset := 'cp1251';
MyDB1.Server := '4.101.152.112';
MyDB1.Port := 3306;
MyDB1.Database := 'v91490ey_video';
MyDB1.Username := 'v91490ey_video';
MyDB1.Password := '455555';
try
MyDB1.Open
except
ShowMessage('Не удалось установить соединение');
Exit;
end;
Myq1.Open;
Myq2.Open;
end;
procedure TForm1.FormClick(Sender: TObject);
begin
MyDB1.Open
end;
procedure TForm1.MyDB1ConnectionLost(Sender: TObject);
begin
RetryMode = rmReconnectExecute;
end;
end.
Найдено 2 результата
- Ср 30 сен 2015 09:59
- Форум: MySQL Data Access Components
- Тема: Lst connection ->connect=erorr
- Ответы: 5
- Просмотры: 20187
- Ср 30 сен 2015 09:57
- Форум: MySQL Data Access Components
- Тема: Lst connection ->connect=erorr
- Ответы: 5
- Просмотры: 20187
Re: Lst connection ->connect=erorr
А можете подсказать решение той же проблемы но на языке паскаль?
Delphi7
MyDac7
MySql 5.6
Win7 64
Delphi7
MyDac7
MySql 5.6
Win7 64