在DataReport中怎样将RptTextBox邦定到ADO中?
qhdzh 2003-08-22 10:42:59 我在程序中用如下代码进行连接,结果出现“参数类型不正确,或不在可接收的范围内,或与其它参数冲突”的错误。请问如何解决?
其中“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