プログラム初心者です。
ボタンを押したらtextboxの値がDBのテーブルに格納されて画面が閉じるという処理をしたいです。
そして他の画面でボタンを押すとINSERT済みのテーブルが出るという
処理をしようと思っています。
今のところは、他の画面でボタンを押してもINSERT済みのテーブルが
でないという状態です。元のテーブルのデータはでます。
サンプルを見つけてやってみたのですが、思った結果がでません。
public sub botton1-click
dim sql_insert as string
dim cmd_insert as oledbcommand
dim strconn as string = "provider = ～OLEDB4.0 = ～.mdb"
DA = New oledbDataAdapter
conn = New oledbconnection(strconn)
sql_insert = "INSERT INTO A組(名前) VALUES(TextBox1.Text)
cmd_insert = New oledbcommand(sql_insert,conn)
DA.insertCommand = cmd_insert
Me.colse
end sub
DataAdapterはdatasetを使わず直接DBに格納させるINSERTの時にでも
使うのでしょうか？
自分自身まだよく分かっていないので、正しいコードと処理の流れを
教えて欲しいです。
使っているのはaccess2000、VB.NET2003です。よろしくお願いします。
投稿日時 - 2008-04-22 20:31:56
1人が「このQ&Aが役に立った」と投票しています
回答（3件中 1～3件目)
上記のソースでConnectionのオープンを書き忘れたようです。
ある変数(DataAdapter)の宣言もされていません。
以下のソースを使ってご覧下さい。宜しくお願いします。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sql_insert As String
Dim cmd_insert As OleDb.OleDbCommand
Dim strconn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test.mdb"
Dim conn As OleDb.OleDbConnection
conn = New OleDb.OleDbConnection(strconn)
conn.Open()
sql_insert = "INSERT INTO A組(名前) VALUES('" & TextBox1.Text & "')"
cmd_insert = New OleDb.OleDbCommand(sql_insert, conn)
cmd_insert.ExecuteNonQuery()
Me.Close()
conn.Close()
End Sub
投稿日時 - 2008-04-23 14:27:14
