Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 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;



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

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

Наверх





Память: 0.55 MB
Время: 0.016 c
3-75479
SkyR
2001-12-20 08:41
2002.01.24
Такая проблема с IB...


3-75468
dim-
2001-12-18 09:15
2002.01.24
Список индексов


1-75620
EViruS
2002-01-01 11:26
2002.01.24
Ищу компонент Delphi 6


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


3-75483
Марина
2001-12-20 13:02
2002.01.24
База данных





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский