Getting Return from query

[GAKEN]

I am running the following statement:

    SQL = "if object_id('BA_REPORT_MASTER') is not null  PRINT 'True' ELSE PRINT 'False'"
    RGConnection.Execute (SQL)

How do I get the result back?

 

[Corticus]

Hi,

That doesn't look like an SQL expression to me but I could be wrong.

Function reportGen()

Dim db As Database
Dim rs As Recordset
Dim select_sql As String

select_sql = "select * from BA_Report_Master into NewTable where ((Not ([BA_Report_Master].Location) Is Null));

Set db = CurrentDb()
db.Execute (select_sql)

End Function

You should be able to run this like a sub. It should create a new table NewTable and populate it with the SQL listed above. I might be totally off what you're going for, but let us know.

HTH,

 

[GAKEN]

Resolved!

I fixed this! Here is what I did:

CREATE procedure sp_BA_ReportExist

AS

if (object_id('BA_REPORT_MASTER') is not null)

  select 'True' as Answer

else
 
 select 'False'  as Answer

return 0
GO

I changed my stored procedure to return a recordset which allowed me to change my code to:

    SQL = "sp_BA_ReportExist"
    Set RGRecordSet = RGConnection.Execute(SQL)
    
    Do While Not RGRecordSet.EOF
        TableExists = RGRecordSet.Fields("Answer")
            RGRecordSet.MoveNext
    Loop

Basically I just wanted to know if that table was there so I could set defaults on a form when it was loaded.

Thanks for your help!

Ken

 

[Corticus]

Glad you got it worked out!

-Corticus