Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.24;
Скачать: CL | DM;

Вниз

Возвращаю результат запроса (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;



Страницы: 1 вся ветка

Текущий архив: 2002.01.24;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.004 c
1-75557
bit
2002-01-06 10:38
2002.01.24
Error


7-75701
Alexei
2001-10-09 14:30
2002.01.24
Калькулятор


1-75554
Анатолий
2002-01-06 06:20
2002.01.24
Цвет ячейки StringGrid


1-75609
Vovchik
2002-01-07 20:27
2002.01.24
Цвет итемов в TListView


3-75534
Hawk2
2001-12-21 12:39
2002.01.24
Индескация с помощью SQL-запросов.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский