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]