urno を使用して検索する必要がある VB.net プロジェクトがあり、フォーム上にあるすべてのテキスト ボックスとコンボ ボックスに情報を入力する必要があります。これは、データがデータベースに保存されるフォームと同じです。コード
Public Class MBAUpdate
Dim con As New OleDb.OleDbConnection()
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
'Dim da As OleDb.OleDbDataAdapter
Dim dbprovider As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Taher\Documents\Visual Studio 2010\Projects\WindowsApplication1\WindowsApplication1\Database1.accdb;Persist Security Info=False;"
Me.con = New OleDb.OleDbConnection()
con.ConnectionString = dbprovider
con.Open()
Dim sqlquery As String = "SELECT * FROM MBA WHERE urno=" & CInt(txtb1.Text) & ";"
Dim sqlcommand As New OleDb.OleDbCommand(sqlquery, con)
Dim ds As DataSet
With sqlcommand
.CommandText = sqlquery
.Connection = con
.ExecuteReader()
End With
' MsgBox("Record Added")
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
End Class
これを達成する方法についてのアイデアは、グーグルでも役に立ちませんでした....