Koneksi Database Access Dengan Visual Basic 6

Mungkin ada yang belum mengerahui bagaimana membuat koneksi ke Database Access dari VB6. Pertama kita buat Modul dahulu.

Option Explicit

Public adcConnect As Connection

Private Sub ConnectToDatabase()
   On Error GoTo LocalErr

   Set adcConnect = New ADODB.Connection

   adcConnect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DB_PARKIR.mdb;Persist Security Info=False"
   Exit Sub

LocalErr:
   Screen.MousePointer = vbDefault
   MsgBox Err.Number & Chr(13) & Err.Description, vbCritical + vbOKOnly, "Error Connection"
End Sub

DB_PARKIR.mdb adalah nama database yang dibuat dengan Access.  Selamat mencoba semoga berhasil.

StartUp & Shutdown Database Oracle

Bagaimana sih cara menstop dan startup Database Oracle. Secara singkatnya seperti ini.

Shartup Database :

1. $ sqlplus "/ as sysdba"

2. SQL> startup

3. SQL> exit

4. $ lsnrctl start

Shutdown Database :

1. $ sqlplus "/ as sysdba"

2. SQL> shutdown immediate

3. SQL> exit

4. $ lsnrctl stop

Untuk lebih lengkapnya coba baca di situs oracle :

• http://download.oracle.com/docs/cd/B10501_01/server.920/a96521/start.htm
• http://download.oracle.com/docs/cd/B28359_01/server.111/b28310/start003.htm

Koneksi Database SQL Server Dengan Visual Basic 6

Mungkin ada yang belum mengetahui bagaimana membuat koneksi ke database Sql Server dari VB6. Disini akan diterangkan langkah-langkahnya.

1. Membuat file dengan extensen .udl (contoh : conDBS.udl ).

2.Double klik file conDBS.udl maka akan tampil form seperti gambar dibawah ini. Provider pilih "Microsoft OLE DB Provider for SQL Server". Setelah itu klik tombol"Next".

 3. Bila database SQL Server ada di Server (PC Lain) masukkan server name / ip address server tersebut. Jika database ada di PC local tulis saja "localhost". Setelah itu masukkan user name dan password, lalu pilih nama database. Setelah itu lakukan"Test Connection".

 4. Membuat procedure connection database di VB.

Option Explicit

'Connection

Public adcConnect As New ADODB.Connection

Public Sub ConnectToDatabase()

   On Error GoTo LocalErr

  

   Set adcConnect = New ADODB.Connection

   adcConnect.Open "FILE NAME=" & App.Path & "\conDBS.udl"

  

   Exit Sub

LocalErr:

   Screen.MousePointer = vbDefault

   If Err.Number = -2147467259 Then

      MsgBox "Connection failed, please check data link properties in path \conDBS.udl !," & Chr(13) & _

      "Or SQL Server not running. Open SQL Server service manager, server name and services must correct.", vbCritical, "Error"

       Exit Sub

   Else

      MsgBox Err.Number & Chr(13) & Err.Description, vbCritical + vbOKOnly, "Error Connection"

   End If

End Sub

Pindah Cursor Dengan KeyPress

Source code berikut ini digunakan untuk berpindah textbox ke textbox lain atau dari object satu ke object yang lain dengan menekan enter kursor akan berpindah.

Buat suatu project dengan :
1 Form
4 TextBox (Input Properties Index masing-masing textbox, dimulai dari 0,1,2,3)

Copy source code berikut pada Form :

Private Sub Text1_KeyPress(KeyAscii As Integer)
   If KeyAscii = vbKeyReturn Then
      SendKeys "{TAB}"
   End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
   If KeyAscii = vbKeyReturn Then
      SendKeys "{TAB}"
   End If
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
   If KeyAscii = vbKeyReturn Then
      SendKeys "{TAB}"
   End If
End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
   If KeyAscii = vbKeyReturn Then
      SendKeys "{TAB}"
   End If
End Sub

Menghitung Jumlah Hari Dalam Satu Bulan

Source code berikut untuk menghitung jumlah hari dalam satu bulan di Visual Basic 6.

Buat suatu project dengan :
1 Form
1 CommandButton dengan name"cmdDayOfMonth"

Copy source code berikut pada Form :

Option Explicit

Private Function DayOfMonth(ByVal dtmDate As Date) As Byte
   Dim btyDay As Byte
   btyDay = DatePart("d", DateAdd("d", -1, DateAdd("m", 1, _
                      DateAdd("d", -DatePart("d", dtmDate) + 1, _
                      dtmDate))))
   DayOfMonth = btyDay
End Function

Private Sub cmdDayOfMonth_Click()
   MsgBox "Jumlah hari pada bulan " & MonthName(Month(Now)) & "  ini adalah " & DayOfMonth(Now) & " hari"
End Sub

Konversi Detik Ke Jam

Source code berikut untuk konvesi detik ke jam dengan Visual Basic 6. Contok di bawah ini untuk data 3600 detik.

Buat suatu project dengan :
1 Form
1 CommandButton dengan name"cmdDayOfMonth"

Copy source code berikut pada Form :

Private Sub KonversiDetikJam(ByVal intDetik As Long)
    Dim hour, minute, second As Long
   Dim lngDetik, b, c, d As Long
   lngDetik = intDetik
   hour = Int(lngDetik / 3600)
   b = hour * 3600
   minute = Int((lngDetik - b) / 60)
   second = lngDetik - b - (minute * 60)
   MsgBox "Hasil konversi = " & hour & " jam " & minute & " menit " & second & " detik ", vbOKOnly
End Sub

Membuat Teks Kelap-Kelip

Source code berikut untuk membuat teks kelap-kelip dengan Visual Basic 6. Contok di bawah ini menggunakan interval timer dengan 700.

Buat suatu project dengan :
1 Form
1 Label
1 Timer (Interval : 700)

Copy source code berikut pada Form :

Option Explicit

Dim lngLoop As Long
Dim merah, hijau, biru As Long

Private Sub Form_Load()
   lngLoop = 0
   Timer1.Interval = 700
   Label1.Caption = "Sedang mencoba tulisan kelap-kelip"
End Sub

Private Sub Timer1_Timer()
   lngLoop = lngLoop + 1
   If lngLoop = 1000000 Then lngLoop = 0
   merah = Int(255 * Rnd)    'angka random untuk merah
   hijau = Int(255 * Rnd)      ' angka random untuk hijau
   biru = Int(255 * Rnd)       'angka random untuk biru
   Label1.ForeColor = RGB(merah, hijau, biru)   'Campur tiga warna
   If lngLoop Mod 2 = 0 Then
      Label1.Visible = True  'Tampilkan label
   Else
      Label1.Visible = False 'Sembunyikan label
   End If
End Sub

TextBox Hanya Menerima Input Angka - (2)

Source code berikut ini digunakan untuk membatasi penulisan pada textbok hanya menerima input angka. Bisanya digunakan untuk penulisan nomor telepon atau kode pos. Pada tulisan sebelumnya sudah pernah dibuat , tapi yang satu ini dengan cara yang lain.

Buat suatu project dengan :
1 Form
1 TextBox

Copy source code berikut pada Form :

Private Sub Text1_KeyPress(KeyAscii As Integer)
   Dim strKey As String
   strKey = "0123456789"
   If KeyAscii > 26 Then
      If InStr(strKey, Chr(KeyAscii)) = 0 Then
         KeyAscii = 0
         Exit Sub
      End If
   End If
End Sub

TextBox Hanya Menerima Input Angka - ( 1 )

Source code berikut ini digunakan untuk membatasi penulisan pada textbok hanya menerima input angka. Bisanya digunakan untuk penulisan nomor telepon atau kode pos.

Buat suatu project dengan :
1 Form
1 TextBox

Copy source code berikut pada Form :

Private Sub InputAngka(ByRef KeyAscii As Integer)
   If ((KeyAscii < 48 And KeyAscii <> 8) Or KeyAscii > 57) Then
       KeyAscii = 0
   End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
   InputAngka KeyAsciiEnd Sub

TextBox Hanya Menerima Input Huruf

Source code berikut ini digunakan untuk membatasi penulisan pada textbok hanya menerima input huruf.

Buat suatu project dengan :
1 Form
1 TextBox

Copy source code berikut pada Form :

Public Sub InputHuruf(ByVal KeyAscii As Integer)
   If Not (KeyAscii >= Asc("a") & Chr(13) And KeyAscii <= Asc("z") & Chr(13) Or (KeyAscii >= Asc("A") & Chr(13) And KeyAscii <= Asc("Z") & Chr(13) Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeySpace)) Then
       KeyAscii = 0
   End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
   InputHuruf KeyAscii
End Sub