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

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

Возвращаю результат запроса (ADO+SQL7) [D6, MSSQL, ]

Sergey Karagodin ©   (2001-12-19 14:25:00) 

Где грабли?
Пытаюсь вернуть результат sp_help tratata через ADOQuery и NextRecordset. Возвращается только часть результата, а вконце возникает ошибка ADOQuery: Recordset is not open.
Что не так делаю? Может можно проще? Помогите.

procedure TForm1.AcRunSQLExecute(Sender: TObject);
Var
RecAff, I, iError: Integer;
TempDataSet: TCustomADODataSet;
S, ErrStr: String;
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(EditSQL.Text);
ADOQuery1.Open;

TempDataSet := ADOQuery1;
while TempDataSet <> nil do begin
{Field names}
TempDataSet.First;
S:="";
For I:=0 to TempDataSet.Recordset.Fields.Count-1 do begin
S:=S + (TempDataSet.Recordset.Fields[i].Name)+ #9;
end;
Memo1.Lines.Add(S);
Memo1.Lines.Add("--------------------------------");
{Field values}
while not TempDataSet.Eof do begin
S:="";
For I:=0 to TempDataSet.Recordset.Fields.Count-1 do begin
S:=S + VarToStr(TempDataSet.Recordset.Fields[i].Value) + #9;
end;
Memo1.Lines.Add(S);
TempDataSet.Next;
end;

if TempDataSet <> ADOQuery1 then begin
TempDataSet.Free;
end;
TempDataSet.Recordset := TempDataSet.NextRecordSet(RecAff);
Memo1.Lines.Add(#13#10);
end;
end;

---

Delirium   (2001-12-19 16:34:00) [1]

uses ADOInt;

---

Sergey Karagodin   (2001-12-19 16:21:00) [2]

Спасибо, сработало, только переменную adStateClosed или stClosed не видит. ADOdb в USES указал.

---

Delirium   (2001-12-19 15:16:00) [3]

А вообще я, все активные, выбрал:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
r:_RecordSet;
begin
ADOStoredProc1.First;
ADOTable1.Recordset:=ADOStoredProc1.Recordset;
ShowMessage("1");
while true do
begin
R:=ADOStoredProc1.NextRecordset(i);
if R=nil then break;
if (R.State<>adStateClosed) then ADOTable1.Recordset:=R;
ShowMessage("следующий");
end;
end;


---

Delirium   (2001-12-19 14:52:00) [4]

sp_help возвращает несколько RecordSet-ов, лучше пользуй
по отдельности:
sp_helpgroup
sp_helpuser
sp_helpindex
sp_helptrigger
sp_helprotect
sp_helpserver

---

Наверх