mdlpublic.bas

一个股票分析系统

Attribute VB_Name = "mdlPublic"
Option Explicit

Public g_Conn As Connection     '当前活动连接
Public g_UserName As String     '当前登录用户

'系统由此启动
Sub Main()
  Dim msg As String
  On Error Resume Next
  msg = ConnectToDatabase("db\StockInfo2k.mdb")
  'msg = ConnectToSQLServer("localhost", "StockInfo", "sa", "")
  If msg <> "" Then
    MsgBox "连接数据库失败," & msg, 16, "登录"
    End
  End If
  frmWelcome.Show vbModal
   
End Sub

'连接到数据库
Public Function ConnectToDatabase(strFileName As String) As String
  On Error GoTo ERR_CONN
  Set g_Conn = New Connection
  '连接到数据库
  With g_Conn
     .CursorLocation = adUseClient
     .CommandTimeout = 10
     ' 连接到ACCESS数据库
     .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Password='';" & _
     "Data Source=" & App.Path & "\" & strFileName
     .Open
  End With
  ConnectToDatabase = ""
  Exit Function
  
ERR_CONN:
  ConnectToDatabase = Err.Description
End Function

'连接到数据库
Public Function ConnectToSQLServer(strHost As String, _
                                strDBName As String, _
                                strUser As String, _
                                strPwd As String) As String
  On Error GoTo ERR_CONN
  Set g_Conn = New Connection
  '连接到数据库
  With g_Conn
     .CursorLocation = adUseClient
     .CommandTimeout = 10
      ' 连接到SQL Server数据库
     .ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=True;" & _
        "User ID=" & strUser & ";Initial Catalog=" & strDBName & _
        ";Data Source=" & strHost & ";pwd=" & strPwd
     .Open
  End With
  ConnectToSQLServer = ""
  Exit Function
  
ERR_CONN:
  ConnectToSQLServer = Err.Description
End Function


'替换单引号
Function RealString(strSrc As String) As String
  RealString = Replace(strSrc, "'", "''")
End Function