Running a Query in VB within Access

[webraycer]

I need to run the following query in VB, but it goes in an event procedure for a form button in Access. It's looking up a language abbreviation given the language name.

SELECT abbreviation FROM languages WHERE name = Me.languageForm

Where languageForm contains the language name.

Thanks

[Paladyr]

If you are talking about using an ADODB.Recordset object you would just do something like this:

Dim rstRS as New ADODB.Recordset

rstRS.Open "Put query here", CurrentProject.Connection, adOpenKeyset, adLockReadOnly

[webraycer]

If you are talking about using an ADODB.Recordset object you would just do something like this:

Dim rstRS as New ADODB.Recordset

rstRS.Open "Put query here", CurrentProject.Connection, adOpenKeyset, adLockReadOnly

"No value given for one or more required parameters"
That's what I see in an alert window for the rstRS.Open line.

Also, is this syntax correct to read the results of a query:

Me.filename = Me.filename & rstRS.Fields.Item(0)

[Paladyr]

"No value given for one or more required parameters"
That's what I see in an alert window for the rstRS.Open line.

Also, is this syntax correct to read the results of a query:

Me.filename = Me.filename & rstRS.Fields.Item(0)

That's not correct. You can read the results by either:

rstRS("Field_Name")

or

rstRS!Field_Name

if you have a space

rstRS![Field Name]

plus depending on what you are assigning the value to you may need to convert the field to a string, number, whatever...

Dim str1 as String

str1 = CStr(rstRS("Field_Name"))

[webraycer]

Thanks -- but my rstRS.Open line is still broken with the same error.

[webraycer]

It works now -- I forgot to put single quotes around a value in the query -- I had "WHERE name=targetname" instead of "WHERE name='targetname'"

Why that gave me the error I got I have no idea -- most programming languages give a query syntax error.

[Paladyr]

It works now -- I forgot to put single quotes around a value in the query -- I had "WHERE name=targetname" instead of "WHERE name='targetname'"

Why that gave me the error I got I have no idea -- most programming languages give a query syntax error.

when you are opening recordsets, you will only get errors that the recordset can generate, rather than an error about interpreting the SQL statement. Glad it works!