Найдено 2 результата

mserg1972
Ср 30 сен 2015 09:59
Форум: MySQL Data Access Components
Тема: Lst connection ->connect=erorr
Ответы: 5
Просмотры: 15624

Re: Lst connection ->connect=erorr

Сам что то наваял, но понимаю что неправильно

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.
mserg1972
Ср 30 сен 2015 09:57
Форум: MySQL Data Access Components
Тема: Lst connection ->connect=erorr
Ответы: 5
Просмотры: 15624

Re: Lst connection ->connect=erorr

А можете подсказать решение той же проблемы но на языке паскаль?
Delphi7
MyDac7
MySql 5.6
Win7 64