MyODBC With VB: DAO 2006-03-18 - By Wolfgang Fuertbauer
Back
Want to migrate a big application from MS Access to MySql;
Mysql 5.x running on Window, stable ODBC Driver installed and tested
(with Access)
now I try to run the sample from the docs:
>Private Sub myodbc_dao_Click()
>
>Dim ws As Workspace
>Dim conn As Connection
>Dim queryDef As queryDef
>Dim str As String
>
>'connect to MySQL using MySQL ODBC 3.51 Driver
>Set ws = DBEngine.CreateWorkspace("", "venu", "venu", dbUseODBC)
>str = "odbc;DRIVER={MySQL ODBC 3.51 Driver};"_
> & "SERVER=localhost;"_
> & " DATABASE=test;"_
> & "UID=venu;PWD=venu; OPTION=3"
>Set conn = ws.OpenConnection("test", dbDriverNoPrompt, False, str)
>
>'Create table my_dao
>Set queryDef = conn.CreateQueryDef("", "drop table if exists my_dao")
>queryDef.Execute
>
>Set queryDef = conn.CreateQueryDef("", "create table my_dao(Id INT AUTO
_INCREMENT PRIMARY KEY, " _
> & "Ts TIMESTAMP(14)
NOT NULL, Name varchar(20), Id2 INT)")
>queryDef.Execute
>Insert new records using rs.addNew
>Set rs = conn.OpenRecordset("my_dao")
everything works fine until then "conn.openrecordset(" ..
this ends in an VB Runtime error: 3146 ODBC Error
Who can help please ?
--
-- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ---- ------
Wolfgang F?rtbauer Tel: +43 7612 77620
Steinbichlstrasse 58d Mobil: +43 664 8397987
4812 Pinsdorf E-Mail: w.fuertbauer@(protected)
Austria
--
MySQL ODBC Mailing List
For list archives: http://lists.mysql.com/myodbc
To unsubscribe: http://lists.mysql.com/myodbc?unsub=mysql@(protected)
|
|
