如何在textbox中显示SQL数据查询值

Question

    Dim connstr As New String("provider=sqloledb.1;user id = sa ;password=123;persist security info=false;initial catalog=ttt;data source=aaa")
    Dim cn As New OleDbConnection
    Dim searchsql As String
    Dim cmd1 As New OleDbDataAdapter
    Dim returnValue As New DataSet

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        searchsql = "SELECT b,c,e,f,g,h,i from Table_1 where a = '" & Me.TextBox1.Text & "' "
        Try
            cn.ConnectionString = connstr
            cn.Open()
            cmd1 = New OleDbDataAdapter(searchsql, cn)
            cmd1.Fill(returnValue, "table_1")
            Me.TextBox2.Text = returnValue.Tables.Item(1).ToString
            cn.Dispose()
        Catch ex As Exception
            MsgBox(ex.Message)
            cn.Dispose()
        End Try
    End Sub 请问这样写对吗？为什么老是提示‘找不到表1’，正确的应该怎么写？

Answer 1

您好，

index是從0開始，

所以如果要取dataTable的話，如下，

returnValue.Tables(0) or returnValue.Tables("table_1")

如果要取值的話，如下取第1筆資料的第1個欄位，如下

returnValue.Tables("table_1").rows(0)(0)

詳細請參考以下的link:

http://msdn.microsoft.com/en-us/library/kcs3hdk5(v=vs.110).aspx

http://www.codeproject.com/Articles/8477/Using-ADO-NET-for-beginners

---

亂馬客blog: http://www.dotblogs.com.tw/rainmaker/

Answer 2

非常感谢，显示成功了！