2014-09-22 38 views
0

在下面找到我到目前爲止所做的工作,但不幸的是它無法正常工作。OLEDB - 選擇計數不起作用

 Private BS as New BindingSource 
     Dim ds As New DataSet 
    ' Make the Connection 
     Using con As New OleDb.OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source = Database1.mdb") 
     con.Open() 
     Dim Sql = "SELECT COUNT ([Eventname]) FROM Eventproposal" 
     Dim da = New OleDb.OleDbDataAdapter(Sql, con) 
     da.Fill(ds, "Eventproposal") 
    ' Set the Binding Source 
     bs.DataSource = ds.Tables("Eventproposal") 
    con.Close() 
End Using 
    TextBox1.DataBindings.Add("Text", bs, "") 
+2

您是否在執行時遇到任何錯誤?什麼不工作? – 2014-09-22 13:38:28

回答

0

夫婦的事情,你應該停止所有的SQL命令到MS Access與;

Dim Sql = "SELECT COUNT ([Eventname]) FROM Eventproposal;" 

而且你沒有命名列,當您試圖通過名字來訪問它,這將給你一個錯誤。

Dim Sql = "SELECT COUNT ([Eventname]) AS Eventname FROM Eventproposal;" 

我相信它會給它一個名字,但不是你的想法。最後,當你進行綁定時,你必須引用表中字段的名稱。

TextBox1.DataBindings.Add("Text", bs, "Eventname") 
+1

我不認爲分號是必要的,除非您需要專門終止該行。我知道我從來沒有用它來處理任何OleDB查詢,這從來都不是問題。 – LarsTech 2014-09-22 14:54:01