獲取MS Access查詢的結果爲文本框在VB.NET

Question

我在MS Access表其中有一個名爲NameC柱上進行（使用ODBC連接到MS Access）

我想下面的查詢結果保存在txtField中

Dim query = "SELECT NameC FROM Table WHERE ClientID = " & Integer.Parse(clientID) 

如何在VB.NET中做到這一點？

我有一個txtNameC.Text場

我目前正在審查一些示例代碼和他們做：

Dim _consultationTable As DataTable 
    Public Sub Load() 
    Dim query = "SELECT * FROM Table WHERE ClientID = " & Integer.Parse(clientID) 
    Me._consultationTable = DatabaseFunctions.GetDataTable(query) 
    dvgInfo.Rows.Clear() 
    For Each dtRow In Me._consultationTable.Rows 
     dvgInfo.Rows.Add() 
     dvgInfo.Rows.Add(dvgInfo.RowCount-1).Cells("ColClientID").Value = dtRow("ClientId").ToString() 
    Next 

，但我不想填寫表格我只想得到一個查詢的結果放入文本框 我該怎麼做？

我想要做這樣的事情，但只返回一個值，並將其保存到一個文本框

Protected Sub BindData() 
    strSQL = "SELECT * FROM customer" 

    Dim dtReader As OdbcDataReader 
    objCmd = New OdbcCommand(strSQL, objConn) 
    dtReader = objCmd.ExecuteReader() 

    '*** BindData to GridView ***' 
    myGridView.DataSource = dtReader 
    myGridView.DataBind() 

    dtReader.Close() 
    dtReader = Nothing 
End Sub 


Protected Sub BindData() 
    strSQL = "SELECT SpecificValue FROM customer where x = y..." 

    Dim dtReader As OdbcDataReader 
    objCmd = New OdbcCommand(strSQL, objConn) 
    dtReader = objCmd.ExecuteReader() 

    '*** BindData to GridView ***' 
    myGridView.DataSource = dtReader 
    myGridView.DataBind() 

    dtReader.Close() 
    dtReader = Nothing 
End Sub 

Answer 1

使用DataReader從數據庫中的DataReader的u可以使用perticular值.populate烏爾數據DataReader的& 。
我不知道你的代碼，這就是爲什麼我給一個簡單的例子。
這裏是一個例子。

imports System.Data.OleDb 
Public Class Form1 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
     Dim connetionString As String 
     Dim oledbCnn As OleDbConnection 
     Dim oledbCmd As OleDbCommand 
     Dim sql As String 

     connetionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Your mdb filename;" 
     sql = "Your SQL Statement Here like Select * from product" 

     oledbCnn = New OleDbConnection(connetionString) 
     Try 
      oledbCnn.Open() 
      oledbCmd = New OleDbCommand(sql, oledbCnn) 
      Dim oledbReader As OleDbDataReader = oledbCmd.ExecuteReader() 
      While oledbReader.Read 
       MsgBox(oledbReader.Item(0) & " - " & oledbReader.Item(1) & " - " & oledbReader.Item(2)) 
      End While 
      oledbReader.Close() 
      oledbCmd.Dispose() 
      oledbCnn.Close() 
     Catch ex As Exception 
      MsgBox("Can not open connection ! ") 
     End Try 
    End Sub 
End Class