module1.bas

来自「采用VB编写的学生订票管理系统 有详细的代码~解压后可以直接使用！~附有使用说」· BAS 代码 · 共 12 行

Attribute VB_Name = "Module1"
Public xh As String
Public i As Integer
Public Function mysql() As String
    mysql = "Provider=SQLOLEDB;Persist Security Info=False;User ID=sa;Initial Catalog=db_dpgl"
End Function
Public Function cnn() As ADODB.Connection    '定义函数
    Set cnn = New ADODB.Connection
    '返回一个数据库连接
    cnn.Open "Provider=SQLOLEDB;Persist Security Info=False;User ID=sa;Initial Catalog=db_dpgl"
End Function