Bug #27353 MyODBC 3/ ADO server side static cursor not supporting required functions
Description:
According to MS:
For a Recordset of this CursorType = adOpenStatic
The Supports method must return True for all of these constants:
adBookmark, adHoldRecords, adMovePrevious, adResync
http://msdn2.microsoft.com/en-us/library/ms677593.aspx
Of these, the only one which seems to be working is adMovePrevious. This means several key functions such as cloning and resync will not work
How to repeat:
Private Sub Test()
On Error GoTo EH
Dim strSQL As String
Dim strConn As String
Dim connection1 As ADODB.Connection
Dim recset1 As ADODB.Recordset
Dim recset2 As ADODB.Recordset
Set connection1 = New ADODB.Connection
Set recset1 = New ADODB.Recordset
strConn = "DRIVER={MySQL ODBC 3.51 Driver};" & _
"SERVER=localhost;DATABASE=ado" & _
";USER=root;PASSWORD=mypass;OPTION=3;"
' open connection
connection1.ConnectionString = strConn
connection1.CursorLocation = adUseServer
connection1.Open
' open recordset
strSQL = "Select 1"
recset1.Open strSQL, connection1, adOpenStatic, _
adLockOptimistic, adCmdText
MsgBox "CurType: " & recset1.CursorType
MsgBox "supports bookmarks: " & recset1.Supports(adBookmark)
MsgBox "supports hold records:" & recset1.Supports(adHoldRecords)
MsgBox "supports move previous:" & recset1.Supports(adMovePrevious)
MsgBox "supports resync:" & recset1.Supports(adResync)
recset1.Resync
' It won't make it here
Set recset2 = recset1.Clone
recset1.Close
Set recset1 = Nothing
Set recset2 = Close
connection1.Close
Set connection1 = Nothing
Exit Sub
EH:
MsgBox Err.Number & ":" & Err.Description
End Sub
Portions of this website are copyright © 2001, 2002 The PHP Group
Page generated in 0.040 sec. using MySQL 8.4.7-u6-cloud
Timestamp references displayed by the system are UTC.
Content reproduced on this site is the property of the
respective copyright holders.
It is not reviewed in advance
by Oracle and does not necessarily represent the opinion of
Oracle or any other party.