rs能直接用嘛？我怎么一用就报错啊~~~~~

Question

是呀！最好能把你调用RS的原代码COPY下来，才好说。

Answer 1

Private Sub Command1_Click()
Dim xdate
xdate = (y.Text & "-" & m.Text & "-" & d.Text)
If IsDate(xdate) Then
Adodc1.Recordset.Fields("日期") = CDate(xdate)
Else
End If
End Sub
上面的代码，就是我实际中碰到问题的那行“Adodc1.Recordset.Fields("日期") = CDate(xdate)”总报错：（

Answer 2

你的Adodc有没有正确地打开啊?你先在最开始用Adodc.Refresh刷新一下,如果这句不出错那下面的代码就没问题了.

Answer 3

是不是没用rs.addnew 与rs.update更新数据库呢？

Answer 4

加入Adodc1.Refresh后，报错说ADO没有制定数据源~~可是我指定了“database.udl"了阿，（"database,udl"连接的是"database.mdb"测试连接成功）就是recordsource里面是空的,是不是我必须加入什么sql语句呢？

Answer 5

当然了,输入你要操作的表名或者
select * from  你要操作的表名

Answer 6

还是不行啊，他告诉我from命令错误

Answer 7

Private Sub Form_Load()
Adodc1.Refresh
End Sub

Answer 8

制定了啊，他说还是from命令错误：（
Private Sub Command1_Click()
Dim xdate
xdate = (y.Text & "-" & m.Text & "-" & d.Text)
If IsDate(xdate) Then
Adodc1.Refresh
Adodc1.Recordset.Fields("日期") = CDate(xdate)
Else
End If
上面这些代码无法正确执行，能帮忙改一下嘛？
End Sub

Answer 9

Private Sub Command1_Click()
Dim xdate
xdate = (y.Text & "-" & m.Text & "-" & d.Text)
If IsDate(xdate) ThenAdodc1.Recordset.Fields("日期") = CDate(xdate)
Adodc1.Recordset.AddNewElse
End If
End Sub
上面是所有的代码了，执行完以后报错说实时错误‘91’对象变量活with块变量未设置