Question

VB中通过adodc向SQL插入记录出错

Private Sub Command1_Click()
Adodc1.Recordset.AddNew 员工表 '添加新纪录
Adodc1.Recordset("员工ID").Value = Text1.Text
Adodc1.Recordset("姓名").Value = Text2.Text
Adodc1.Recordset("性别").Value = Combo1.Text
Adodc1.Recordset("出生日期").Value = Text4.Text + "-" + Text5.Text + "-" + Text6.Text
Adodc1.Recordset("部门").Value = Combo2.Text
Adodc1.Recordset("工作时间").Value = Text7.Text + "-" + Text8.Text + "-" + Text9.Text
Adodc1.Recordset("个人简历").Value = Text3.Text
Adodc1.Recordset.Update
运行后提示：实时错误'91'
对象变量或with块变量未设置

Answer 1

Adodc1.Recordset.AddNew 员工表 '添加新纪录
这一行的员工表是不需要的
而且根据你写这么写 你有没有设置ADODC1的.RecordSource属性???

追问

没有，请问如何设置

追答

右击ADODC控件 属性 记录源
或者直接通过代码实现
Adodc1.RecordSource =表名
adodc1.Refresh

追问

还是不行啊，能写个完整的吗

追答

连接字符串设置好了没有?别说不知道
设置好了再用下面的代码
Adodc1.RecordSource ="select * from 员工表"

Answer 2

Adodc1.Recordset.AddNew '添加新纪录

追问

还是提示有错

追答

如果还是有错，那就检查一下数据库中字段名和你写是否一致