男生17还能长高多少:vb用过程处理数据库连接

来源:百度文库 编辑:中财网 时间:2024/04/30 07:33:59
Public str As String
Public conn As New adodb.Connection
Public select_menu As String      '标记所选择的菜单
Public userid As String      '标记当前用户ID

Sub Main()
    登录系统.Show
End Sub
Public Function open_db() As Boolean '打开数据库
    Set conn = New adodb.Connection
    str = "driver={sql server};server=C0203FA75E564E6;database=住房公积金管理系统" '创建连接
    conn.Open str
    open_db = True
End Function

Public Function close_db() As Boolean '关闭打开数据库
  If conn.State = adStateOpen Then
      conn.Close
  End If
    close_db = True
End Function