Вообще странно, что юникод не катит, должен.
А кусочек кода можете представить на публику?
<div class="sp-wrap"><div class="sp-head-wrap"><div class="sp-head folded clickable">кусочек кода</div></div><div class="sp-body"><div class="sp-content"><!--shcode--><pre><code class='vb'>Option Public
Option Declare
Uselsx "*LSXODBC"
Dim con As ODBCConnection
Dim qry As ODBCQuery
Dim result As ODBCResultSet
'=
Dim TITLE
Dim TEXTS
'=
Dim session As NotesSession
Dim stream As NotesStream
Dim fn As String
Sub Initialize
Set con = New ODBCConnection
Set qry = New ODBCQuery
Set result = New ODBCResultSet
'=
Set qry.Connection = con
Set result.Query = qry
'=
con.ConnectTo("Lotus_MySQL")
qry.SQL = "SELECT * FROM News"
'=check if the qwery is ok
If Not result.Execute Then
Messagebox result.GetExtendedErrorMessage,, _
result.GetErrorMessage
Exit Sub
End If
'=check rows
If Not result.IsResultSetAvailable Then
Messagebox "Result set not available",, _
"No result set"
Exit Sub
End If
If result.NumRows=0 Then
Messagebox "No rows",, _
"No result set"
Exit Sub
End If
'=
If Dir$("C:\Temp",16)="" Then Mkdir "C:\Temp"
fn="C:\Temp\Lotus_MySQL_ODBC_UTF-8.txt"
'=
Set session = New NotesSession
Set stream=session.CreateStream
Call stream.Open(FN, "utf-8") '= Call stream.Open(FN, "unicode") tozhe ne katit
'=
Do
result.NextRow '=in first call NextRow return 1-st row
Call Result.GetValue("TITLE", TITLE)
Call Result.GetValue("TEXTS", TEXTS)
'=
Stream.WriteText(Cstr(TITLE)+chr(13))
Stream.WriteText(Cstr(TEXTS)+chr(13))
'=
Loop Until result.IsEndOfData
'=
result.Close(DB_CLOSE)
con.Disconnect
'=
Call Stream.Close
End Sub[/CODE]
в настройках ODBC-драйвера на 2й закладке в Initial Statement написать SET NAMES cp1251; (точка с запятой обязательна).
не помогает
?????