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....... |