Re: [pgadmin-hackers] reset statistic

2003-02-21 Thread Dave Page 
It's rumoured that frank_lupo once said:
> add reset statistic similar to mnuPopupVacuum
>
> Private Sub mnuPopupResetStat_Click()
> On Error GoTo Err_Handler
> svr.LogEvent "Entering " & App.Title &
> ":frmMain.mnuPopupResetStat_Click()", etFullDebug

>  'reset statistic
>  If MsgBox("Confirm reset statistic?", vbApplicationModal + vbYesNo) =
>  vbYes Then
>svr.Databases(ctx.CurrentDB).Execute "select pg_stat_reset()"
>  End If
>
>  Exit Sub
> Err_Handler: If Err.Number <> 0 Then LogError Err.Number,
> Err.Description, App.Title & ":frmMain.mnuPopupResetStat_Click"
 End
> Sub

Thanks, applied.

Regards, Dave.



---(end of broadcast)---
TIP 5: Have you checked our extensive FAQ?

http://www.postgresql.org/users-lounge/docs/faq.html

[pgadmin-hackers] reset statistic

2003-02-21 Thread frank_lupo 
add reset statistic similar to mnuPopupVacuum

Private Sub mnuPopupResetStat_Click()
On Error GoTo Err_Handler
svr.LogEvent "Entering " & App.Title & ":frmMain.mnuPopupResetStat_Click()", 
etFullDebug

  'reset statistic
  If MsgBox("Confirm reset statistic?", vbApplicationModal + vbYesNo) = vbYes Then
svr.Databases(ctx.CurrentDB).Execute "select pg_stat_reset()"
  End If
  
  Exit Sub
Err_Handler: If Err.Number <> 0 Then LogError Err.Number, Err.Description, App.Title & 
":frmMain.mnuPopupResetStat_Click"
End Sub


Bye !!
Frank Lupo (Wolf) !!

/\_ _/\
\ o o /
--ooo-ooo---



--
Prendi GRATIS l'email universale che... risparmia: http://www.email.it/f

Sponsor:
Un regalo, mille possibilità di scelta, una più preziosa dell'altra.
Clicca qui: http://adv.email.it/cgi-bin/foclick.cgi?mid=613&d=21-2

---(end of broadcast)---
TIP 1: subscribe and unsubscribe commands go to [EMAIL PROTECTED]