Mailing List
Home
Forum Home
MySQL General - General MySQL discussion
MySQL++ - Programming with the C++ API to MySQL
MaxDB - Everything about MaxDB, formerly known as SAP DB
ODBC - ODBC with the MySQL Connector/ODBC driver
MySQL on Win32 - Runing MySQL on Windows 9x/Me/NT/2000/XP
Java Help - Mostly related to the MySQL Connector/J driver
Perl - Perl support for MySQL with DBI and DBD::mysql
GUI - MySQL GUI Tools
Announcement
Subjects
Subject: mysql openssl Question
ERROR 1045: Access denied for user: 'root@localhost ' (Using
password: NO)
Update one field with more fields from another table
Subject: Getting Identity after INSERT
ERROR 2002: Can 't connect to local MySQL server through socket
mysql test 4 1 fails with the gis test
Subject: MySQL Cluster Software
Downgrade Mysql from 4 to 3 23
Mysql 4 0 Oracle Stored Procedure Trigger Conversion
Can 't access mysql after kernel upgrade
Executing MySQL Commands From Within C Program
Comparing and writing out BLOBS
Subject: Re: Preventing Duplicate Entries
FULLTEXT query format question
Strange behavior, Table Level Permission
Does the binary log enabling affect the MySQL performances?
mysql:it 's a db not a dbms how it 's possible?!
mysql have same function mthod as Oracle decode()
 
Subject: Can 't update a Access 2002 form 's ado recordset through odbc

Subject: Can 't update a Access 2002 form 's ado recordset through odbc

2007-08-24       - By RAPPAZ Francois

 Back

According to Miscrosoft docs at http://support.microsoft.com/kb/281998/EN-US/,
it seems that a form's ado recordset with access 2002 should be updatable using
ODBC.

However, with a form in a mdb file with the access 2002 format, I still have
the "recordset is not updatable"  message ... Is there anyone who have managed
this ?

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

TIA
Fran?ois Rappaz


--
MySQL ODBC Mailing List
For list archives: http://lists.mysql.com/myodbc
To unsubscribe:    http://lists.mysql.com/myodbc?unsub=mysql@(protected)