check.bas

来自「教务管理系统,用VB 完成,以SQL SERVER 2000作为后台数据库」· BAS 代码 · 共 75 行

Attribute VB_Name = "check"
Public Sub CheckXH(ByVal rec As String)
Dim recRepeat As Recordset
Dim sqlRepeat As String
Dim recSource As Recordset
Dim sqlDelete As String
Dim I As Integer
Dim XH As String
Set recSource = dbStudent.OpenRecordset("select * from " + rec + "", dbOpenSnapshot)
If recSource.RecordCount <> 0 Then
    recSource.MoveLast
    recSource.MoveFirst
    
    XH = recSource!XH
    sqlRepeat = "select top 1 * from zbqkb where xh='" + Trim(XH) + "'"
    Set recRepeat = dbStudent.OpenRecordset(sqlRepeat, dbOpenSnapshot)
    If recRepeat.RecordCount = 0 Then
        sqlDelete = "delete * from " + rec + " where xh='" + Trim(XH) + "'"
        dbStudent.Execute sqlDelete
    End If
    
    For I = 1 To recSource.RecordCount - 1
      recSource.MoveNext
      XH = recSource!XH
      sqlRepeat = "select top 1 * from zbqkb where xh='" + Trim(XH) + "'"
      Set recRepeat = dbStudent.OpenRecordset(sqlRepeat, dbOpenSnapshot)
      If recRepeat.RecordCount = 0 Then
          sqlDelete = "delete * from " + rec + " where xh='" + Trim(XH) + "'"
          dbStudent.Execute sqlDelete
      End If
      
    Next I
    
       
End If
End Sub


Public Sub CheckxueH(ByVal rec As String)
Dim recRepeat As Recordset
Dim sqlRepeat As String
Dim recSource As Recordset
Dim sqlDelete As String
Dim I As Integer
Dim XH As String
Set recSource = dbStudent.OpenRecordset("select * from " + rec + "", dbOpenSnapshot)
If recSource.RecordCount <> 0 Then
    recSource.MoveLast
    recSource.MoveFirst
    
    XH = recSource!XueH
    sqlRepeat = "select top 1 * from zbqkb where xh='" + Trim(XH) + "'"
    Set recRepeat = dbStudent.OpenRecordset(sqlRepeat, dbOpenSnapshot)
    If recRepeat.RecordCount = 0 Then
        sqlDelete = "delete * from " + rec + " where xueh='" + Trim(XH) + "'"
        dbStudent.Execute sqlDelete
    End If
    
    For I = 1 To recSource.RecordCount - 1
      recSource.MoveNext
      XH = recSource!XueH
      sqlRepeat = "select top 1 * from zbqkb where xh='" + Trim(XH) + "'"
      Set recRepeat = dbStudent.OpenRecordset(sqlRepeat, dbOpenSnapshot)
      If recRepeat.RecordCount = 0 Then
          sqlDelete = "delete * from " + rec + " where xueh='" + Trim(XH) + "'"
          dbStudent.Execute sqlDelete
      End If
      
    Next I
    
       
End If
End Sub