BABAYKA
Junior Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
SergeBS
Нажимаю ран....выскакивает моя программка готовая к работе и при попытке установки связи с сервером (по нажатию пимпы) происходит облом...она пытается приконнектится к нему но вместо заветной 'Соединение с БД установлено.' пишет 'Ошибка соединения с БД.' .... Чтойбы было немного понятней приведу листинг главной формы:
unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ComCtrls, uDM;
type
TfMain = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
StatusBar1: TStatusBar;
procedure N2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fMain: TfMain;
implementation
{$R *.dfm}
procedure TfMain.N2Click(Sender: TObject);
begin
try
with fDM.Database1 do
begin
if Connected then Close;
Open;
end;
StatusBar1.SimpleText:='Соединение с БД установлено.'
except
StatusBar1.SimpleText:='Ошибка соединения с БД.'
end;
end;
end.
и листинг дата модуля:
unit uDM;
interface
uses
SysUtils, Classes, DBTables, DB;
type
TfDM = class(TDataModule)
DataSource1: TDataSource;
Query1: TQuery;
Database1: TDatabase;
UpdateSQL1: TUpdateSQL;
private
{ Private declarations }
public
{ Public declarations }
end;
var
fDM: TfDM;
implementation
{$R *.dfm}
end.
Локальный сервер IB 7.5....... |
