> 永坂です。
> 最近触ってないので古いソース引っ張ってきましたが
>     My_Db.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};Server=[サーバIP];PORT=[使用ポート];DATABASE=[データベース];UID=[ユーザID];PASSWORD=[ユーザパスワード];OPTION=3"
>     My_Db.Open
> という形でＤＢ接続しています。
> ODBCドライバ部分はODBCデータソースアドミニストレータなどで確認してください。
> Openしなくても接続できるんでしょうか？
> 

永坂さん　近藤さん
どうもありがとうございます
コントロールパネルで設定したＯＤＢＣを使わず
上記のとおり、やってみたらメッセージが出ませんでした
ありがとうございました
思うにＯＰＥＮしなくともデータを持ってくるようです
しかし
 Adodc1.RecordSource = "SELECT PLANT FROM A_DB WHERE PLANT = 'A'"
 If Adodc1.Recordset.EOF Then

この構文ではどうもうまくなく、
ＳＥＬＥＣＴ文に関係なく先頭が削除されてしまうようです
まずはエラーが出なくなったので
ありがとうございました




> > 鈴木＠宮城といいます
> >
> > かなり古い技術かもしれませんが
> > VB6.0+ADODC+ODBC接続でのプログラムを作成しています
> >
> > MYSQLのデータベースを１度アクセス２０００でリンク（ＯＤＢＣ接続）させ
> > 　データの更新をします
> > 　（ここでは'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
> >
> > これはうまく削除できますが
> > 　アクセス２０００をかまさないでできないかと思い
> >
> > 　Adodc1.ConnectionString = "ODBC_DB"
> >  (MYSQL とＯＤＢＣ接続）
> > 　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のところで
> >
> > 実行時エラー（−２１４７４６７２５９）（８０００４００５）
> > 更新に必要なベーステーブル情報が足りません
> >
> > とでます
> > データは持ってくるようなのですが
> > 更新しようとするとエラーとなります
> > 何が足りないのでしょうか？
> >
> > ADODCを使う理由はDATAGRIDとの連携がいいからなんですが
> > MYSQLには使えないのでしょうか？
> > MYSQLの問題と思い投稿させていただきました
> > よろしくお願いします
> >
> >
> >
> >