报表
Private Sub DataReport_Initialize()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim wd As String
Set cn = New ADODB.Connection
wd = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=图书馆.mdb;Persist Security Info=False"
cn.Open wd
DataReport1.Sections("Section1").Controls("text1").DataField = "书籍ID"
DataReport1.Sections("Section1").Controls("text2").DataField = "书籍名称"
DataReport1.Sections("Section1").Controls("text3").DataField = "作者"
DataReport1.Sections("Section1").Controls("text4").DataField = "出版社"
DataReport1.Sections("Section1").Controls("text5").DataField = "书籍类型"
Set rs = New ADODB.Recordset
rs.Open "Books", wd, , , adCmdTableDirect
Set Me.DataSource = rs
End Sub
其中Books是"图书馆.mdb"中的一个table,书籍ID,书籍名称等是Books字段名称,,在运行的时候显示错误提示:参数类型不正确,或不在可以接受的范围内,或与其它参数相冲突.
请问哪里出问题了??
问题点数：20、回复次数：3Top
1 楼hanhuole（火星来的程序员）回复于 2005-08-03 22:11:41 得分 0
是不是应该先打开rs，在设置DataField呀Top
2 楼vbman2003（家人）回复于 2005-08-04 11:14:29 得分 0
rs.Open "select * from books", cn, adOpenKeyset, adLockOptimisticTop
3 楼university99（龙城）回复于 2005-08-06 01:21:26 得分 0
都还不行,为什么?Top
