mdl_data.bas

行政管理系统VB写的有源代码也有可执行文件,本系统界面美观、操作简单。 程序操作流程清晰

Attribute VB_Name = "Mdl_Data"
'数据连接模块
Public PublicStr As String
Public AdoRs As New ADODB.Recordset           '后添加一个记录集对象
Public AdoRs1 As New ADODB.Recordset           '后添加一个记录集对象
Public AdoRs2 As New ADODB.Recordset           '后添加一个记录集对象
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_Service"
End Function
Public Sub main()
   PublicStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_Service"
   frm_xtdl.Show
End Sub