dbmanger.bas

来自「VB连接SQL数据库」· BAS 代码 · 共 71 行

Attribute VB_Name = "DBManger"
Option Explicit
Public Enum TDBTypeEnum
    Access = 0
    Sql = 1
End Enum

Public Type TDBConfig
    UserID As String
    Pwd As String
    HostName As String
    DBName  As String
    DBType As TDBTypeEnum
End Type

Public Type TRstConfig
    Source As String
    CursorType As ADODB.CursorTypeEnum
    CursorLocation As ADODB.CursorLocationEnum
End Type
Public Function ConnToServer(dbconfig As TDBConfig) As ADODB.Connection
    On Error GoTo line
    Dim con As ADODB.Connection
    Set con = New ADODB.Connection
    Dim connString As String
    If con.State = 1 Then con.Close
    If dbconfig.DBType = Sql Then
        connString = "Provider=SQLOLEDB.1;Password=" & dbconfig.Pwd & ";Persist Security Info=True;User ID=" & dbconfig.UserID & ";Initial Catalog=" & dbconfig.DBName & ";Data Source=" & dbconfig.HostName
    Else
        connString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\桌面\aa.mdb;Persist Security Info=False"
        connString = "Provider=SQLOLEDB.1;Password=" & dbconfig.Pwd & ";Persist Security Info=True;User ID=" & dbconfig.UserID & ";Initial Catalog=" & dbconfig.DBName & ";Data Source=" & dbconfig.HostName
    End If
    con.ConnectionString = connString
    con.CursorLocation = adUseClient
    con.Open
    Set ConnToServer = con
    Exit Function
line:
    MsgBox Err.Description
End Function
Public Function GetRecordSet(con As ADODB.Connection, rstConfig As TRstConfig) As ADODB.Recordset
    Dim rst As ADODB.Recordset
    On Error GoTo line
    Set rst = New ADODB.Recordset
    Set rst.ActiveConnection = con
    rst.CursorLocation = rstConfig.CursorLocation
    rst.CursorType = rstConfig.CursorType
    rst.Source = rstConfig.Source
    rst.Open
    Set GetRecordSet = rst
    Exit Function
line:
    MsgBox Err.Description
    
End Function
Public Function AddRecord(con As ADODB.Connection, insertSql As String) As Boolean

    con.Execute insertSql
    
End Function

Sub main()
    Call Ini
    frmMain.Show
End Sub
Public Sub Ini()

End Sub