VPF::Подключение к базе из Extended stored Proc

babayka

Дата 14.9.2005, 11:51 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Здравствуйте многоуважаемые
Хочу сделать следующее - в дллке написанной на дельфи хочу сделать функцию которая бы подключалась к базе и чето там меняла али читала с таблиц....но проблема вся в том что даже подконнектится не могу не говоря уже про остальное....примеры читал но сишные в основном...если кто сталкивался плиз хелп smile

вот код собсно

Код


library connectep1234;


uses
  SysUtils,
  Classes,
  ADOdb,
  MsOdsApi;

{$R *.RES}
 function srv_paramdata(srvproc:Pointer; n:integer):integer; cdecl; external 'opends60.dll' name 'srv_paramdata';
function srv_paramlen(srvproc:Pointer; n:integer):integer; cdecl; external 'opends60.dll' name 'srv_paramlen';
function srv_pfield(srvproc: Pointer; n: integer; len: integer): pchar; cdecl; external 'opends60.dll' name 'srv_pfield';

function xp_MyExec(srv:pointer):integer; cdecl; export;
var
 a:TADOConnection;
begin
 // try
 
    a:=TADOConnection.Create(nil);
    a.LoginPrompt:=false;
    a.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=ArtTestBase;Data Source=GATE';
    a.open;
    //a.Execute('insert into testESP values ('+(PChar(srv_paramdata(srv,1)))+')');
    a.close;
    a.free;
   // result:=1;
 // except on e:Exception do
   // result:=0;
//  end;
end;

exports xp_MyExec name 'xp_MyExec';



begin
end.

в квери анализер пишет что
[Microsoft][ODBC SQL Server Driver][DBNETLIB]ConnectionCheckForData (CheckforData()).
Server: Msg 11, Level 16, State 1, Line 0
General network error. Check your network documentation.

Connection Broken

подскажите как сделать правильно а то чето понять не могу smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »