module1.bas

校园导游管理系统！！这个应该对很多人都比较有用

Attribute VB_Name = "Module1"
Public username, password

Public Function executesql(ByVal sql As String, msgstring As String) As ADODB.Recordset
       Dim cnn As ADODB.Connection
       Dim rst As ADODB.Recordset
       Dim stokens() As String
        On Error GoTo executesql_error
       stokens = Split(sql)
        Set cnn = New ADODB.Connection
        cnn.Open "provider=sqloledb;server=(local);uid=sa;pwd=;database=xsgl"
        If InStr("insert,delete,update", UCase$(stokens(0))) Then
        msgstring = stokens(0) & "quert successful"
        Else
        Set rst = New ADODB.Recordset
        rst.Open (sql), cnn, adOpenDynamic, adLockOptimistic
        Set executesql = rst
        msgstring = "查询到" & rst.RecordCount & "条记录"
        End If
        
executesql_exit:
  Set rst = Nothing
  Set cnn = Nothing
  Exit Function
executesql_error:
 msgstring = "" & Err.Description
 Resume executesql_exit
 End Function
 Public Function executesql2(ByVal sql As String, msgstring As String) As ADODB.Recordset
 Dim cnn As New ADODB.Connection
 Dim rst As New ADODB.Recordset
cnn.Open "provider=sqloledb;server=(local);uid=sa;pwd=;database=xsgl"
rst.Open "select * from user_info", cnn, adOpenKeyset, adLockOptimistic, adCmdText
Set executesql2 = rst

 End Function
 

 
 Sub main()
 
 frmlogin.Show
 If frmlogin.ok Then
 
 
 Unload flogin
 
 frmmain.Show
 End If
 
 
 End Sub
 
 
    


Public Function testtxt(txt As String) As Boolean
If Trim(txt) = "" Then
testtxt = False
Else
testtxt = True
End If


End Function