cnn.Execute "delete from "语句,然后用cnn.Close关闭后,软件就不能再次使用,要重新打开再用啊!!!谁能教教我该怎么办。
如果用Rs.open sql语句打开,用rs.Update和rs.close不能关闭数据库,这是为什么呢?是不是我参数设置不对啊,那么使用删除语句和修改(Update)语句该怎么设置参数啊
如果用Rs.open sql语句打开,用rs.Update和rs.close不能关闭数据库,这是为什么呢?是不是我参数设置不对啊,那么使用删除语句和修改(Update)语句该怎么设置参数啊
你不要再执行cnn.Close,连接就不会关闭2、用rs.Update和rs.close不能关闭数据库。
rs.close是关闭记录集。需要用cnn.Close关闭连接
adodb.connection數據連接
adodb.recordset是紀錄集
要關閉數據庫,只能是先關閉連接,rs.close只能關閉打開的紀錄集,不能關閉數據庫樓主說的這樣的錯誤影響的情況很多種,建議給出你的代碼
我用rs.close不能关闭记录集是怎么回事
cnn.Execute sql
cnn.close
用以上的方法就不能重复使用程序
如果是:
rs.open sql,cnn,1,3
rs.Update
rs.close
就有错误:对象关闭时,操作不被允许
Dim cn As New ADODB.Connection
Dim rs As New ADODB.RecordsetPrivate Sub Command1_Click()
rs.Open "SELECT * FROM TABLENAME WHERE NAME = '" & txtName.Text & "'", cn, adOpenDynamic, adLockOptimistic
If Not rs.EOF Then
Label1.Caption = rs!ID
Label2.Caption = rs!Memo
End If
rs.AddNew
rs!ID = "编号"
rs!Memo = "备注"
rs.Update
cn.Execute "DELETE FROM TABLENAME"
End SubPrivate Sub Form_Load()
cn.ConnectionString = "DBQ=" & App.Path & "\TelePhone.mdb;DefaultDir=" & _
App.Path & ";Driver={Microsoft Access Driver (*.mdb)};" & _
"DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;" & _
"MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;" & _
"Threads=3;UID=ADMIN;UserCommitSync=Yes;PWD=admind1234;"
cn.Open
'查询字符串可以上这里查
'http://www.connectionstrings.com/
End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub