全是用ADO的,比如下列例子,用DAO可以吗?怎么改?我试一天了,就是不成功Private Sub CmdPrint_Click() '******打印功能******
Dim CN As New ADODB.Connection
Dim RS As New ADODB.Recordset
CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\hdhz.mdb;Persist Security Info=False"
RS.CursorLocation = adUseClient
RS.Open "SELECT * from hdtab", CN, adOpenDynamic, adLockReadOnly
Set DataReport1.DataSource = RS
DataReport1.Show (vbModal)
End Sub
Dim CN As New ADODB.Connection
Dim RS As New ADODB.Recordset
CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\hdhz.mdb;Persist Security Info=False"
RS.CursorLocation = adUseClient
RS.Open "SELECT * from hdtab", CN, adOpenDynamic, adLockReadOnly
Set DataReport1.DataSource = RS
DataReport1.Show (vbModal)
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货