modsql.bas

小型超市管理系统.

Attribute VB_Name = "modSQL"
Public strSQLServer As String   'SQL服务器地址
Public strSQLUser As String 'SQL用户名
Public strSQLPW As String 'SQL密码
Public strSQLDB As String 'SQL数据库
Public cnMain As New ADODB.Connection   '主连接


'连接SQL服务器
Public Function sqlConnect(ByVal cnThis As ADODB.Connection)
    Dim strSQL As String
    '生成连接字符串
    strSQL = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db.mdb;Persist Security Info=False"

    If strDataBase <> "" Then strSQL = strSQL & ";database=" & strDataBase  '如果需要连接到数据库
    cnThis.Open strSQL
End Function