Zeoslib Portal

Code: Select all

          begin
          ZConnection1.Connect;
          if ZConnection1.Connected = true then
             begin
             showmessage ('Zeo cnn OK!!');
             ZQuery1.Close;
             ZQuery1.SQL.Clear;
             ZQuery1.SQL.Append('EXEC yours_stored_procedure');
             ZQuery1.Open;
             while not ZQuery1.EOF do
                   begin
                   showmessage(ZQuery1.FieldByName('name').AsString);
                   ZQuery1.Next;
                   end;
             end
          end;