Помогите новичку c ADO!!!!!!

← →
Dan (2003-06-25 08:31) [0]

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

← →
tau (2003-06-25 09:31) [1]

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;

← →
tvic © (2003-06-25 10:30) [2]

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

← →
Edward (2003-06-25 11:09) [3]

У 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, манипулируя этим свойством.

← →
Dan (2003-06-25 12:18) [4]

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

← →
sniknik © (2003-06-25 12:42) [5]

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

← →
Dan (2003-06-25 13:56) [6]

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

← →
Dan (2003-06-25 14:04) [7]

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

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

Извиняюсь, совсем забыл про первую часть вопроса, так что перед обработкой 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 .

Помогите новичку c ADO!!!!!! Найти похожие ветки