data.bas

来自「This application i made for handle simpl」· BAS 代码 · 共 69 行

Attribute VB_Name = "mdlData"


Option Explicit

Public conn As New ADODB.Connection
Public comm As New ADODB.Command
Public rs As New ADODB.Recordset

Public sqlx As String
Public connString As String


Public Sub CloseConnection(ByVal ex As ErrObject)

  If (conn.State = 1) Then
    Call conn.Close
  End If

  Call ClearParameter(comm)
  Call Message(ex.Description)

End Sub

Public Sub ClearParameter(ByVal nComm As ADODB.Command)

  Do While (nComm.Parameters.Count > 0)
    Call nComm.Parameters.Delete(0)
  Loop

End Sub

Public Function NullString(ByVal nVar As Variant, ByVal dValue As String) As String

  Dim nS As String
  nS = ""

  If (IsNull(nVar)) Then
    nS = dValue
  Else
    nS = CStr(nVar)
  End If

  NullString = (nS)

End Function

Public Sub LoadConfig(ByVal nConfig As Boolean)

  If (nConfig) Then

    frmConfig.txtConfig(0).Text = GetSetting(App.Title, IndexString(LoadResString(5), 0), IndexString(LoadResString(5), 1), "{Server}")
    frmConfig.txtConfig(1).Text = GetSetting(App.Title, IndexString(LoadResString(5), 0), IndexString(LoadResString(5), 2), "{Database}")
    frmConfig.txtConfig(2).Text = GetSetting(App.Title, IndexString(LoadResString(5), 0), IndexString(LoadResString(5), 3), "{User}")
    frmConfig.txtConfig(3).Text = GetSetting(App.Title, IndexString(LoadResString(5), 0), IndexString(LoadResString(5), 4), "{Password}")

  Else

    conn.ConnectionString = Replace(LoadResString(6), "@n0", GetSetting(App.Title, IndexString(LoadResString(5), 0), IndexString(LoadResString(5), 1), "{Server}"))
    conn.ConnectionString = Replace(conn.ConnectionString, "@n1", GetSetting(App.Title, IndexString(LoadResString(5), 0), IndexString(LoadResString(5), 2), "{Database}"))
    conn.ConnectionString = Replace(conn.ConnectionString, "@n2", GetSetting(App.Title, IndexString(LoadResString(5), 0), IndexString(LoadResString(5), 3), "{User}"))
    conn.ConnectionString = Replace(conn.ConnectionString, "@n3", GetSetting(App.Title, IndexString(LoadResString(5), 0), IndexString(LoadResString(5), 4), "{Password}"))

  End If

End Sub