＋设为首页 ＋添加到收藏夹
我在程序中用如下代码进行连接，结果出现“参数类型不正确，或不在可接收的范围内，或与其它参数冲突”的错误。请问如何解决？
其中“dbStudent”是数库中的一个表，“Name”是表中一个字段
Private Sub Command1_Click()
Dim db As New ADODB.Connection
Dim rb As New ADODB.Recordset
db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\ReportON\Cute.bak" & ";Persist Security Info=False;Jet OLEDB"
db.Open
Set rb.ActiveConnection = db
rb.Source = "select * from dbstudent"
rb.CursorLocation = adUseServer
rb.CursorType = adOpenForwardOnly
rb.LockType = adLockOptimistic
rb.Open
Set DataRep.DataSource = rb
DataRep.DataMember = "dbStudent"
With DataRep
.Sections(3).Controls("txtName").DataMember = "dbStudent"
.Sections(3).Controls("txtName").DataField = "name"
End With
DataRep.Show 1
End Sub
把
DataRep.DataMember = "dbStudent"
和
.Sections(3).Controls("txtName").DataMember = "dbStudent"
这两句去掉试试~
同意楼上
不能这样的话，就用一个数据库环境设计器，什么都解决了，且是可以带参数 的
.Sections(3).Controls("txtName").DataMember = ""
或干脆不写
