连接数据库只能用data控件吗？

Question

我看到的教程里边好像全是一笔一笔看。功能太简单了。
请教各位大哥，我想有统计功能应该怎么做？
比方说在一个窗体中显示一个time1是当天的所有记录，如果太多的话就分页，每页15笔。这样能实现吗？？

Answer 1

用ado的分頁做
rs.PageSize
rs.AbsolutePage

Answer 2

我要想要conn.Open "DBQ=" & App.Path & "\count.mdb;DRIVER={Microsoft Access Driver (*.mdb)};"这句话做为全部变量应该怎样做？紧跟在Public conn As New ADODB.Connection这句话下边好象不行哦？？

Answer 3

这个问题比较常见,用DATA控件只能逐条显示记录,你可以尝试下面的方法:
用ADO技术连接数据库,用DATAGRIDA控件显示ADO中的数据,如果你知道过程,其实不用什么代码的,比较容易实现.
如果你要有选择的看记录,只要把ADO的数据源设置为动态的就行,比如说:
select * from {表格} where 日期=..... 
这些都可由你自己设定

Answer 4

Private Sub Form_Load()
 Dim strconn As String
 strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Persist Security Info=False"
 conn.CursorLocation = adUseClient
 conn.Open strconn
 
 If rs.State <> adStateClosed Then rs.Close
 rs.Open "Select * from People", conn, adOpenStatic, adLockBatchOptimistic Set DataGrid1.DataSource = rs
End Sub