[前][次][番号順一覧][スレッド一覧]

mysql:5133

From: "MIYATSU Kazunari" <"MIYATSU Kazunari" <mid@xxxxxxxxxx>>
Date: Sat, 9 Feb 2002 13:44:18 +0900
Subject: [mysql 05133] Re: 返信: Re: VB6.0 で MYSQL に SQL

VB6.0でMySQLにSQLをおくれれば良いのですか?
VB6のHELPを参考に1プローシジャ作ってみました。

MySQL側には'Test'データベース
UniqueIDと、Memoの2つのフィールドを持つTestTABLE(既にUniqueID:1〜4のレコー
ド作成済み)
root名でパスワード無しアクセス可能

Win2k側でODBCデータソースアドミニストレータにて'MYSQLODBC'名にてシステムDSN
でMyODBCを登録済み。

VB側ではフォーム上にCommand1のボタンを配置し、参照設定にて'Microsoft DAO 3.6
Object Library"をチェックして以下を追加
Command1のClickイベントプローシジャ-----------------------------------
Private Sub Command1_Click()
    Dim WS As WorkSpace
    Dim CN As Connection

    Set WS = CreateWorkspace("WS01", "root", "", dbUseODBC)
    Set CN = WS.OpenConnection("Connect01", _
                              dbDriverPrompt, , _

"ODBC;DATABASE=Test;UID=root;PWD=;DSN=MYSQLODBC;OPTION=16835")
    CN.Execute "UPDATE TestTABLE Set Memo='ID1memo' WHERE UniqueID='1'"
End Sub
--------------------------------------------------------------------
といったとこですけど。




[前][次][番号順一覧][スレッド一覧]

      5132 2002-02-09 11:57 [<m-kurata@xxxxxxxxxx] 返信: Re: VB6.0  で MYSQL に SQL       
->    5133 2002-02-09 13:44 ┗["MIYATSU Kazunari" <]