在连接数据库的时候只能添加一条记录 为什么

ququ629

各位高手~~~~
我的程序是这样的
Private Sub Command2_Click()
Strsql = "Insert Into diaodu1 (姓名,密码,操作时间,操作前阀门状态,操作后阀门状态) " & _
            "Values('" & xm & "','" & mm & "','" & D1.DTPicker1.Value & "','" & D1.Command2(sj).Caption & zq & "','" & D1.Command2(sj).Caption & zh & "')"
                    mycnn.Execute Strsql
                    mystrsql = "Select * From diaodu1"
    myrst.Open mystrsql, mycnn, 1, 3
    Set myrst = Nothing
    Set mycnn = Nothing
D1.Show
End Sub
在向数据库添加记录的时候 只能增加一条，再增加就出现
‘实时错误’的提示
哪位给指点一下

waleywang

可能的问题:
你加完一条记录后, 就把mycnn (connection对象)关闭了, 如果你确定是想每次进这个程序就打开/关闭连接, 那么在前面要加上 set mycnn = new adodb.connection
mycnn.open *****

PS: 你的编程习惯很不好.
1.如果不是只做一次动作, 不要直接用connection对象的excute方法. 用recordset的update或command对象的excute方法

2. 要用 with语句, 对 对象的属性做设置, 然后使用open方法.

3. 不要直接使用参数的绝对值, 要使用ADO定义的内部常量

4. 进一步, 如果带变量的更新/查询, 用command对象的参数语句更好.

ququ629

那这位仁兄，我应该怎么样改一下比较好？

ququ629

大家给指点一下，我应该怎么修改，最好能详细一点

waleywang

不好意思, 很久没上来了. ;-)

具体到你的这段代码, 把这两个语句去掉就行了:
Set myrst = Nothing
Set mycnn = Nothing
这两句释放了myrst 和mycnn