Public Function IsLocked(ByVal strFile As String) On Error GoTo hErr Dim strLockFile As String strLockFile = Left(strFile, Len(strFile) – 4) & “.LDB” ‘Call FileDelete(strLockFile) If CBool(Len(Dir$(strLockFile))) Then IsLocked = True Else IsLocked = False End If Exit Function hErr: Select Case MsgBox(“Error ” & Err.Number & “: ” & Err.Description & vbCrLf & _ “in [...]
Membuat Database
Membuat Database Private Sub Form_Load() Dim ws As Workspace Dim db As Database Set ws = DBEngine.Workspaces(0) Set db = ws.CreateDatabase(“test.mdb”, dbLangGeneral & “;pwd=Password”) End Sub
Membuat ComboBox, ListBox dari Database Table
Membuat ComboBox, ListBox dari Database Table Public Sub LoadBox(cboBox As Object, strTB, IDField, descField As String) On Error GoTo Errors Dim rs As Recordset ‘Declare a recordset Dim sql As String ‘Declare a string to hold the SQL statement cboBox.Clear sql = “” sql = “SELECT ” & IDField & “, ” & descField & [...]
Compact Database menggunakan DAO
Compact a JET database menggunakan ADO Option Explicit Function DatabaseCompact(sDatabasePath As String, Optional bEncryptDatabase As Boolean = False) As Long Dim oJRO As Object ‘JRO.JetEngine On Error GoTo ErrFailed If Len(Dir$(sDatabasePath & “.tmp”)) Then ‘Delete the existing temp database VBA.Kill sDatabasePath & “.tmp” End If Set oJRO = CreateObject(“JRO.JetEngine”) If bEncryptDatabase Then ‘Compact and encrypt [...]
Check Record table Existing
Check record apakah ada di master sebelum membuka transaction form Public Function CheckRecord(table) Dim oprs As ADODB.Recordset Set oprs = New ADODB.Recordset SQL = “select * from ” & table oprs.Open SQL, DB, adOpenKeyset, adLockReadOnly If oprs.RecordCount <> 0 Then CheckRecord = True Else msg = “tidak ada Records pada ” & table MsgBox msg [...]
Menambah dan Menghapus DSN
Berikut dibawah ini adalah rutin atau syntax untuk Menambah dan Menghapus DSN yang nantinya bias digunakan untuk menghubungkan konkesi Aplikasi ke Database Anda. ‘—-DSN Declarations——– Option Explicit Public Enum eDBType FileBased ServerBased End Enum Public Type tDSNAttrib Type As eDBType ‘FileBased (eg Access) or ServerBased (eg. SQL Server) Server As String ‘Database Server Description As [...]
Iklan Sponsor
