下記のコードは、
(1)フォームロード時にアクセスのデータベースにアクセスし、データグリッドビューに表示
(2)フォーム上のデータグリッドビューを編集
(3)データベースに登録ボタン押下すると、フォーム上にあるデータグリッドビューをアクセスのデータベースに反映(update)
という作業を行うプログラムです。
このコードを実行した場合、アクセスのデータベース(登録.mdb)のフィールド数の100以上になると、「クエリーが複雑すぎます」とのエラーが出て、データベース(登録.mdb)の更新が行えません。
何とかエラーを出なくする方法は無いでしょうか?
PC環境はWINXP+VS2008です。
Imports System.IO
Imports System.Data
Imports System.Windows.Forms
Public Class Form1
Public dAdp As OleDb.OleDbDataAdapter
Public dSet As DataSet = New DataSet("T_資料")
Public Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
''▼フォームロード時の処理
Dim cn1 As New OleDb.OleDbConnection("Provider=""Microsoft.Jet.OLEDB.4.0"";Data Source=" & Application.StartupPath & "\登録.mdb;")
Dim cmd1 As New OleDb.OleDbCommand("SELECT * FROM T_資料", cn1)
cn1.Open()
dAdp = New OleDb.OleDbDataAdapter("SELECT * FROM T_資料", cn1)
dAdp.Fill(dSet, "T_資料")
Me.DataGridView1.DataSource = dSet.Tables("T_資料")
cn1.Close()
End Sub
Public Sub cmd_Db_reg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_Db_reg.Click
'▼「データベースに登録」ボタンを押下したときの処理
Try
Dim Builder As New OleDb.OleDbCommandBuilder(dAdp)
Builder.GetUpdateCommand()
dAdp.Update(dSet.Tables("T_資料"))
MessageBox.Show("更新に成功しました。")
Catch ex As Exception
MessageBox.Show("更新に失敗しました。" + vbCr + ex.Message)
End Try
End Sub
End Class
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Visual Basic(VBA) batからexeを実行し戻り値を受け取る バッチからEXEの結果を受け取りたいのですが、 下記のバッ 1 2023/07/04 15:13
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) 九九の答えの計算 3 2022/12/20 22:13
- Visual Basic(VBA) batからexeを実行し戻り値を受け取る EXEの実行内容の結果によって、戻り値を0か1かで返したい 1 2023/07/04 16:40
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Access(アクセス) 実行時エラー3131 FROM 句の構文エラーです について 7 2022/06/13 15:45
- Visual Basic(VBA) VBAで質問ですが、皆さんはどの様に導き出しているのでしょうか? 6 2022/05/03 21:53
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
今年亡くなった有名人を一発で...
-
データベースの最適化をマクロ...
-
アクセスのデータがブッ壊れた...
-
Microsoft Accessについて
-
「桐」の得手不得手
-
Accessのレポートで「縦書き」...
-
SQLて何ですか!
-
ACCESS2019でのエラーメッセージ
-
単語帳 私は高二になる時に青シ...
-
バッファプールって?
-
DB2 UDBって?
-
私があるアカウント発行の権利...
-
Paradoxについて教えて下さい
-
ファイルメーカーの「共有」に...
-
アクセスの日付/時刻型で標準...
-
質問です。(6)
-
Access97からAccess2003
-
Notes って 何が良くて使うの...
-
リスト形式の表とデータベース...
-
エクセルのフォームについて(...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
データベースの最適化をマクロ...
-
AndroidからのAccessデータベー...
-
ACCESS2019でのエラーメッセージ
-
データベースとウェブ(WWW)の共...
-
Accessのレポートで「縦書き」...
-
accessの勉強ができるサイトは?
-
DB2 UDBって?
-
私があるアカウント発行の権利...
-
CDの売上枚数を知りたいのですが
-
バッファプールって?
-
DB2で複数DBからSELECT等
-
アクセスのデータがブッ壊れた...
-
【エクセル】自動保存先として...
-
Microsoft Accessについて
-
RBDの反対語は?□DB??
-
ADODB.Recordset エラー '800a0...
-
IPアドレスを数値に変換
-
AccessとSQL Serverの違い
-
マクロでデータベースの最適化...
-
SIDとは?
おすすめ情報