mysql:13493
From: "kondo kondo" <"kondo kondo" <umiushi_00@xxxxxxxxxx>>
Date: Tue, 14 Nov 2006 02:17:25 +0000
Subject: [mysql 13493] Re: MYSQL+VB6.0*ADODCについて
近藤です。 接続の時点でエラーになってるのでしょうか?試してないですが 「Adodc1.ConnectionString = "ODBC_DB"」 で接続できるんだったかな?と思ってます。 以下サイトで接続に関しての質問/回答があったので試してみてはいかがでしょう か? http://oshiete1.goo.ne.jp/kotaeru.php3?q=1107716 >From: mew101 <mew101@xxxxxxxxxx> >Reply-To: ml@xxxxxxxxxx >To: ml@xxxxxxxxxx >Subject: [mysql 13485] MYSQL+VB6.0*ADODCについて >Date: Mon, 13 Nov 2006 18:38:01 +0900 > >鈴木@宮城といいます > >かなり古い技術かもしれませんが >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の問題と思い投稿させていただきました >よろしくお願いします > > > > _________________________________________________________________ 一番乗り! Windows Vista、 2007 Office system の情報はここから http://www.microsoft.com/japan/msc/
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]