Windows98・MySQLの設定

Windows98のコントロールパネルからODBCデータソースをダブルクリックして「ODBCデータソースアドミニストレータ」を開きます。 「システムDSN」タグを選択して「追加」ボタンをクリックし「MySQL ODBC 3.51 Driver」を選択し「完了」ボタンをクリックします。 MySQlのダイアログが表示されたら、右図のように必要な箇所を記述します。
  • Data Sourec Name には適当な名前を付けます。
  • Host/Server Name or IP　は「 192.168.1.2 」
  • Database Nameは「 sixdb 」
  • Userは「 root 」
  • Passwordは空欄のまま
  • Port は「3306」




「 Test Data Source 」ボタンをクリックしてデータベースのアクセスしてみましょう。

データベースに接続できれば右図のようなダイアログが表示されます。エラーダイアログが表示された場合は原因を探して、間違っている設定などを訂正して下さい。



Excelの設定変更

ExcelVBEを開き、ユーザ関数のデータベース接続モジュールを次のように書き換えます。
書き換えるのはサーバーの名前だけです。（下記ソースの赤文字部分。）

'データベースへ接続
01:Function Database_open() As Integer
02:
03:    On Error GoTo ERR_statements
04:
05:    connect.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
06:                & "SERVER=192.168.1.2; DATABASE=sixd    b; UID=root; OPTION=3"
07:    connect.Open
08:
09:ERR_statements:
10:    
11:    If (Err.Number <> 0) Then
12:        Call MsgBox("データベースに接続できません。")
13:        Set connect = Nothing
14:    End If
15:    Database_open = Err.Number
16:
17:End Function

各クライアントからの接続も確認して下さい。
ただし、各クライアントが同時にデータを入力した時の衝突を避けるためのソースは記述してありません。


©AstroHeart
All Rights Reserved.