mdl_data.bas

VB物流管理系统毕业设计带源码源码+论文 vB+sql的毕业设计

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     '定义连接字符串函数
'   PublicStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_Goods"
   Set Cnn = New ADODB.Connection
   Cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_Goods"
End Function
Public Sub main()
   PublicStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_Goods"
   frm_xtdl.Show
End Sub