どなたかわかる方教えてください。
プログラムでACCESSの最適化をしようと思います。VB6で使用していたソースをベースに下記のようなプログラムを作ったのですが
途中、エラー（添付ファイル）が発生してしまいました。
どうすれば解決できるでしょうか。よろしくお願いします。
Dim BaseSize As Long
Dim jroJet As New JRO.JetEngine
Dim TempDB As String
Dim MakeUserPath As String
TempDB = Application.StartupPath + "\Database\TMP.accdb" '一時的に領域作成
MakeUserPath = Application.StartupPath + "\Database\Database.accdb"
'データベースの最適化
BaseSize = FileLen(MakeUserPath)
jroJet.CompactDatabase("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & MakeUserPath & ";", _
"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & TempDB & ";")
'最適化ファイルを正規データベースにする
If Len(Dir$(MakeUserPath)) > 0 Then
Kill(MakeUserPath)
FileCopy(TempDB, MakeUserPath)
If Len(Dir$(TempDB)) > 0 Then Kill(TempDB)
End If
さくらインターネットの専用サーバにMySQLを設置しています。
ローカルPC（私の自宅PC・Windows XP）で
VC#2008にて、専用サーバのMySQLに繋ぎ、
データベース操作（select等）を行いたいのですが、
可能でしょうか？
現在、ローカルPCに、MySQL Connector Net 6.2.2をインストールし、
MySql.Data.dllを参照設定でVC#2008の開発中のプロジェクトに
追加しています。
コードは下記URLのソースコードと殆ど同じです。
DB接続情報は勿論専用サーバのMySQLへの接続情報を
設定していまして、Data Sourceには、
localhostを設定しています。
http://hades.arrow.jp/blog/2008/08/cmysql3.html
下記も記述しています。
using MySql.Data.MySqlClient;
using MySql.Data.Types;
実行しますと、下記のステップで失敗します。
// 接続を開く
myConn.Open();
Unable to connect to any of the specified MySQL hosts
というエラーメッセージが出てきます。
以上、問題が分かる方、よろしくお願いします。
