console

[proteus 0]

while trim(res) <> 'EXIT' DO  BEGIN  writeln('CONSOLE> ');  readln(res);  res:=uppercase(res);  For i:=1 to (length(res)-1) do    if (res[i]=' ') or (i =length(res)) then    begin      w :=copy(res,1,i);      param :=copy(res, i, length(res)-i );      break;    end;  if w = 'COMAND' then     writeLN('EXECUTANDO COMANDO');  if trim(w) = 'SQL' Then    begin    writeln('SQL');    param :=copy(param, 3, length(param)-1);    Table:= Tquery.create(Table);    Table.DatabaseName:='UPSEV';    Table.SQL.add(param);    Table.Open;    writeln('  |',trim(param));    While not table.Eof do      begin      //imprime os registros      end;    table.close;    table.Free;    end;  //writeln(w);  //writeln(res)  w:=emptystr;  param:=emptystr;  end;end.

então com o comando

 

SQL [sELECT * FROM DSEVCL00]

 

eu seleciono todos os registros...

mas como faço pra joga-los na tela.. sendo que eu nem mesmo sem quantos fields eu quero.....

nem quantos registros

[proteus 0]

consegui

if trim(w) = 'SQL' Then    begin    Table:=TQuery.Create(Table);    writeln('SQL');    param :=copy(param, 3, length(param)-1);    Table.DatabaseName:='UPSEV';    Table.sql.clear;    Table.SQL.add(param);    Table.Open;    writeln('  |',trim(param));    For i:=0 To (Table.FieldCount -1) Do       WriteLn(Table.Fields[i].FieldName);   Table.First;     While Not Table.Eof Do       Begin       For i:=0 To (Table.FieldCount-1) Do         WriteLn(Table.FieldByName(Table.Fields[i].FieldName).AsString);       WriteLn(' '); // Um espaço em branco entre cada registro.       Table.Next;       End;//wend    end;//fi

só tem um problema....

processa tudo..

mas só aparece os ultimos