module1.bas

来自「会计管理信息系统windows界面vb编程 会计管理信息系统windows界面」· BAS 代码 · 共 50 行

Attribute VB_Name = "ModuleSql"
'**************************************欢迎使用梅花会计信息系统**************************************
'系统制作: 梅花项目小组
'系统组成模块:              制作者:
'1 .科目字典                温源
'2 .凭证处理                邹萍、蒋蕾
'3 .凭证汇总                欧阳达、段文文
'4 .帐簿输出                万星（项目组长）、刘春宏
'   系统整合                欧阳达、段文文
'****************************************************************************************************


'声明全局对象变量ADOcn，用于创建与数据库的连接
Public ADOcn As Connection
Public stringSql As Boolean



Sub Main()

    If stringSql = False Then
        Dim strAccess As String
        strAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=AISKM.mdb;Persist Security Info=False"

         '连接Access数据库
        Set ADOcn = New Connection
        ADOcn.Open strAccess

        '显示主窗体
        frmMain.Show
    
    Else
        '定义数据库连接字符串
        Dim strSQLServer As String

        '用于连接SQL Server数据库，其中:
        'Server为服务器名称
        'User ID为登录账号
        'Password为登录口令
        'Database为具体的数据库名
        strSQLServer = "Provider=SQLOLEDB;Server=(local);User ID=sa;Password=sa;Database=AISKM"
        '连接SQL Server数据库
        Set ADOcn = New Connection
        ADOcn.Open strSQLServer
        '显示主窗体
        frmMain.Show
    End If
End Sub