データアダプタをコードで書いて更新する
- 題名: データアダプタをコードで書いて更新する
- 著者: みーちゃん
- 日時: 2004/12/21 16:09:52
- ID: 8138
- この記事の返信元:
- この記事への返信:
- ツリーを表示
- 題名: Re[1]: データアダプタをコードで書いて更新する
- 著者: tei
- 日時: 2004/12/21 17:17:13
- ID: 8139
- この記事の返信元:
- この記事への返信:
- ツリーを表示
- 題名: Re[1]: データアダプタをコードで書いて更新する
- 著者: こど。
- 日時: 2004/12/21 17:21:05
- ID: 8140
- この記事の返信元:
- この記事への返信:
- ツリーを表示
- 題名: Re[2]: データアダプタをコードで書いて更新する
- 著者: みーちゃん
- 日時: 2004/12/24 10:38:16
- ID: 8181
- この記事の返信元:
- この記事への返信:
- ツリーを表示
- 題名: Re[3]: データアダプタをコードで書いて更新する
- 著者: 深山
- 日時: 2004/12/24 11:28:21
- ID: 8182
- この記事の返信元:
- この記事への返信:
- ツリーを表示
分類:[.NET]
いつもお世話様です。
今回は、accessのデータベースに接続する勉強中です。
データアダプタをウィザードで設定するとfillとupdateですぐにできちゃうので、コードで書いてみています。
接続、取り出し(Fill)はできたのですが、更新がエラーになります。
パラメータ使い方がよくわかりません。
/////////////////////////
Accessで作成したテーブル名はdata1.mdbで「番号」、「氏名」、「住所」の列です
/////////////////////////
Private Sub Form1_Load(
接続設定し
cn.Open()
Me ssageBox.Show("接続しました")
Dim s_sql As String = "SELECT 番号, 氏名, 住所 FROM data1"
Dim U_sql As String = "UPDATE data1 SET 住所 = ? WHERE (番号 = ?) "
cmd = New OleDbCommand(U_sql, cn)
param1 = New OleDbParameter
("番号",system.Data.OleDb.OleDbType.VarWChar, 8, "番号")
param2 = New OleDbParameter
("住所", System.Data.OleDb.OleDbType.VarWChar, 50, "住所")
cmd.Parameters.Add(param1)
cmd.Parameters.Add(param2)
Dim s_cmd As New OleDbCommand(s_sql, cn)
Dim u_cmd As New OleDbCommand(U_sql, cn)
adp1.SelectCommand = s_cmd
adp1.UpdateCommand = u_cmd
adp1.Fill(ds, "data1")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
adp1.Update(ds, "data1")
MessageBox.Show("データを更新しました")
End Sub