Re: Add a definable row limit to 'View Data'

Thanks Frank. I've added a little code to store the row limit in the registry for next time.

Comitted to CVS.

Regards, Dave.

> -----Original Message-----
> From: frank_lupo [mailto:frank_lupo@email.it]
> Sent: 28 February 2003 11:10
> To: Dave Page
> Cc: Dave Page; pgadmin-hackers
> Subject: Re: [pgadmin-hackers] Add a definable row limit to
> 'View Data'
>
>
> >Hi Frank,
> >I'm not sure this is the best way to do this. How about a
> preset option
> >in frmOptions for the >number of rows.
> >Then when the query is run, we say:
> >The query returned more than XXX rows. Do you wish to LIMIT
> the output?
> >Yes/No/Cancel
> >Yes = Limit
> >No = Return all rows
> >Cancel = Abort
> >What do you think?
> >Regards, Dave.
>
> Sub corrected using your suggestions:
>
> Private Sub mnuPopupViewData_Click()
> On Error GoTo Err_Handler
> svr.LogEvent "Entering " & App.Title &
> ":frmMain.mnuPopupViewData_Click()", etFullDebug
>
> Dim objOutputForm As New frmSQLOutput
> Dim rsQuery As New Recordset
> Dim iMsgBoxResult As VbMsgBoxResult
> Dim szLimit As String
> Dim szTemp As String
> Const ROW_LIMIT As Integer = 5000
>
>   'count row
>   StartMsg "Counting Records..."
>   Set rsQuery =
> frmMain.svr.Databases(ctx.CurrentDB).Execute("SELECT count(*)
> AS count FROM ! " & ctx.C
>
> u
> rrentObject.FormattedID)
>   EndMsg
>
>   'verify limit output
>   szLimit = ""
>   If Not rsQuery.EOF Then
>     If rsQuery!Count > ROW_LIMIT Then
>       iMsgBoxResult = MsgBox("The query returned more than "
> & rsQuery!Count & " rows. Do you wish to LIMIT the output?",
> vbApplicationModal + vbYesNoCancel + vbQuestion, "Row limit")
>       If iMsgBoxResult = vbCancel Then
>         Exit Sub
>       ElseIf iMsgBoxResult = vbYes Then
>         szTemp = InputBox("Insert row limit" & vbCrLf &
> "Table contain " & rsQuery!Count & " rows", "Row limit", ROW_LIMIT)
>         If Not IsNumeric(szTemp) Then Exit Sub
>         szLimit = " LIMIT " & szTemp
>       End If
>     End If
>   End If
>
>   StartMsg "Executing SQL Query..."
>   Set rsQuery =
> frmMain.svr.Databases(ctx.CurrentDB).Execute("SELECT * FROM "
> & ctx.CurrentObject.FormattedID & szLimit)
>   Load objOutputForm
>   objOutputForm.Display rsQuery!
> , ctx.Cur
>
> r
> entDB, "(" & ctx.CurrentObject.ObjectType & ": " &
> ctx.CurrentObject.FormattedID & ")"
>   objOutputForm.Show
>
>   EndMsg
>
>   Exit Sub
>
> Err_Handler:
>   EndMsg
>   If Err.Number <> 0 Then LogError Err.Number,
> Err.Description, App.Title & ":frmMain.mnuPopupViewData_Click" End Sub
>
>
> Bye !!
> Frank Lupo (Wolf) !!
>
>     /\_ _/\
>     \ o o /
> --ooo-----ooo---
>
>
>
> --
> Prendi GRATIS l'email universale che... risparmia:
http://www.email.it/f

Sponsor:
Natsabe.it la più grande erboristeria online italiana
con consegna gratuita a partire da soli 50 euro !
Clicca qui: http://adv.email.it/cgi-bin/foclick.cgi?mid=1307&d=28-2