?? mdl_data.bas
字號:
Attribute VB_Name = "Mdl_Data"
'Download by http://www.codefans.net
'數據連接模塊
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -