У меня на сервере решено для каждого клиента запускать...

← →
Tommy (2003-10-03 12:59) [0]

Здравствуйте уважаемые программисты!!! :)
Вот такой вопрос...
У меня на сервере решено для каждого клиента запускать поток...этот поток будет осушествлять доступ к базе данных(аппенд в одну таблицу с помошью АДО,таблицы MSAccess)...и потому наверно буду исползовать крити4ескую зону start до Аппенда и после Поста End...

Наверно можно еше и подругому....если у каждого потока будет свои Connection и свои Query только никак не могу это сделать....
подскажите как для каждого о4ередного запускаемого потока создать connection и Query с уникалными именами...

← →
Rem © (2003-10-03 13:21) [1]

1. Компонентам иметь имена не обязательно.
2. В конструкторе потока создаешь коннект и все что тебе нужно. Руками.

← →
Tommy (2003-10-03 13:48) [2]

пишу 4то-то вроде того:
procedure CreateConnection(ConnectionString: String);
var
var
ADODBConnection: OleVariant;
MyQuery:TADOquery;
begin
ADODBConnection := CreateOleObject("ADODB.Connection");
ADODBConnection.CursorLocation := 3; // User client
ADODBConnection.ConnectionString := ConnectionString;

потом создаю
myQuery.create(Form1);
а потом надо вроде query сказать 4то увидь Connection
но на
myquery.Connection:=ADODBConnection;
ругается!!!
оно и понятно 4то ругается но как исправить ситуацию не знаю :(

← →
Nikolay M. © (2003-10-03 14:08) [3]

А посмотреть, какой тип у myquery.Connection и не пытаться пихать туда OleVariant - ...??

← →
Tommy (2003-10-03 14:18) [4]

ну это-то ясно!!!
дело в том 4то ина4е не могу создать ADOConnection! :(

← →
Rem © (2003-10-03 14:30) [5]

TADOConnection

procedure TMyConnectionThread.Execute;
begin
try
CoInitialize(nil);
try
... здесь все что угодно, например
CreateConnection(...);
finally
CoUnInitialize;
end;
except
... здесь ведем лог необработанных исключений
end;
end;

← →
Tommy (2003-10-03 16:13) [7]

ok thanks!!!

У меня на сервере решено для каждого клиента запускать... Найти похожие ветки