module1.bas

银行的客户端模块

Attribute VB_Name = "Module1"
Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long







Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public cmd As New ADODB.Command
Public employee_id As String
Public account_type As String
Public account_id As String





'连接数据库
Public Sub connection_sql()
conn.ConnectionString = "provider=sqloledb.1;integrated security=sspi;" + _
                       "initial catalog=bank;data source=WXJ-PC\SQLEXPRESS"
conn.Open
cmd.ActiveConnection = conn
End Sub