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

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

Cнова TADOQuery [D5, D6, Win95/98, Win2k]

Saska ©   (2003-04-01 13:13:00) 

День добрый! Может ли кто подсказать, почему TADOQuery созданный в ран-тайме, заваливается при вызове метода Open, хотя такая-же самая кверя, созданная в дизайн-тайме, с ТАКИМ ЖЕ ConnectionString вполне корректно работает, Может есть какие-то фишки? Заранее спасибо.

---

Saska   (2003-04-01 14:10:00) [1]

Соловьев © (01.04.03 13:58)
> aParsed.Strings[1];
что там происходит?

Разбор строки команд, разделенных ";"

---

Saska   (2003-04-01 14:08:00) [2]

Всем спасибо, о великие Гуру, вроде пока заработало...

---

Соловьев   (2003-04-01 13:58:00) [3]

> aParsed.Strings[1];

что там происходит?

---

sniknik   (2003-04-01 13:53:00) [4]

Saska © (01.04.03 13:31)
> Да он до LoginPrompt и не добирается, может я чего более существенное до Open не сделал?

и не доберется
Palladin © (01.04.03 13:29)
> LoginPromt нужно устанавливать до Open, логику чувствуешь?

---

stone   (2003-04-01 13:34:00) [5]

Проверь ConnectionString перед Open.

---

Saska   (2003-04-01 13:31:00) [6]

Да он до LoginPrompt и не добирается, может я чего более существенное до Open не сделал?

---

Saska   (2003-04-01 13:29:00) [7]

Из-за Этого? Я думал так корректней будет. Да и еще, все это в тексте DLL, а Owner - указатель на форму приложения, которое эту DLL и цепляет...

---

Palladin   (2003-04-01 13:29:00) [8]

> Skier © (01.04.03 13:23)

чтобы открыть наверно новое, что за странный вопрос

> Saska © (01.04.03 13:20)

LoginPromt нужно устанавливать до Open, логику чувствуешь?

---

Skier   (2003-04-01 13:23:00) [9]

if Connection.Connected then Connection.Close; - зачем закрываешь соединение ?

---

Saska   (2003-04-01 13:20:00) [10]


try
Connection := TADOConnection.Create(Owner);
Query := TADOQuery.Create(Owner);
Query.Connection := Connection;
except
result := -1;
ErrMsg := Errors[0];
end;
................

if Connection.Connected then Connection.Close;
Connection.ConnectionString := aParsed.Strings[1];
try
Connection.Open; //здесь все умирает!!!
Connection.GetTableNames(TableList, true);
Connection.LoginPrompt := false;
except
ErrMsg := Errors[1];
exit;
end;

---

Skier   (2003-04-01 13:15:00) [11]

Код.

---

Наверх