module1.bas

来自「宿舍管理系统 vb+SQL 可进行宿舍卫生情况打分统计」· BAS 代码 · 共 16 行

Attribute VB_Name = "Module1"
Option Explicit
 
 '定义cnn为数据库连接对象
Public cnn As New ADODB.Connection
Public DBcnnstr As String
Sub Main()
    '连接数据库
         DBcnnstr = "Driver={sql server};server=(local);uid=sa;pwd=yyq87997279;database=roomMan"
         cnn.Open DBcnnstr
    '加载窗体form1
    Form2.Show
    
End Sub