28,390
社区成员
发帖
与我相关
我的任务
分享
...
conn.Open ...
sql = "SELECT * FROM tbl WHERE fld=123"
Set rs = CreateObject("ADODB.RecordSet")
rs.CursorLocation = 3
rs.Open sql, conn, 1, 3
If rs.EOF And rs.BOF Then
rs.AddNew
rs("fld").Value = 123
rs("xxx").Value = 'xxxx'
...
rs.Update
Else
err_msg = "已使用"
End If
If rs.State <> 0 Then rs.close
conn.Close
Set rs = Nothing
Set conn = Nothing