获取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