Run Select query from STRING

[memaxt]

Hi there,

I would like to run a select query from a string. basically I want to store the SQL statements in a texbox and click a button to run the code.

Textbox contents =

SELECT CurrentVersion.AreaTeam, CurrentVersion.Version, CurrentVersion.Selected
FROM CurrentVersion
GROUP BY CurrentVersion.AreaTeam, CurrentVersion.Version, CurrentVersion.Selected
HAVING (((CurrentVersion.Selected)=True));

I want the button to execute the code above to create the select query.

I've tried:

Dim strSQL As String

StrSQL = me.txtString

docmd.RunSQL StrSQL

but I get the following error: A RunSQL action requires an argument consiting of an SQL Statement.

is this possible to do for select queries?

 

[plog]

DoCmd.RunSQL (https://msdn.microsoft.com/en-us/library/office/ff194626.aspx?f=255&MSPPError=-2147217396) is for action queries (INSERT, UPDATE, DELETE) not SELECT queries.

What do you mean by 'run'? What are you hoping will occur?

You probably want to use DoCmd.OpenQuery (https://msdn.microsoft.com/en-us/library/office/ff192746.aspx)

 

[memaxt]

Hi Plog,

Many thanks for you reply,

I do indeed mean run, is it possible to run the query from statement I have stored in my textbox?

 

[plog]

I didn't ask if you meant run, I asked what do you meant by 'run'. What do you hope will occur on your computer screen with that SQL?

 

[memaxt]

Ahh my apologies,

I would like it to execute the select statement stored in the textbox field and display the query results.

 

[plog]

This is a good example of how to do that:

https://msdn.microsoft.com/en-us/library/office/ff195966.aspx

Basically you use your SQL to create a temporary query object, open that object and then delete it upon its close.

 

[memaxt]

Thank you,

the part where it says:

qdfTemp = .CreateQueryDef("", _
"SELECT * FROM Employees")

I changed it to

qdfTemp = me.txtstring

but to no joy

 

[plog]

Find out what me.txtstring actually contains. Then paste that into an actual query and see if it runs. Sounds like you have bad SQL in that variable.

 

[Grumm]

I would have used recordsets since I didn't know that other methode...
Most of the time i just make an sSQL string with the entire correct query
Then use

Set rs_Records = CurrentDb.OpenRecordset(sSQL)

It may be a wrong practice but it works for me.

 

[memaxt]

Thank you for your relies!

I ended using the following link:

http://www.utteraccess.com/forum/index.php?showtopic=1992179&view=findpost&p=2276028

There is an example database that shows you where to store your sql statement and run it via vba.

many thanks again for all your help everyone.