0

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

これを達成する方法についてのアイデアは、グーグルでも役に立ちませんでした....

4

1 に答える 1

0

それを行う方法を見つけて、それが魅力のように機能する.....

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
            Dim sqlquery As String = "SELECT * FROM MBA WHERE urno=" & CInt(txtb1.Text) & ";"
            Dim command As New OleDb.OleDbCommand(sqlquery, con)
            Dim reader As OleDb.OleDbDataReader
            con.ConnectionString = dbprovider
            con.Open()

            reader = command.ExecuteReader()
            reader.Read()

            txtName.Text = reader(1).ToString()
            txtFname.Text = reader(2).ToString()
            txtCAdd.Text = reader(3).ToString()
            txtPAdd.Text = reader(4).ToString()
            txtEid.Text = reader(5).ToString()
            cmbGender.Text = reader(6).ToString()
            txtMno.Text = reader(7).ToString()




            ' MsgBox("Record Added")
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

    End Sub
End Class
于 2013-02-20T17:06:12.253 に答える