module3.bas

学生宿舍管理系统vb源码

Attribute VB_Name = "Module3"

Public Function OpenSchemaX(ByVal DataBase As String, ByVal TableName As String) As Boolean

    Dim cnn1 As ADODB.Connection
    Dim rstSchema As ADODB.Recordset
    Dim strCnn As String
      
    Set cnn1 = New ADODB.Connection
    strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & DataBase & "';Persist Security Info=False;"
    cnn1.Open strCnn
      
    Set rstSchema = cnn1.OpenSchema(adSchemaTables)
   
    Do Until rstSchema.EOF
        If Not Left(rstSchema!table_name, 4) = "MSys" Then
            If UCase(rstSchema!table_name) = UCase(TableName) Then
                OpenSchemaX = True
                Exit Function
            End If
        End If
        rstSchema.MoveNext
    Loop
    rstSchema.Close
   
    cnn1.Close
   
End Function