moddemo.bas

简单的数据哭访问程序

Attribute VB_Name = "modDemo"


Option Explicit
Public g_DBcon As New ADODB.Connection
Global g_DBrs As New ADODB.Recordset
Public Sub main()
    frmLogin.Show
End Sub
Public Function QueryData(ByVal strsql As String) As Boolean
    On Error Resume Next
    'Set g_DBrs = New ADODB.Recordset
    If g_DBrs.State Then
        g_DBrs.Close
    Else
        Call g_DBrs.Open(strsql, g_DBcon, adOpenKeyset, adLockOptimistic)
    End If
    If Err.Number > 0 Then
        Err.Clear
        QueryData = False
    Else
        QueryData = True
    End If
    
End Function

Public Function ConnecToServer() As Boolean
On Error GoTo connecterr
    If g_DBcon.State Then g_DBcon.Close
    'g_DBcon.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=Northwind;Data Source=ACCPTF"   '以WINDOWS方式打开
    'g_DBcon.ConnectionString = "Provider=SQLOLEDB.1;user id=sa,Password=;Persist Security Info=True;User ID=sa;Initial Catalog=Northwind;Data Source=ACCPTF"        '以SQL—SERVER方式打开
    'g_DBcon.ConnectionString = "Provider=SQLOLEDB.1;Data Source=localhost;User ID=sa;Password=;Initial Catalog=Northwind"
    'g_DBcon.ConnectionString = "dsn=accpsql;uid=sa;pwd="                                                                                                             '在本机建立一个DSN文件
    g_DBcon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & App.Path & "\studenta.mdb"    '连接ACCESS
    g_DBcon.ConnectionTimeout = 30
    g_DBcon.Open
    ConnecToServer = True
   
    Exit Function
connecterr:
    ConnecToServer = False
    MsgBox "连接错误: " & Err.Description, vbInformation + vbOKOnly, "连接错误"
End Function

Public Function ExeecuteSql(ByVal strsql As String) As Boolean
    On Error Resume Next
        g_DBcon.Execute (strsql)
        If Err.Number > 0 Then
            Err.Clear
            ExeecuteSql = False
        Else
            ExeecuteSql = True
        End If
End Function