F
Francois
From http://support.microsoft.com/kb/281998/EN-US/ it seems that you
could update a form's ado recordset with access 2002. I am using a mdb
file with the access 2002 format and I still have a "The recordset is
not updatable" message ... What shall I do to have an ADO recordset I
could update ?
I use mysql and Connector/ODBC 3.51.
I tried the following code on AfterUpdate of a text control: sSearch
is a string with the words being searched for.
Dim Cn As New ADODB.Connection
Dim rec As New ADODB.Recordset
Dim strConnection As String, sql as String
strConnection =
"ODBC;DSN=mysql_dokpe_i01_adm;UID= ... ;PWD= ... ;DATABASE=dokpe_i01"
With Cn
.Provider = "MSDASQL"
.Properties("Data Source").Value = strConnection
.Open
End With
sql = "select concat(nofm, '') as nofm, ti, tri, issn, ex, ad,
concat(noed,'') as noed, dom from jrn where match(ti) against(" &
Chr(39) & sSearch & Chr(39) & " in boolean mode)"
rec.CursorLocation = adUseClient
rec.Open sql, Cn, adOpenKeyset, adLockOptimistic
If Not rec.EOF Then
Set Me.Recordset = rec
Else
MsgBox "No data"
End If
End If
Set rec = Nothing
Set Cn = Nothing
could update a form's ado recordset with access 2002. I am using a mdb
file with the access 2002 format and I still have a "The recordset is
not updatable" message ... What shall I do to have an ADO recordset I
could update ?
I use mysql and Connector/ODBC 3.51.
I tried the following code on AfterUpdate of a text control: sSearch
is a string with the words being searched for.
Dim Cn As New ADODB.Connection
Dim rec As New ADODB.Recordset
Dim strConnection As String, sql as String
strConnection =
"ODBC;DSN=mysql_dokpe_i01_adm;UID= ... ;PWD= ... ;DATABASE=dokpe_i01"
With Cn
.Provider = "MSDASQL"
.Properties("Data Source").Value = strConnection
.Open
End With
sql = "select concat(nofm, '') as nofm, ti, tri, issn, ex, ad,
concat(noed,'') as noed, dom from jrn where match(ti) against(" &
Chr(39) & sSearch & Chr(39) & " in boolean mode)"
rec.CursorLocation = adUseClient
rec.Open sql, Cn, adOpenKeyset, adLockOptimistic
If Not rec.EOF Then
Set Me.Recordset = rec
Else
MsgBox "No data"
End If
End If
Set rec = Nothing
Set Cn = Nothing