(2010-06-21 20:46) 教程编号: ASP.NET教程 | 20107359
Dim rpy As Boolean On Error GoTo strerrmag Set rs = New ADODB.Recordset If addFlag = False Then rpy = True With rs .ActiveConnection = conn .CursorLocation = adUseClient .CursorType = adOpenKeyset .LockType = adLockOptimistic .Open strsql End With addFlag = True openrs = True Exit Function strerrmag: mag = "data not connect" Call MsgBox(mag, vbOKCancel, "error:connect") openrs = False End End Function Public Sub clors() On Error Resume Next If rs.State <> adStateClosed Then rs.Clone Set rs = Nothing End Sub |
|