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も見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
ADOのCursorLocationプロパティ
Visual Basic(VBA)
-
VBAでアクセスDBからデータの取得について
Visual Basic(VBA)
-
実行時エラー 3265「要求された名前、または序数
Visual Basic(VBA)
-
-
4
クラスのプロパティに構造体を使いたい。
Visual Basic(VBA)
-
5
ACCESSで値を代入できないとは?
Visual Basic(VBA)
-
6
On ErrorでエラーNoが0
Visual Basic(VBA)
-
7
アクセスで数値型のフィールドにNullをいれたい
その他(データベース)
-
8
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
9
ACCESS 複数のフォームから同一テーブル参照
Access(アクセス)
-
10
エラー(型が一致しません。)の対処方法
Visual Basic(VBA)
-
11
DOSコマンドでファイルをコピーできない。
その他(パソコン・スマホ・電化製品)
-
12
SQLでエラーです。
Visual Basic(VBA)
-
13
ACCESS ADOでupdateが効かない
その他(データベース)
-
14
実行時エラー'-2147467259(80004005)':
Access(アクセス)
-
15
XCOPYでネットワーク越しにコピーすると、「無効なドライブ指定です」と表示される
その他(プログラミング・Web制作)
-
16
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
17
Access終了時にマクロまたはVBAの実行したい
その他(Microsoft Office)
-
18
DataGrdViewに関連付けたデータの更新
C言語・C++・C#
-
19
ACCESSのSQLで、NULLかNULLでないかの判定
その他(データベース)
-
20
Rangeメソッドは失敗しました。globalオブジェクトについて
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
既存データをINSERT文にして出...
-
【SQL】他テーブルに含まれる値...
-
テーブル名が可変の場合のクエ...
-
データ無し時は空白行にしたい...
-
SQLで、Join句で結合したテ...
-
下記の問合せを行うクエリを、 ...
-
mdf&ldfファイルからフラット...
-
ACCESSのVBAにてExcelに行...
-
Access特定のテーブルを編集不...
-
「都道府県の面積の大きい順に...
-
パススルークエリ&ACCESSテーブ...
-
改行を含んだデータのインポート
-
SQLで複数のテーブルをつないで...
-
入退室時間の確認方法
-
IDとパスワードについて。
-
pandasでsqlite3にテーブル作成...
-
SELECT文の結果をDEFINEの値と...
-
CPRM decrypterのエラーコード...
-
ACCESS VBAでSeekメソッドの処...
-
(Linux、データベース初心者)...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【SQL】他テーブルに含まれる値...
-
テーブル名が可変の場合のクエ...
-
結合したテーブルをSUMしたい
-
既存データをINSERT文にして出...
-
SQLで、Join句で結合したテ...
-
データ無し時は空白行にしたい...
-
Accessの構成をコピーしたい
-
ACCESSのVBAにてExcelに行...
-
2つのテーブルをLIKE演算子のよ...
-
SQLサーバに対するSQL文で抽出...
-
ExcelのVLOOKUP関数の動作をMyS...
-
PRIMARY KEYのコピー
-
同一テーブル内での比較(最新...
-
ExcelのMatch関数のようなもの...
-
ADO+ODBCでテーブルに接続する...
-
Access 別のDBに対してDlookup...
-
改行を含んだデータのインポート
-
複数のテーブルからデータを取...
-
ACCESS クエリーでソートの不具合
-
副問合せを使わずにUNIONと同様...
おすすめ情報