Contoh pemanngilan Connection saat Save

Public Sub fSave()
If rsTrans.State = 1 Then rsTrans.Close
rsTrans.Open "select * From Trans_R where EmpNo='XXX'", DB, adOpenKeyset, adLockOptimistic
rsTrans.AddNew
rsTrans!EmpNo = Text(0)
rsTrans!Fep_No = "01"
rsTrans!Dev_Type = "R"
rsTrans!Dev_Id = "0009"
If rsCard.State = 1 Then rsCard.Close
rsCard.Open "Select Card_Number From vCardGate Where EMPID='" & Trim(Text(0)) & "'", DB, adOpenKeyset, adLockOptimistic
If rsCard.RecordCount > 0 Then
rsTrans!Tr_Data = rsCard!Card_Number
End If
rsTrans!Tr_Date = Text(2)
rsTrans!Company = Combo1
rsTrans!Tr_User = USRID
If Option1(0).Value = True Then
rsTrans!Tr_Time = Text(3)
rsTrans!Tr_Code = "0"
rsTrans!Tr_Priority = "00"
rsTrans.Update
Else
rsTrans!Tr_Time = Text(3)
rsTrans!Tr_Code = "9"
rsTrans!Tr_Priority = "00"
rsTrans.Update
End If
For i = 0 To 3
Text(i) = ""
Next
CmdEnabled Me, "2"
Text(0).SetFocus
End Sub

Cara pemanggilan di program

Pada sub main program, untuk lengkapnya silahkan lihat di baha ini

Public Sub Main()
On Error Resume Next
'get connection info
Dim Server, Userid, Password, Database As String
Dim dwLCID As Long
Dim Maunyakita As String
SetinganAsliDiKomputerUser = GetCurrentDateFormat
Maunyakita = "dd/MM/yyyy"
dwLCID = GetSystemDefaultLCID()

iniFile = Trim(Command())
If iniFile = "" Then iniFile = "HRD.ini"

10:
Server = GetIni("Connect", "Server")
If Server = "" Then
' frmConnect.Show vbModal
GoTo 10
End If
Userid = GetIni("Connect", "Userid")
Password = LCase(Decrypt(GetIni("Connect", "Password")))
Database = GetIni("Connect", "Database")
AttcDir = GetIni("Attachment", "Folder")
TempDir = Environ("TEMP")

ConnectS = "Provider=SQLOLEDB.1;" _
& "Persist Security Info=False;" _
& "User ID=" & Userid & ";" _
& "Password=" & Password & ";" _
& "Initial Catalog=" & Database & ";" _
& "Data Source=" & Server
ConnectRpt = "dsn=" & Server & ";dsq=" & Database & ";uid=" & Userid & ";pwd=" & Password & ";"
DB.CursorLocation = adUseClient
DB.Open ConnectS
'datSQL.conn.ConnectionString = ConnectS

If Err.Number <> 0 Then
frmConnect.Show vbModal
GoTo 10
End If

On Error GoTo LocalErr
frmLogin.Show vbModal
If frmLogin.Succeeded Then
frmMDIMain.Show
End If
Unload frmLogin

Call Regset
Exit Sub
LocalErr:
ShowError "Connection Fail !"
End
End Sub