1,216
社区成员
发帖
与我相关
我的任务
分享
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据表;Persist Security Info=False"
Adodc1.RecordSource = "select count(A) from T where A = 1"
Adodc1.Refresh
Text1.Text = Adodc1.Recordset.Fields(0)