module1.bas

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

Attribute VB_Name = "Module1"
Public xh As String
Public Name1 As String

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.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_dpgl;Data Source=."
End Function