Parse SQL statement for list of tables

Hello,
I would like to make a procedure of sorts that accepts as input a full
sql statment and then is able to return a list (or print) of only the tables
referenced in the sql statement. Is this kind of code available?
Thanks.
Bentweak this
-- Create our Pivot table ** do this only once-- populate it with 1000 rows
CREATE TABLE NumberPivot (NumberID INT PRIMARY KEY)
DECLARE @.intLoopCounter INT
SELECT @.intLoopCounter =0
WHILE @.intLoopCounter <=999 BEGIN
INSERT INTO NumberPivot
VALUES (@.intLoopCounter)
SELECT @.intLoopCounter = @.intLoopCounter +1
END
GO
Create table #tempTables (SplitString varchar(50))
DECLARE @.chvGroupNumbers VARCHAR(1000)
SELECT @.chvGroupNumbers ='select * from authors join publishers on bla bla
bla...'
insert into #tempTables
SELECT SUBSTRING(' ' + @.chvGroupNumbers + ' ', NumberID + 1,
CHARINDEX(' ', ' ' + @.chvGroupNumbers + ' ', NumberID + 1) - NumberID -1)AS
Value
FROM NumberPivot
WHERE NumberID <= LEN(' ' + @.chvGroupNumbers + ' ') - 1
AND SUBSTRING(' ' + @.chvGroupNumbers + ' ', NumberID, 1) = ' '
GO
select * from #tempTables where Splitstring in (SELECT table_name FROM
INFORMATION_SCHEMA.TABLES
WHERE TABLE_TYPE ='BASE TABLE')
Use Pubs for this example
http://sqlservercode.blogspot.com/
"Ben" wrote:

> Hello,
> I would like to make a procedure of sorts that accepts as input a full
> sql statment and then is able to return a list (or print) of only the tabl
es
> referenced in the sql statement. Is this kind of code available?
> Thanks.
> Ben

Parameters with Crystal Reports.

I have set up some (three to be exact) parameters in a report that I want to
be able to print. Before I set the parameters everything worked just fine. I
set the datasource and the printout worked great. Now I add parameters to the
report and it seems that no matter what I do, I get an exception indicating
that I have not set the parameters. Here is the latest try (this is Winform
code):
Dim rpt As New QuoteDetail
Dim disVal As New CrystalDecisions.Shared.ParameterDiscreteValue()
disVal.Value = "Net 30"
rpt.Parameter_Terms.CurrentValues.Add(disVal)
disVal = New CrystalDecisions.Shared.ParameterDiscreteValue()
disVal.Value = q.FileName
rpt.Parameter_QuoteFile.CurrentValues.Add(disVal)
disVal = New CrystalDecisions.Shared.ParameterDiscreteValue()
disVal.Value = "Me"
rpt.Parameter_PreparerName.CurrentValues.Add(disVal)
rpt.SetDataSource(ds)
rpt.PrintToPrinter(1, False, 0, 0)
rpt.Dispose()
One interesting thing that I learned from several sessions in the debugger.
Before the SetDataSource there are current values for each of the parameters.
After the call to SetDataSource it seems that the current values go away.
I would like to just be able to set values for these parameters and print,
like a function call. Any suggestions on what I am doing wrong?
Thank you.
KevinThis forum is for Reporting Services, the reporting product from MS that
competes with Crystal. I know Crystal is still bundled with VS. I would
suggest a Visual Studio newsgroup. Not really sure where the best place is
for you to go for an answer.
Bruce Loehle-Conger
MVP SQL Server Reporting Services
"Kevin Burton" <KevinBurton@.discussions.microsoft.com> wrote in message
news:F3EA2C93-0DB0-4CB4-9A65-815EBAD105C4@.microsoft.com...
>I have set up some (three to be exact) parameters in a report that I want
>to
> be able to print. Before I set the parameters everything worked just fine.
> I
> set the datasource and the printout worked great. Now I add parameters to
> the
> report and it seems that no matter what I do, I get an exception
> indicating
> that I have not set the parameters. Here is the latest try (this is
> Winform
> code):
> Dim rpt As New QuoteDetail
> Dim disVal As New
> CrystalDecisions.Shared.ParameterDiscreteValue()
> disVal.Value = "Net 30"
> rpt.Parameter_Terms.CurrentValues.Add(disVal)
> disVal = New CrystalDecisions.Shared.ParameterDiscreteValue()
> disVal.Value = q.FileName
> rpt.Parameter_QuoteFile.CurrentValues.Add(disVal)
> disVal = New CrystalDecisions.Shared.ParameterDiscreteValue()
> disVal.Value = "Me"
> rpt.Parameter_PreparerName.CurrentValues.Add(disVal)
> rpt.SetDataSource(ds)
> rpt.PrintToPrinter(1, False, 0, 0)
> rpt.Dispose()
> One interesting thing that I learned from several sessions in the
> debugger.
> Before the SetDataSource there are current values for each of the
> parameters.
> After the call to SetDataSource it seems that the current values go away.
> I would like to just be able to set values for these parameters and print,
> like a function call. Any suggestions on what I am doing wrong?
> Thank you.
>
> Kevin