sql - テーブル行の詳細を Visual Studio フォームにコピーする方法

Question

「uid、pwd、mob、および名前」というテーブルを試してください。

CL001 abc 9876589 admin
CL002 def 8909898 admin2

テーブルから視覚的な基本形式で値を呼び出し、対応するテキストボックスに値を表示したい.私はこれのためのSQLクエリを知っています->select * from try where uid="CL001"

Answer 1

これは、データベースでSELECTステートメントを実行できるようにする関数です。呼び出す前に、次のような新しいデータテーブルを宣言する必要があります。

Dim dt as New DataTable
dt = doSQL("select * from try where uid='CL001'")

    Public Function DoSQL(ByVal sqlCmd As String) As DataTable
    Dim cmd As New SQL.SqlCommand()
    Dim cnn As New SQL.SqlConnection(My.Settings.cnnString) ' your connection string here
    Dim sqlDT As New DataTable
    With cmd
        .Connection = cnn
        .CommandText = sqlCmd
        .CommandType = CommandType.Text
    End With
    Dim da As New SQL.SqlDataAdapter()
    da.SelectCommand = cmd
    da.Fill(sqlDT)

    Return sqlDT

End Function

データテーブルには、一致するレコードが含まれます。したがって、レコードが1つしかないことがわかっている場合は、次のようにすることができます。

textbox.text = dt.Rows(0).Item("uid").ToString

または、テキストボックスにバインドし、bindingmanagerbaseを使用して、次のように位置を追跡することもできます。

Private WithEvents bm As BindingManagerBase ' Class scope

Private Sub partBind(ByVal dt As DataTable)
txtBox.DataBindings.Add("Text", dt, "uid")
End Sub

次に、次のようにbm.positionを使用してレコードのめくりを制御できます。

Private Sub btnNavClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click, btnPrevious.Click, btnLast.Click, btnFirst.Click
    Dim btnClicked As Button = DirectCast(sender, Button)

    Select Case btnClicked.Name
        Case "btnNext"
            If bm.Position < bm.Count - 1 Then
                bm.Position += 1
            Else
                bm.Position = 0
            End If

        Case "btnPrevious"
            If bm.Position > 0 Then
                bm.Position -= 1
            Else
                bm.Position = bm.Count
            End If
            bm.Position -= 0
        Case "btnLast"
            bm.Position = bm.Count
        Case "btnFirst"
            bm.Position = 0
    End Select

End Sub