Здравствуйте многоуважаемые
Хочу сделать следующее - в дллке написанной на дельфи хочу сделать функцию которая бы подключалась к базе и чето там меняла али читала с таблиц....но проблема вся в том что даже подконнектится не могу не говоря уже про остальное....примеры читал но сишные в основном...если кто сталкивался плиз хелп  вот код собсно
| Код |
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
подскажите как сделать правильно а то чето понять не могу |