用数据窗体向导生成一个程序,查看源代码:
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\Biblio.mdb;"
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open "select Au_ID,Author,[Year Born] from Authors", db, adOpenStatic, adLockOptimistic
Dim oText As TextBox
'绑定文本框到数据提供者
For Each oText In Me.txtFields
Set oText.DataSource = adoPrimaryRS
Next
if rs.state=adstateopen then rs.close
rs.open "select * from tablename where 字段='"& text1.text &"'",conn,adopenkeyset,adlockreadonly
set mshflexgrid.datasource=rs
set rs=nothing