declearation.bas

本压缩包包含3个数据库实例

Attribute VB_Name = "Declearation"
'保存执行SQL语句的字符串
Public SqlStmt As String
'服务器名称
Public ServerName As String
'读取表中列值的变量
Public ColVal As String
'保存药品入库信息
'Public Import As New Durg_import
'保存库存药品信息
'Public Information As New Drug_info
'保存药品出库信息
'Public Export As New Drug_export

Public objConn As New ADODB.Connection
Public objRS As New ADODB.Recordset



Public Sub OpenDB()
    objConn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=true;User ID=sa;password=sa;Initial Catalog=Drug;Data Source=COLIN"
    objConn.Open
    
End Sub

Public Sub CloseDB()
    objConn.Close
End Sub