0 
Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
    Dim cons, query As String
    Dim con As OdbcConnection
    Dim adpt As OdbcDataAdapter
    'Dim num As Integer
    cons = "dsn=Courier; UID=Courier; PWD=123;"
    con = New OdbcConnection(cons)

    con.Open()

    query = "select Name from EMPLOYEE where EMPLOYEE_ID=" + DropDownList1.SelectedValue
    Dim ds As DataSet
    adpt = New OdbcDataAdapter(query, con)
    ds = New DataSet
    adpt.Fill(ds, "Courier")

    ' TextBox1.Text = ds

    con.Close()
End Sub

クエリでwhoos IDを指定した従業員の名前をテキストボックスに表示したいのですが、どうすればよいですか？

4

2 に答える 2

2

DataRow を使用する必要がありますが、質問に答えるには、これを試してください。

TextBox1.Text = ds.Tables(0).Rows(0)("Name").ToString()
于 2012-09-20T19:28:42.033 に答える
0

値を 1 つだけ戻したいので、データセットとアダプターを完全にスキップする必要があります。

query = "select Name from EMPLOYEE where EMPLOYEE_ID=" + DropDownList1.SelectedValue
Dim TempName As String = query.ExecuteScalar
TextBox1.Text = TempName

ExecuteScalar は、最初の行の最初のセルを返します。これで十分です。

パラメータについても読む必要があります。

于 2012-09-21T00:04:05.297 に答える