VB2005でDAOを使用して、ODBC経由でMySQLに接続しようとするとエラーになります。新しいPCに取り換えて実行したらエラーになったので原因がわからず困っています。教えてください。よろしくお願いします。
(1)Microsoft WindowsXp Professional Version2002 Service Pack3です。
(2).NETFramework2.0はインストール済です。
(3)Applicationエラーの内容は、
Public daodt As New dao.DBEngine
Public daows As DAO.Workspace
daows = daodt.CreateWorkspace("NewODBCWorkspace", "","", dao.WorkspaceTypeEnum.dbUseODBC)
上記のCreateWorkspaceを実行した時点で下記のエラーがでます。
「System.Runtime.InteropServices.COMException' の初回例外が発生しました」
ちなみに、古いPC（Microsoft WindowsXp Professional Version2002 Service Pack2）では、上記のエラーはでませんでした。（新しいPCはSP３が最初からインストールされていました）
' ==========================================
' 全ての行を読み込んで "" 行以外を出力する
' ==========================================
Module theGrap
Sub Main()
Dim iNow As Integer = 0
Dim iNext As Integer = 0
Dim aLine As String = ""
Do
iNow = iNext
aLine = FGets("D:\Temp\Test4.txt", iNow, iNext)
If aLine = "" Then Continue Do
Debug.Print(aLine)
Loop Until iNext = -1
End Sub
End Module
［イミディエイト ウインドウ］
123あいうえお90
123かきくけこ90
123さしすせそ90
と、成功しています。
' --------------
' 行末まで読む
' --------------
Do
fs.Seek(iNowPosition, SeekOrigin.Begin)
fs.Read(aBuf, 0, 2)
aChar = ec.GetString(aBuf).Substring(0, 1)
If aChar <> Chr(13) Then
aChars &= aChar
Else
iNowPosition = iNowPosition - 1
Exit Do
End If
iNowPosition += txt.LenB(aChar)
Loop While iNowPosition < fs.Length And (aChar <> Chr(13) Or aChar <> Chr(10))
しかし、実は、FGets 関数では１文字づつ読み込んでいます。
そこで、StreamReader で一行を読み込むように修正。
［イミディエイト ウインドウ］
123?????90
123?????90
123?????90
すると見事に化けてしまいました。
化けること自体は理解できるのですが、化けを修正する術がわかりません。
Function FGetl(ByVal aFile As String, _
ByVal iNowPosition As Integer, _
ByRef iNextPosition As Integer) As String
Dim aBuf(1) As Byte
Dim aChars As String = ""
iNextPosition = -1
If File.Exists(aFile) Then
Try
Using fs As FileStream = New FileStream(aFile, FileMode.Open, FileAccess.Read)
Dim sr As StreamReader
Dim ec As Encoding = Encoding.Default
fs.Seek(iNowPosition, SeekOrigin.Begin)
sr = New StreamReader(fs)
aChars = sr.ReadLine
iNowPosition += txt.LenB(aChars)
iNextPosition = NextPosition(fs, iNowPosition)
fs.Close()
Return aChars
End Using
Catch ex As IOException
MsgBox(ex.Message & "(FGets)", MsgBoxStyle.Exclamation, "エラー:")
Return ""
End Try
Else
Return ""
End If
End Function
文字の化けを修正する方法を教えて頂ければ幸いです。
