![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
VB6.0(SP6)から、ADOとODBCでMySQLに接続しました。
'--------------------------------------------
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strCn As String
Set cn = New ADODB.Connection
strCn = "dsn=MySQL;uid=user;pwd="
cn.CursorLocation = adUseClient
cn.Open strCn
Set rs = New ADODB.Recordset
rs.Open "select * from tbl;", cn, adOpenDynamic, adLockPessimistic
Set DataGrid1.DataSource = rs
'--------------------------------------------
データグリッドコントロールにテーブルの内容を表示させようとしているのですが、rs.Openの行でエラーが出てしまいます。エラーメッセージは「複数ステップの操作でエラーが発生しました。各状態の値を確認してください」です。
SQL文を変えて試してみると、何故かデータ型がDECIMALのカラムが含まれているとエラーになります。
DECIMALだといけないかと思うと、挿入は問題なく出来ます。
cn.Execute "insert into tbl (id,decimal_clm) values (10,900);"
ご存知の方がいらっしゃいましたら宜しくお願いします。
No.1ベストアンサー
- 回答日時:
はじめまして
私も前にデータグリッドにテーブルの内容を表示できなくて困ってました。
私の使ってたプログラムを書きますね。
'モジュールレベル変数宣言
Private cn As ADODB.Connection 'Connectionオブジェクト
Private rs As ADODB.Recordset 'Recordsetオブジェクト
'フォームの起動時
Private Sub form_load()
'MySQL4.1データベース接続
Set cn = New ADODB.Connection
cn.Open "Provider=MSDASQL.1;Password=;User ID=root;Data Source=test123"
'SQLステートメント
Dim mySQL As String '表示するテーブルの決定
mySQL = "select * from test123"
'レコードセットを取得
Set rs = New ADODB.Recordset
rs.ActiveConnection = cn
rs.Source = mySQL
rs.CursorLocation = adUseClient '←●ここがポイント
rs.CursorType = adOpenStatic
rs.LockType = adLockOptimistic
rs.Properties("IRowsetIdentity") = True
rs.Open
'データグリッドにコントロールに連結
Set DataGrid1.DataSource = rs
end sub
ご回答ありがとうございます。
jpgifさんのコードをコピペして実行しましたが、残念ながら同じエラーが出てしまいます(rs.Openで「複数ステップの操作で~」)。SELECT文のカラムに、データ型がDECIMAL以外のものを指定するとエラーが出なくなります。
ちなみに私の環境です。
データベース: MySQL-server-5.0.18-0
サーバー: VineLinux3.2
ODBC: MyODBC 3.51
チェックしているODBCのオプション:
Don't Optimize Column Width
Return Matching Rows
Change BIGINT Columns To Int
問題のカラム:
Type = decimal(8,0)
Null = yes
Key =
Default =
Extra =
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Access(アクセス) 実行時エラー3131 FROM 句の構文エラーです について 7 2022/06/13 15:45
- Access(アクセス) docmd.gotorecordを起動するには 5 2022/06/17 15:20
- Access(アクセス) access,vbaでフォルダ内のファイルをテーブルにインポート、ファイル名もフィールドに追加したい 1 2022/08/31 11:11
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:48
- Excel(エクセル) 【マクロ】エラーが発生⇒実行時エラー58既に同名のファイルが存在 5 2022/08/31 10:03
- Access(アクセス) DoCmd.SearchForRecord が動かない時の解決方法 3 2022/07/22 15:31
- Excel(エクセル) EXCELの外部データ取得ができない 1 2023/03/23 09:03
- Visual Basic(VBA) データベースから絞り込んでデータを読み込み 1 2023/02/21 19:51
- Visual Basic(VBA) 実行時エラー´5854´ 文字列型パラメーターが長すぎます。 3 2023/06/08 21:17
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
ADOのCursorLocationプロパティ
Visual Basic(VBA)
-
ACCESSで値を代入できないとは?
Visual Basic(VBA)
-
アクセスで数値型のフィールドにNullをいれたい
その他(データベース)
-
-
4
ACCESS ADOでupdateが効かない
その他(データベース)
-
5
エラー(型が一致しません。)の対処方法
Visual Basic(VBA)
-
6
実行時エラー 3265「要求された名前、または序数
Visual Basic(VBA)
-
7
ADODBのRecordset.Deleteのエラーについて誰か助けてください!!
その他(プログラミング・Web制作)
-
8
ACCESS 複数のフォームから同一テーブル参照
Access(アクセス)
-
9
アクセスVBAのMe!と[ ]
Access(アクセス)
-
10
クラスのプロパティに構造体を使いたい。
Visual Basic(VBA)
-
11
SQLでエラーです。
Visual Basic(VBA)
-
12
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
-
13
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
14
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
15
VBAでアクセスDBからデータの取得について
Visual Basic(VBA)
-
16
手動または分散トランザクションモード…のエラー
Visual Basic(VBA)
-
17
DB接続ができなくなって困っています!
その他(データベース)
-
18
DataGrdViewに関連付けたデータの更新
C言語・C++・C#
-
19
Access終了時にマクロまたはVBAの実行したい
その他(Microsoft Office)
-
20
実行時エラー -2147217900 ADODBでレコードセットオープン時エラー
Access(アクセス)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【SQL】他テーブルに含まれる値...
-
結合したテーブルをSUMしたい
-
テーブル名が可変の場合のクエ...
-
既存データをINSERT文にして出...
-
データ無し時は空白行にしたい...
-
SQLで、Join句で結合したテ...
-
SQLでの複数列が重複してる行の...
-
Access特定のテーブルを編集不...
-
効率のよい方法を教えてくださ...
-
下記の問合せを行うクエリを、 ...
-
ExcelのVLOOKUP関数の動作をMyS...
-
PRIMARY KEYのコピー
-
ACCESSのVBAにてExcelに行...
-
テーブルデータの上書きをした...
-
パススルークエリ&ACCESSテーブ...
-
SQLサーバのデータが削除できない
-
Accessの構成をコピーしたい
-
SQLのテーブルにないデータの出力
-
複数のテーブルからデータを取...
-
ACCESS2000でのテー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【SQL】他テーブルに含まれる値...
-
テーブル名が可変の場合のクエ...
-
既存データをINSERT文にして出...
-
結合したテーブルをSUMしたい
-
SQLで、Join句で結合したテ...
-
2つのテーブルをLIKE演算子のよ...
-
ACCESSのVBAにてExcelに行...
-
データ無し時は空白行にしたい...
-
下記の問合せを行うクエリを、 ...
-
Accessの構成をコピーしたい
-
ExcelのVLOOKUP関数の動作をMyS...
-
ADO+ODBCでテーブルに接続する...
-
SQLサーバに対するSQL文で抽出...
-
ExcelのMatch関数のようなもの...
-
ACCESS クエリーでソートの不具合
-
PRIMARY KEYのコピー
-
同一テーブル内での比較(最新...
-
SQLです!!教えてください。あ...
-
改行を含んだデータのインポート
-
SQLです!!教えてください。あ...
おすすめ情報