Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];




Вниз

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


Sergey Karagodin   (2001-12-19 14:25) [0]

Где грабли?
Пытаюсь вернуть результат 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 14:52) [1]

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



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

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

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;



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

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



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

uses ADOInt;




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.026 c
1-75563           Lakokr                2002-01-06 12:33  2002.01.24  
как сделать ЕХЕ


3-75503           Андрей1               2001-12-21 09:46  2002.01.24  
При инсталяции Oracle 7 (SQL Net Server) на W2KAS этот самый сервер отказывается становиться из-за невозможности удалить нт-сервис для sql-server.


7-75697           REL                   2001-10-11 19:14  2002.01.24  
Модемы


1-75600           ripp                  2002-01-07 09:08  2002.01.24  
Проблема вот в чем


14-75676          petr_v_a              2001-11-22 17:32  2002.01.24  
грабли