Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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


Tommy ©   (2003-10-03 12:59:00) 

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

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


Tommy   (2003-10-03 16:13:00) [1]

ok thanks!!!


Digitman   (2003-10-03 15:26:00) [2]

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


Rem   (2003-10-03 14:30:00) [3]

TADOConnection


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

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


Nikolay M.   (2003-10-03 14:08:00) [5]

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


Tommy   (2003-10-03 13:48:00) [6]

пишу 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то ругается но как исправить ситуацию не знаю :(


Rem   (2003-10-03 13:21:00) [7]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо