module1.bas

学生订票系统客户端是解决学生假期排队购票的问题

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