11.28.txt

以上所有操作应用程序及数据库均要对其进行合法性有效性验证及相关约束条件检查

Private Sub Command1_Click()
On Error GoTo errhandler

Dim adors As New ADODB.Recordset
Dim adocommand As New ADODB.Command

With adocommand
    .ActiveConnection = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=大作业;Data Source=KASUMIPC;"
    .CommandText = "SELECT * FROM library_books"
    .CommandType = adCmdText
End With

With adors
    
    .CursorLocation = adUseClient
    .CursorType = adOpenStatic
    .LockType = adLockBatchOptimistic
    
    .Open adocommand
    
    Set .ActiveConnection = Nothing
    
    .MoveLast
    .Delete
    .ActiveConnection = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=大作业;Data Source=KASUMIPC;"
    .UpdateBatch

  
End With
Exit Sub
errhandler:
    If Err.Number = -2147217864 Then
        adors.Filter = adFilterConflictingRecords
        MsgBox Err.Number & ": " & Err.Description & " unable to update " & adors.RecordCount & "records"
    End If

 
End Sub
Private Sub Command2_Click()
Dim ADOFIELD As ADODB.Field
Dim adors As New ADODB.Recordset

With adors
    .ActiveConnection = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=大作业;Data Source=KASUMIPC;"
    .CursorLocation = adUseServer
    .LockType = adLockOptimistic
    .CursorType = adOpenDynamic
    .Source = "SELECT * FROM library_books"
    .Open
    
    If .State = adStateOpen Then
    
    
        
        .Fields("isbn").Value = "Tq311"
        savechanges = MsgBox("Do you want to save your changes?", vbQuestion + vbYesNo)
        
        If savechanges = vbYes Then
            .Update
           
        For Each Field In .Fields
            Debug.Print Field.Name & " " & Field.Value
        Next Field
        Else
            .CancelUpdate
        End If
    End If
 End With

End Sub

Private Sub Command3_Click()
Dim adors As New ADODB.Recordset
Dim ADOFIELD As ADODB.Field



With adors
    
    .ActiveConnection = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=大作业;Data Source=KASUMIPC;"
    .CursorLocation = adUseClient
    .CursorType = adOpenStatic
    .LockType = adLockBatchOptimistic
    .Source = "SELECT s.isbn,s.title ,o.stuname FROM library_books s,(select * from student_books) as o"
    .Properties("Unique Table") = "library_books"
    
    .Open
    Set .ActiveConnection = Nothing
    
    .MoveLast
    .Fields(0).Value = "TT"
    .ActiveConnection = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=大作业;Data Source=KASUMIPC;"
    .UpdateBatch
        
        
  MsgBox "DFSAF"
End With

End Sub

Private Sub Command4_Click()
Dim adors As New ADODB.Recordset
Dim adocommand As New ADODB.Command

With adocommand
.Parameters.Append .CreateParameter("RETURN_VALUE", adInteger, adParamReturnValue, , Null)
End With
MsgBox "SD"

End Sub

Private Sub Command5_Click()


Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=大作业;Data Source=KASUMIPC;"
Adodc1.CursorLocation = adUseClient
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select *  from library_books"
Adodc1.Refresh


End Sub

Private Sub Form_Load()
Left = O
Top = 0
Me.Height = Main.ScaleHeight
Me.Width = Main.ScaleWidth


End Sub