Microsoft KB Archive/197883

= PRB: Run-time Error '40002' When Querying on s_GUID field in RDO =

Article ID: 197883

Article Last Modified on 4/22/2003

-

APPLIES TO


 * Microsoft Visual Basic 5.0 Enterprise Edition
 * Microsoft Visual Basic 6.0 Enterprise Edition

-



This article was previously published under Q197883



SYMPTOMS
When using the database replication feature of Microsoft Access, a ReplicationID AutoNumber field is added to the database. The ReplicationID AutoNumber field (s_GUID) is a 16-byte GUID (Globally Unique Identifier) that uniquely identifies each record in the database.

If you are using RDO 2.0 to access the replicated database and you try to search on the s_GUID field using the following syntax: Set rdoRes = rdoConn.OpenResultset("select * from Nwind where  s_guid={guid{9B83B027-E038-11D1-847E-00C04FB1784E}}", _   rdOpenKeyset, rdConcurLock, rdAsyncEnable) The following error occurs:

  Run-Time error '40002':

37000: [Microsoft][ODBC Microsoft Access 97 Driver] Syntax error (missing operator) in query expression 's_guid = guid 9B83B027-E038-11D1-847E-00C04FB1784E}'.

Notice that all of the curly braces have been stripped off except the last one.



CAUSE
Because ODBC defines the curly brace as an escape code for vendor specific escape clauses, you must turn off escape clause scanning when you use literal globally unique identifiers (GUIDs) in SQL statements with the Microsoft Access ODBC Driver. This is accomplished by using the SQLSetConnectionOption API to turn off driver scanning for escape clauses.



STATUS
This behavior is by design.



MORE INFORMATION
Here is an example:

 Create a new form in Visual Basic. Form1 is created by default. From the Project menu, point to References then select Microsoft Remote Data Object 2.0 in the References dialog box. Add a Command Button to the form.  Add the following to the General Declaration section of the form: Private Sub Command1_Click Dim rdoConn As rdoConnection Dim rdoRes As rdoResultset Dim strguid As String

'Make sure that you are pointing to a valid DSN and a replicated 'database. Set rdoConn = rdoEnvironments(0).OpenConnection("", _             rdDriverNoPrompt, _              False, "DRIVER={Microsoft Access Driver (*.mdb)};" & _              "dsn=acc2;UID=admin;PWD=;")

'Change this so that it points to a valid GUID in your replicated 'database. strguid = "{guid {9B83B027-E038-11D1-847E-00C04FB1784E}}"

'Comment this line and you will see the previously noted error. SQLSetConnectOption rdoConn.hdbc, SQL_NOSCAN, SQL_NOSCAN_ON

Set rdoRes = rdoConn.OpenResultset("select * from customers " & _              "where s_guid = " & strguid, rdOpenKeyset, rdConcurLock)

Debug.Print rdoRes!CompanyName

rdoRes.Close rdoConn.Close End Sub  Add a new module to the form. Module1 is created by default.</li>  Add the following code to the General Declaration section of the Module: Option Explicit Public Const SQL_NOSCAN = 2 Public Const SQL_NOSCAN_OFF = 0 Public Const SQL_NOSCAN_ON = 1

Declare Sub SQLSetConnectOption Lib "odbc32.dll" (ByVal hdbc As Long,    ByVal p1 As Long,   ByVal p2 As Long) </li> Run the application. The value of the Company Name field should be displayed in the Immediate window.</li></ol>

<div class="references_section">