|
分類:[.NET 全般]
おせわになっております。
現在ｖｂ2005ＳＱＬデータベース勉強中です。
下のプログラムを見ていただいてからおこたえになってください。
デザイン DataGridView1、Button1、Button2
ボタン1をクリックしたときにDataGridView1にＳＱＬデータベース表示
ボタン2を押したときにA200402さんの住所を更新してＳＱＬデータベースをDataGridView1に表示、といったプログラムなんですが。
初めてコードをここに書いたので説明がわかりにくいかと思いますがご了承ください。
ここから聞きたいことなんですがこれはあくまでもボタンが押されたときにA200402さんの住所を更新なんですが、これをテキストボックスに更新したい値を書いてボタンを押したときに更新できるプログラムをくみたいのです。
できれば出いいのでヒントだけでももらえないでしょうか？
ご指導いただければたすかります。
それではよろしくお願いします。
Imports System.Data.OleDb
Public Class Form1
Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'▼データ取得
Dim Cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\starsystem.STARSYST-DE959A\デスクトップ\ＳＱＬ問題\Sql_SS1.mdb")
Dim SQLCm As OleDbCommand = Cn.CreateCommand
Dim Adapter As New OleDbDataAdapter(SQLCm)
Dim Table As New DataTable
SQLCm.CommandText = "SELECT * FROM usr "
Adapter.Fill(Table)
'Dim Value As String
DataGridView1.DataSource = Table
' ''TextBox1.Text = SQLCm.CommandText
''Cn.Open()
''Value = SQLCm.ExecuteScalar
''Cn.Close()
Adapter.Dispose()
SQLCm.Dispose()
Cn.Dispose()
End Sub
Private Sub TextBox9_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim Cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\starsystem.STARSYST-DE959A\デスクトップ\ＳＱＬ問題\Sql_SS1.mdb")
Dim SQLCm As OleDbCommand = Cn.CreateCommand
SQLCm.CommandText = "UPDATE usr SET city = '岐阜県岐阜市' WHERE user_id ='A200402'"
Cn.Open()
SQLCm.ExecuteNonQuery()
Cn.Close()
MsgBox("変更しました。")
End Sub
End Class
|