fix error to select from Statistics add filter schemaname=ctx.currentNS.
Bye !!
Frank Lupo (Wolf) !!
/\_ _/\
\ o o /
--ooo-----ooo---
--
Prendi GRATIS l'email universale che... risparmia: http://www.email.it/f
Sponsor:
DVD, libri, cibi e bevande, cosmesi, prodotti erboristici, articoli per lo sport,
cellulari e PC...tutto a prezzi scontatissimi,
Clicca qui
Clicca qui: http://adv.email.it/cgi-bin/foclick.cgi?mid=838&d=11-3*** old_frmmain.frm Fri Mar 07 17:21:18 2003
--- frmmain.frm Tue Mar 11 15:28:40 2003
***************
*** 1,13 ****
VERSION 5.00
! Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
! Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "tabctl32.ocx"
! Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Object = "{44F33AC4-8757-4330-B063-18608617F23E}#12.4#0"; "HighlightBox.ocx"
Begin VB.Form frmMain
Caption = "pgAdmin II"
ClientHeight = 6675
ClientLeft = 165
! ClientTop = 855
ClientWidth = 9675
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
--- 1,13 ----
VERSION 5.00
! Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
! Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
! Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{44F33AC4-8757-4330-B063-18608617F23E}#12.4#0"; "HighlightBox.ocx"
Begin VB.Form frmMain
Caption = "pgAdmin II"
ClientHeight = 6675
ClientLeft = 165
! ClientTop = 1425
ClientWidth = 9675
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
***************
*** 339,345 ****
NumPanels = 5
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
! Object.Width = 5611
MinWidth = 2
Text = "Ready"
TextSave = "Ready"
--- 339,345 ----
NumPanels = 5
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
! Object.Width = 5638
MinWidth = 2
Text = "Ready"
TextSave = "Ready"
***************
*** 3252,3273 ****
Dim lvItem As ListItem
Dim rsStat As New Recordset
' Statistics.
' These don't come from pgSchema because they aren't really schema related.
If ctx.dbVer >= 7.2 Then
! Set rsStat = svr.Databases(ctx.CurrentDB).Execute("SELECT relname, blks_read,
blks_hit FROM pg_statio_all_sequences ORDER BY relname")
sv.ColumnHeaders.Add , , "Sequence", 2000
sv.ColumnHeaders.Add , , "Blocks Read", 2000
sv.ColumnHeaders.Add , , "Blocks Hit", 2000
While Not rsStat.EOF
! If
svr.Databases(ctx.CurrentDB).Namespaces(ctx.CurrentNS).Sequences.Exists(rsStat!relname)
Then
! If Not
(svr.Databases(ctx.CurrentDB).Namespaces(ctx.CurrentNS).Sequences(rsStat!relname).SystemObject
And Not ctx.IncludeSys) Then
! Set lvItem = sv.ListItems.Add(, "STA+" & GetID, rsStat!relname & "",
"statistics", "statistics")
! lvItem.SubItems(1) = rsStat!blks_read & ""
! lvItem.SubItems(2) = rsStat!blks_hit & ""
! End If
End If
rsStat.MoveNext
Wend
--- 3252,3277 ----
Dim lvItem As ListItem
Dim rsStat As New Recordset
+ Dim szSql As String
' Statistics.
' These don't come from pgSchema because they aren't really schema related.
If ctx.dbVer >= 7.2 Then
! If ctx.dbVer >= 7.3 Then
! szSql = "SELECT relname, blks_read, blks_hit FROM pg_statio_all_sequences
where schemaname='" & ctx.CurrentNS & "' ORDER BY relname"
! Else
! szSql = "SELECT relname, blks_read, blks_hit FROM pg_statio_all_sequences
ORDER BY relname"
! End If
! Set rsStat = svr.Databases(ctx.CurrentDB).Execute(szSql)
sv.ColumnHeaders.Add , , "Sequence", 2000
sv.ColumnHeaders.Add , , "Blocks Read", 2000
sv.ColumnHeaders.Add , , "Blocks Hit", 2000
While Not rsStat.EOF
! If Not
(svr.Databases(ctx.CurrentDB).Namespaces(ctx.CurrentNS).Sequences(rsStat!relname).SystemObject
And Not ctx.IncludeSys) Then
! Set lvItem = sv.ListItems.Add(, "STA+" & GetID, rsStat!relname & "",
"statistics", "statistics")
! lvItem.SubItems(1) = rsStat!blks_read & ""
! lvItem.SubItems(2) = rsStat!blks_hit & ""
End If
rsStat.MoveNext
Wend
***************
*** 3404,3427 ****
Dim lvItem As ListItem
Dim rsStat As New Recordset
' Statistics.
' These don't come from pgSchema because they aren't really schema related.
If ctx.dbVer >= 7.2 Then
! Set rsStat = svr.Databases(ctx.CurrentDB).Execute("SELECT relname, n_tup_ins,
n_tup_upd, n_tup_del FROM pg_stat_all_tables ORDER BY relname")
sv.ColumnHeaders.Add , , "Table", 2000
sv.ColumnHeaders.Add , , "Tuples Inserted", 2000
sv.ColumnHeaders.Add , , "Tuples Updated", 2000
sv.ColumnHeaders.Add , , "Tuples Deleted", 2000
While Not rsStat.EOF
! If
svr.Databases(ctx.CurrentDB).Namespaces(ctx.CurrentNS).Tables.Exists(rsStat!relname)
Then
! If Not
(svr.Databases(ctx.CurrentDB).Namespaces(ctx.CurrentNS).Tables(rsStat!relname).SystemObject
And Not ctx.IncludeSys) Then
! Set lvItem = sv.ListItems.Add(, "STA+" & GetID, rsStat!relname & "",
"statistics", "statistics")
! lvItem.SubItems(1) = rsStat!n_tup_ins & ""
! lvItem.SubItems(2) = rsStat!n_tup_upd & ""
! lvItem.SubItems(3) = rsStat!n_tup_del & ""
! End If
End If
rsStat.MoveNext
Wend
--- 3408,3435 ----
Dim lvItem As ListItem
Dim rsStat As New Recordset
+ Dim szSql As String
' Statistics.
' These don't come from pgSchema because they aren't really schema related.
If ctx.dbVer >= 7.2 Then
! If ctx.dbVer >= 7.3 Then
! szSql = "SELECT relname, n_tup_ins, n_tup_upd, n_tup_del FROM
pg_stat_all_tables where schemaname='" & ctx.CurrentNS & "' ORDER BY relname"
! Else
! szSql = "SELECT relname, n_tup_ins, n_tup_upd, n_tup_del FROM
pg_stat_all_tables ORDER BY relname"
! End If
! Set rsStat = svr.Databases(ctx.CurrentDB).Execute(szSql)
sv.ColumnHeaders.Add , , "Table", 2000
sv.ColumnHeaders.Add , , "Tuples Inserted", 2000
sv.ColumnHeaders.Add , , "Tuples Updated", 2000
sv.ColumnHeaders.Add , , "Tuples Deleted", 2000
While Not rsStat.EOF
! If Not
(svr.Databases(ctx.CurrentDB).Namespaces(ctx.CurrentNS).Tables(rsStat!relname).SystemObject
And Not ctx.IncludeSys) Then
! Set lvItem = sv.ListItems.Add(, "STA+" & GetID, rsStat!relname & "",
"statistics", "statistics")
! lvItem.SubItems(1) = rsStat!n_tup_ins & ""
! lvItem.SubItems(2) = rsStat!n_tup_upd & ""
! lvItem.SubItems(3) = rsStat!n_tup_del & ""
End If
rsStat.MoveNext
Wend
***************
*** 3691,3701 ****
Dim lvItem As ListItem
Dim rsStat As New Recordset
' Statistics.
' These don't come from pgSchema because they aren't really schema related.
If ctx.dbVer >= 7.2 Then
! Set rsStat = svr.Databases(ctx.CurrentDB).Execute("SELECT null_frac, avg_width,
n_distinct, most_common_vals, most_common_freqs, histogram_bounds, correlation FROM
pg_stats WHERE tablename = '" & Node.Parent.Parent.Text & "' AND attname = '" &
Node.Text & "'")
sv.ColumnHeaders.Add , , "Statistic"
sv.ColumnHeaders.Add , , "Value"
--- 3699,3716 ----
Dim lvItem As ListItem
Dim rsStat As New Recordset
+ Dim szSql As String
' Statistics.
' These don't come from pgSchema because they aren't really schema related.
If ctx.dbVer >= 7.2 Then
! If ctx.dbVer >= 7.3 Then
! szSql = "SELECT null_frac, avg_width, n_distinct, most_common_vals,
most_common_freqs, histogram_bounds, correlation FROM pg_stats "
! szSql = szSql & "WHERE tablename = '" & Node.Parent.Parent.Text & "' AND
attname = '" & Node.Text & "' and szhemaname='" & ctx.CurrentNS & "'"
! Else
! szSql = "SELECT null_frac, avg_width, n_distinct, most_common_vals,
most_common_freqs, histogram_bounds, correlation FROM pg_stats WHERE tablename = '" &
Node.Parent.Parent.Text & "' AND attname = '" & Node.Text & "'"
! End If
! Set rsStat = svr.Databases(ctx.CurrentDB).Execute(szSql)
sv.ColumnHeaders.Add , , "Statistic"
sv.ColumnHeaders.Add , , "Value"
***************
*** 3852,3873 ****
Dim lvItem As ListItem
Dim rsStat As New Recordset
' Statistics.
' These don't come from pgSchema because they aren't really schema related.
If ctx.dbVer >= 7.2 Then
! Set rsStat = svr.Databases(ctx.CurrentDB).Execute("SELECT relname, indexrelname,
idx_blks_read, idx_blks_hit FROM pg_statio_all_indexes WHERE relname = '" &
Node.Parent.Text & "' ORDER BY indexrelname")
sv.ColumnHeaders.Add , , "Index", 2000
sv.ColumnHeaders.Add , , "Index Blocks Read", 2000
sv.ColumnHeaders.Add , , "Index Blocks Hit", 2000
While Not rsStat.EOF
! If
svr.Databases(ctx.CurrentDB).Namespaces(ctx.CurrentNS).Tables(rsStat!relname).Indexes.Exists(rsStat!indexrelname)
Then
! If Not
(svr.Databases(ctx.CurrentDB).Namespaces(ctx.CurrentNS).Tables(rsStat!relname).Indexes(rsStat!indexrelname).SystemObject
And Not ctx.IncludeSys) Then
! Set lvItem = sv.ListItems.Add(, "STA+" & GetID, rsStat!indexrelname & "",
"statistics", "statistics")
! lvItem.SubItems(1) = rsStat!idx_blks_read & ""
! lvItem.SubItems(2) = rsStat!idx_blks_hit & ""
! End If
End If
rsStat.MoveNext
Wend
--- 3867,3893 ----
Dim lvItem As ListItem
Dim rsStat As New Recordset
+ Dim szSql As String
' Statistics.
' These don't come from pgSchema because they aren't really schema related.
If ctx.dbVer >= 7.2 Then
! If ctx.dbVer >= 7.3 Then
! szSql = "SELECT relname, indexrelname, idx_blks_read, idx_blks_hit FROM
pg_statio_all_indexes "
! szSql = szSql & "WHERE relname = '" & Node.Parent.Text & "' and schemaname='"
& ctx.CurrentNS & "' ORDER BY indexrelname"
! Else
! szSql = "SELECT relname, indexrelname, idx_blks_read, idx_blks_hit FROM
pg_statio_all_indexes WHERE relname = '" & Node.Parent.Text & "' ORDER BY indexrelname"
! End If
! Set rsStat = svr.Databases(ctx.CurrentDB).Execute(szSql)
sv.ColumnHeaders.Add , , "Index", 2000
sv.ColumnHeaders.Add , , "Index Blocks Read", 2000
sv.ColumnHeaders.Add , , "Index Blocks Hit", 2000
While Not rsStat.EOF
! If Not
(svr.Databases(ctx.CurrentDB).Namespaces(ctx.CurrentNS).Tables(rsStat!relname).Indexes(rsStat!indexrelname).SystemObject
And Not ctx.IncludeSys) Then
! Set lvItem = sv.ListItems.Add(, "STA+" & GetID, rsStat!indexrelname & "",
"statistics", "statistics")
! lvItem.SubItems(1) = rsStat!idx_blks_read & ""
! lvItem.SubItems(2) = rsStat!idx_blks_hit & ""
End If
rsStat.MoveNext
Wend
---------------------------(end of broadcast)---------------------------
TIP 5: Have you checked our extensive FAQ?
http://www.postgresql.org/docs/faqs/FAQ.html
