You are most certainly running an MS SQL Server db, not an Oracle one.
--
Vladimir Zakharychev (bob@dpsp-yes.com) http://www.dpsp-yes.com
Dynamic PSP(tm) - the first true RAD toolkit for Oracle-based internet applications.
All opinions are mine and do not necessarily go in line with those of my employer.
"rob merritt" <merritt.robert_at_spsd.sk.ca> wrote in message
news:b6bf97d5.0205032159.1d704e34_at_posting.google.com...
> hi
>
>
>
> I am doing some consulting work for an k12 institution. The
> provincial
> edu department has a oracle db that is queryed buy this division via a
> excel ss given to them buy the provincial edu. In the ss a sp is run
> to retrive data
> for one grade we were hoping to customize the query a bit to get more
> demographics on all grades. can i get the text of a query that is run
> thusly:
> sqlStr = "dbo.up_s_batch_stats_EXCEL " & Val(Range("G8").Value)
>
> ie get the SELECT .... FROM... that is run by
> dbo.up_s_batch_stats_EXCEL
>
>
>
> Sub batchStats()
> On Error GoTo eh
> 'If Format(Time, "HH:MM") >= Format("08:00", "HH:MM") And Format(Time,
> "HH:MM") <= Format("17:00", "HH:MM") Then
> ' MsgBox "This query can only be run before 8 AM or after 5 PM"
> ' Exit Sub
> 'End If
>
> Range("A2").Select
> Dim sqlStr As String
> sqlStr = "dbo.up_s_batch_stats_EXCEL " & Val(Range("G8").Value)
>
> With Selection.QueryTable
> .Connection = _
> "ODBC;DRIVER=SQL Server;SERVER=LTDBPRDCL;APP=Microsoft®
> Query;DATABASE=cnv_ttl_prd;Trusted_Connection=Yes"
> .Sql = sqlStr
> .Refresh False
> End With
>
> MsgBox "Data refreshed!"
> Exit Sub
> eh:
> If Err.Number = 1004 Then
> MsgBox "This query can only be run before 8 AM or after 5 PM"
> Else
> MsgBox Err.Number & " " & Err.Description
> End If
> End Sub
Received on Mon May 06 2002 - 05:16:13 CDT
