mysql:13494
From: Hiroshi Nagasaka <Hiroshi Nagasaka <h-nagasaka@xxxxxxxxxx>>
Date: Tue, 14 Nov 2006 11:28:18 +0900
Subject: [mysql 13494] Re: MYSQL+VB6.0*ADODCについて
永坂です。
最近触ってないので古いソース引っ張ってきましたが
My_Db.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};Server=[サーバIP];PORT=[使用ポート];DATABASE=[データベース];UID=[ユーザID];PASSWORD=[ユーザパスワード];OPTION=3"
My_Db.Open
という形でDB接続しています。
ODBCドライバ部分はODBCデータソースアドミニストレータなどで確認してください。
Openしなくても接続できるんでしょうか?
> 鈴木@宮城といいます
>
> かなり古い技術かもしれませんが
> VB6.0+ADODC+ODBC接続でのプログラムを作成しています
>
> MYSQLのデータベースを1度アクセス2000でリンク(ODBC接続)させ
> データの更新をします
> (ここでは'A'というデータを削除する)
>
> Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
> & App.Path & "\AC2000.mdb;" & "Mode=Share Deny None;Persist Security
> Info=False"
>
> Adodc1.RecordSource = "SELECT PLANT FROM A_DB WHERE PLANT = 'A'"
> If Adodc1.Recordset.EOF Then
> MsgBox ("データが無い")
> Else
> If Text1.Text <> "" Then
> Adodc1.Recordset.Delete
> Adodc1.Recordset.Update
> Adodc1.Refresh
> End If
> End If
>
> これはうまく削除できますが
> アクセス2000をかまさないでできないかと思い
>
> Adodc1.ConnectionString = "ODBC_DB"
> (MYSQL とODBC接続)
> Adodc1.RecordSource = "SELECT PLANT FROM A_DB WHERE PLANT = 'A'
> If Adodc1.Recordset.EOF Then
> MsgBox ("データが無い")
> Else
> If Text1.Text <> "" Then
> Adodc1.Recordset.Delete
> Adodc1.Recordset.Update
> Adodc1.Refresh
> End If
> End If
>
> とすると
> DELETEのところで
>
> 実行時エラー(-2147467259)(80004005)
> 更新に必要なベーステーブル情報が足りません
>
> とでます
> データは持ってくるようなのですが
> 更新しようとするとエラーとなります
> 何が足りないのでしょうか?
>
> ADODCを使う理由はDATAGRIDとの連携がいいからなんですが
> MYSQLには使えないのでしょうか?
> MYSQLの問題と思い投稿させていただきました
> よろしくお願いします
>
>
>
>
13485 2006-11-13 18:38 [mew101 <mew101@xxxxx] MYSQL+VB6.0*ADODCについて 13493 2006-11-14 11:17 ┣["kondo kondo" <umius] -> 13494 2006-11-14 11:28 ┗[Hiroshi Nagasaka <h-] 13500 2006-11-14 17:35 ┗[mew101 <mew101@xxxxx] 13501 2006-11-14 23:05 ┗["kondo kondo" <umius] 13502 2006-11-15 10:41 ┗[mew101 <mew101@xxxxx]