Форумчане, доброго времени суток!

Прошу помочь в создании в запуске связки Аксесс 2003 -MySQL

Пояснения ко вложению.
В Management.mdb есть форма fEnter1 введя в которую пароль "1"открываем соответствующую форму. Таким образом организовано распределение прав доступа
При переносе содержимого таблицна MySQL возникает проблема: при вводе пароля связь с таблицами MySQL не образуется, не запускается, выдает ошибку в модуле.
Подскажите, пожалуйста, что нужно сделать?

miksoft, это на стыке аксесс и MySQL. Куда лучше перенести- где больше будет советов..

Модератор: Тема перенесена из форума "MySQL".

Есть модуль подключения к Аксесс к Ms SQL Server
Просьба помочь переделать его для соединения Аксесс к MySQL

Option Compare Database
Option Explicit

Private Sub cmdConnect_Click()
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim rst As DAO.Recordset
Dim strServer As String
Dim strDB As String
Dim strTable As String
Dim strConnect As String
Dim strMsg As String

On Error GoTo HandleErr

' Build base authentication strings
Select Case Me.optAuthentication
' Windows/NT login
Case 1
strConnect = "ODBC;Driver={SQL Server};Trusted_Connection=Yes;"
' SQL server login
Case 2
strConnect = "ODBC;Driver={SQL Server};UID=" _
& Me.txtUser & ";PWD=" & Me.txtPwd & ";"
End Select

' Get rid of old links, if any
Call DeleteLinks

' Create recordset to obtain server, database and table names
Set db = CurrentDb
Set rst = db.OpenRecordset("tblSQLTables", dbOpenSnapshot)
If rst.EOF Then
strMsg = "There are no tables listed in tblSQLTables."
GoTo ExitHere
End If

' Walk through the recordset and create the links
Do Until rst.EOF
strServer = rst!SQLServer
strDB = rst!SQLDatabase
strTable = rst!SQLTable
' Create a new TableDef object
Set tdf = db.CreateTableDef(strTable)
' Set the Connect property to establish the link
tdf.Connect = strConnect & _
"Server=" & strServer & _
";Database=" & strDB & ";"
tdf.SourceTableName = strTable
' Append to the database's TableDefs collection
db.TableDefs.Append tdf
rst.MoveNext
Loop

strMsg = "Tables linked successfully."

rst.Close
Set rst = Nothing
Set tdf = Nothing
Set db = Nothing

ExitHere:
MsgBox strMsg, , "Link SQL Tables"
Exit Sub

HandleErr:
Select Case Err
Case Else
strMsg = Err & ": " & Err.Description
Resume ExitHere
End Select
End Sub

Private Sub DeleteLinks()
' Delete any leftover linked tables from a previous session

Dim tdf As DAO.TableDef

On Error GoTo HandleErr
For Each tdf In CurrentDb.TableDefs
With tdf
' Only delete SQL Server tables
If (.Attributes And dbAttachedODBC) _
= dbAttachedODBC Then
CurrentDb.Execute "DROP TABLE [" & tdf.Name & "]"
End If
End With
Next tdf

ExitHere:
Set tdf = Nothing
Exit Sub

HandleErr:
MsgBox _
Err & ": " & Err.Description, , _
"Error in DeleteLinks()"
Resume ExitHere
Resume
End Sub

Private Sub cmdExit_Click()
DoCmd.Close
End Sub

Private Sub Form_Load()
Call DeleteLinks
End Sub

Private Sub optAuthentication_AfterUpdate()

Select Case Me.optAuthentication
Case 1 ' NT authentication
Me.txtUser.Visible = False
Me.txtPwd.Visible = False

Case 2 ' SQL server authentication
Me.txtUser.Visible = True
Me.txtPwd.Visible = True
End Select
End Sub

Установил, подключается, но
при введении данных через интерфейс Аксесс 2003, связанный с MySQL текстовые данные записываются в человеческом виде, но в консоли HeidiSQL 9.3.0.4984 они отображаются абракадаброй.
И наоборот- то что импортировалось на сервер MySQL - -то в интерфейсе отображается абракадаброй.
Мне кажется-дело в кодировке.
прилагаю модуль, который соединяет Аксесс с MySQL