做VB出现问题了，请各位帮帮我！！

来源：百度知道 编辑：UC知道 时间：2024/05/08 11:45:50
我要做的程序是让text文本里显示数据库里的数值
可是为什么运行的时候他说ADODC没有指定录源和ADO没有为命令对象设置命令？
我的代码是这样的

Private Sub Command1_Click()
Dim conn As New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;data source=" & App.Path & "\db1.mdb"
Dim qiuyuan As New ADODB.Recordset
Dim sql As String
sql = "select * from 球员 where 姓名='" & Trim(Text1.Text) & "'"
qiuyuan.Fields(0) = Text1.Text
qiuyuan.Fields(1) = Text2.Text
qiuyuan.Fields(2) = Text3.Text
qiuyuan.Fields(3) = Text4.Text
qiuyuan.Fields(4) = Text5.Text
qiuyuan.Fields(5) = Text6.Text
qiuyuan.Fields(6) = Text7.Text
qiuyuan.Fields(7) = Text8.Text
qiuyuan.Fields(8) = Text9.Text
End Sub

Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb"
Adodc1.CursorLocation = adUseClient
Adodc1.CommandType = adCm

窗体LOAD事件使用ADODC数据控件,而COMMAND1的CLICK事件使用ADO数据对象,建议一致使用.其它有些地方也可能有错,现将能运行的代码供参考:
Private Sub Form_Load()
Dim rs As New adodb.Recordset
Dim CN As New adodb.Connection '定义数据库的连接存放数据和代码
CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb"
rs.CursorLocation = adUseClient
rs.Open "select * from 球员", CN, adOpenDynamic, adLockOptimistic
End Sub

Private Sub Command2_Click()
Dim rs As New adodb.Recordset
Dim CN As New adodb.Connection '定义数据库的连接存放数据和代码
CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb"
rs.CursorLocation = adUseClient
rs.Open "select * from 球员 where 姓名='" & Text1.Text & "'", CN, adOpenDynamic, adLockOptimistic
Set Text1.DataSource = rs
Set Text2.DataSource = rs
Text1 = rs.Fields(0)
Text2 = rs.Fields(1)

E