![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
SQLConnection1+LoadParamsFromIniFile [MSSQL]
petvv © (2009-05-14 08:37:00)Собственно как ???
Сделано так:
procedure TMainForm.FormCreate(Sender: TObject);
var
Ini: Tinifile;
begin
MainConnection.Connected:=false;
MainConnection.CleanupInstance();
MainConnection.ConnectionName := 'MSSQLConnection';
MainConnection.DriverName := 'MSSQL';
MainConnection.GetDriverFunc := 'getSQLDriverMSSQL';
MainConnection.LibraryName := 'dbxmss30.dll';
MainConnection.VendorLib := 'oledb';
with MainConnection do begin
ConnectionName := 'MSSQLConnection';
MainConnection.LoadParamsFromIniFile(extractfilepath(paramstr(0))+'PharmaCOM.ini');
end;
//***************************
MainConnection.Connected:=True;
AdvOfficeStatusBar1.DoubleBuffered := True;
if MainConnection.ConnectionState=csStateOpen then
AdvOfficeStatusBar1.Panels[0].Text:='Установлено соединение с БД';
AdvOfficeStatusBar1.Refresh;
end;
а собственно после
//***************************
MainConnection.Connected:=True;
получаю матангу
Виталий Панасенко (2009-05-15 09:24:00) [1]Может, и имя ошибочное?
petvv (2009-05-15 08:10:00) [2]Ну обшибся не *.ехе, а *.ini
sniknik (2009-05-14 12:00:00) [3]> 'Cannot open file "E:\MainPr\PharmaCOM\MDIAPP.exe " Системе не удаётся найти указанный путь'.
что то у меня сомнения, что подобную ошибку может выдавать коннект.
что будет если вместо LoadParamsFromIniFile внести параметры вручную непосредственно в параметры компонента и в дизайнтайме установить Connected в True?
и еще а почему для MSSQL не используется ADO? имхо, более естественный для него выбор.
Ega23 (2009-05-14 10:10:00) [4]
MainConnection.LibraryName := 'dbxmss30.dll';
А это что за драйвер такой?
petvv (2009-05-14 09:01:00) [5]а ругается так:
'Cannot open file "E:\MainPr\PharmaCOM\MDIAPP.exe " Системе не удаётся найти указанный путь'.
petvv (2009-05-14 08:38:00) [6]Вот INI файл:
[MSSQLConnection]
SchemaOverride = sa.dbo
ServerName = VLADIMIR\SQLSERVER
User_Name = sa
Password = xxxxxx
DBName = Main
BlobSize = -1
MSSQL TransIsolation = ReadCommited
OS Authentication = False
Prepare SQL = True