Question

VB6.0出现问题 实时错误 3705

Private Sub Command3_Click() '【保存】
temp = Trim(Text5.Text)
cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=xinbo;Data Source=LIJING-PC\SQL2005" '连接库
sql = "select * from xueyuan where shenfenzheng='" + temp + "'"
rs.Open sql, cn, 1, 1 '只读打开记录集
If rs.EOF <> True Then
MsgBox "该学员已存在，请换重新确认身份证号"
ElseIf Text1.Text = "" Then '姓名为空时提示
MsgBox "请输入学员姓名"
ElseIf Text5.Text = "" Then '身份证号为空时提示
MsgBox "请输入学员身份证号"
ElseIf Text6.Text = "" Then '联系方式为空时提示
MsgBox "请输入学员联系方式"
ElseIf Combo1.Text = "" Then '语种为空时提示
MsgBox "语种不能为空"
ElseIf Combo2.Text = "" Then '学期为空时提示
MsgBox "请输入语种1所对应的学期"
Else
sql = "select * from xueyuan"
rs1.Open sql, cn, 3, 2 '可擦写打开记录集
rs1.AddNew
rs1("name") = Trim(Text1.Text)
rs1("xuehao") = Trim(Text2.Text)
rs1.Update '写入数据库
MsgBox "添加成功"
End If
End Sub
点第一次这个按钮没事 第二次的时候就出错。3705

Answer 1

实时错误'3705',对象打开时,不允许操作 这句已经提示很明显了 你rs对象是打开了

if rs.state =1 then rs.close '这句话，就是在open前，先判断rs的状态
rs.Open sql, cn, 1, 1 '只读打开记录集

修改代码：
Private Sub Command3_Click() '【保存】
temp = Trim(Text5.Text)
cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=xinbo;Data Source=LIJING-PC\SQL2005" '连接库
sql = "select * from xueyuan where shenfenzheng='" + temp + "'"
if rs.state =1 then rs.close '这句话，就是在open前，先判断rs的状态
rs.Open sql, cn, 1, 1 '只读打开记录集
If rs.EOF <> True Then
MsgBox "该学员已存在，请换重新确认身份证号"
ElseIf Text1.Text = "" Then '姓名为空时提示
MsgBox "请输入学员姓名"
ElseIf Text5.Text = "" Then '身份证号为空时提示
MsgBox "请输入学员身份证号"
ElseIf Text6.Text = "" Then '联系方式为空时提示
MsgBox "请输入学员联系方式"
ElseIf Combo1.Text = "" Then '语种为空时提示
MsgBox "语种不能为空"
ElseIf Combo2.Text = "" Then '学期为空时提示
MsgBox "请输入语种1所对应的学期"
Else
sql = "select * from xueyuan"
rs1.Open sql, cn, 3, 2 '可擦写打开记录集
rs1.AddNew
rs1("name") = Trim(Text1.Text)
rs1("xuehao") = Trim(Text2.Text)
rs1.Update '写入数据库
MsgBox "添加成功"
End If
End Sub

Answer 2

错误3705：是“对象打开时不允许操作”吧，原因是这句
cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=xinbo;Data Source=LIJING-PC\SQL2005" '连接库
在你第一次单击按钮时，cn第一次打开数据连接，不会有什么问题，但你这时再单击按钮时，数据连接已经打开了，所以就会出错了
在事件末端，添加：
cn.close
rs1.close
rs.close
试试吧

Answer 3

添加完了，把数据刷新下 refresh

追问

那个刷新的语句是什么？