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

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

Помогите новичку c ;ADO!!!!!! [D6, MSSQL]

Dan ©   (2003-06-25 08:31:00) 

Уважаемые Мастера.
Как правильно приконнектиться через ADO к SQL серверу и получить данные? Использую компоненты TADOConnection, TADODataSet и TADOQuery. С первым проблем не было, а вот как настроить два остальных?

---

RusIv   (2003-06-26 07:11:00) [1]

Извиняюсь, совсем забыл про первую часть вопроса, так что перед обработкой TADOQuery нужно вставить следующее:

ADOConnection1.Connected:=False;
ADOConnection1.KeepConnection:=False;
ADOConnection1.LoginPrompt:=False;
ADOConnection1.ConnectionString:="Provider=SQLOLEDB.1;
Integrated Security=SSPI;Persist Security Info=False;
Initial Catalog="MyDB";Data Source="MySQLServer";

ADOQuery1.Connection:=ADOConnection1;

Ну и соответственно поместить на форму данные компаненты: TADOConnection,TADOQuery и если нужено передать данные в таблицу, то еще и TDataSource .

---

RusIv   (2003-06-26 06:57:00) [2]

With ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add("select * from O_Simple_Action");
Open; //Если выводится результат SQL-запроса, если нет, то
//используй - ExecSQL;
end;

---

Dan   (2003-06-25 14:04:00) [3]

Еще один вопрос. А почему не работает функция COUNT в QRExpr?

---

Dan   (2003-06-25 13:56:00) [4]

Спасибо большое, что-то заработало

---

sniknik   (2003-06-25 12:42:00) [5]

Dan (25.06.03 12:18)
ADODataset не активный (закрыт), поставь Active - true. или в QReport нет полей из данного ADODataset.

---

Dan   (2003-06-25 12:18:00) [6]

Использую ADOConnection и ADODataset в QReport при просмотре ничего нет

---

Edward   (2003-06-25 11:09:00) [7]

У ADODataSetсвойству Connectionприсваиваешь ADOConnection, формируешь ConnectionString, можно в ObjectInspector, у ADOConnectionнажать на кнопку с многоточием, а дальше можно, как говорили использовать udl файл или нажать кнопку построить (Build), далее можно так:

with ADODataSet1 do
begin
CommandType := cmdText;
CommandText := "SELECT * FROM CustomerTable";
Open;
end;

Причем свойство CommandTypeможет иметь несколько значений см. Delphi Help TCommandType type. ADODataSet универсален, можно его использовать вместо ADOQueryи ADOTable, манипулируя этим свойством.

---

tvic   (2003-06-25 10:30:00) [8]

Кидаешь на форму ADOConnection, потом создаешь файл пустой и сохраняешь его с расширением .udl. Когда ты запустишь этот файл, то увидешь чудное окошко настройки конекта (как и у ODBC), а там все понятно и просто. Для своего ADOConnection указываешь в ConnectionStringкак Use Data Link File свой udl-файл. Потом все настройки коннекта делаешь через этот файлик, а не через прогу. Если есть вопросы по ADOQuery- пиши. Дерзай.

---

tau   (2003-06-25 09:31:00) [9]

with ADOQuery do begin
Connection := ADOConnection;//можно и в Object Inspector"е
SQL.Text := "query";
Open;
while not Eof do begin
your_var := FieldByName("field_name").Value (тип Variant) или AsString (строка) и т.п. смотри справку

Next;
end;
Close;
end;

---

Наверх