Cara Buat Form Login VB6 dengan Database Ms.Access

Cara Buat Form Login VB6 dengan Database Ms.Access
Selamat datang kembali, disini kita akan membuat form login pada VB6 dan menggunakan database Ms.Access. untuk langkah-langkahnya sebagai berikut:

• Buka Ms.Access kemudian buat database dengan nama data dengan format mdb.
• kemudian buat tabel dengan nama login, dengan rincian:    

                     Field         data type    field size
                     Id                text              10
                     Password    text              10

• Isi field Id_pengguna dengan admin dan password 123
• simpan databasenya, kemudian buka VB6 dan pilih standar exe.
• Buat sebuah form seperti gambar dibawah ini, dan tambahkan komponen:
• 2 textbox (kosongkan text, beri nama login dan password, pada text password - passwordchar isi dengan tanda bintang *  )
• 2 Label (caption: ID Pengguna , Password)
• 2 Command Button ( Sign In da Batal)
• Tambahkan sebuah MDI form dan berinama FormMaster.
• Pada menu Project pilih References kemudian centang Microsoft ActiveX Data Objects 2.0 Library.

- Masukan Kode Berikut :
Public conn As ADODB.Connection
Public rs As New ADODB.Recordset
Public strsql As String
Private Sub btbatal_Click()
End
End Sub
Private Sub btlogin_Click()
Set conn = New ADODB.Connection
If conn.State = 1 Then
    conn.Close
End If
If rs.State = 1 Then
    rs.Close
End If

conn.ConnectionString = "Provider=Microsoft.jet.oledb.4.0;" & "Persist Security Info=False;Data source=" & App.Path & "\data.mdb"
conn.Open
conn.CursorLocation = adUseClient
strsql = "select* from login"
rs.Open strsql, conn, adopendinamyc, adLockOptimistic, adCmdText
If (id_pengguna.Text = "") Or (password.Text = "") Then
MsgBox "Silahkan masukan ID Pengguna dan Password dengan benar !", vbInformation + vbOKOnly, "Isi ID Pengguna dan Password !"
Else
    x = "id_pengguna='" & id_pengguna.Text & "'"
    rs.Find x
    If rs.EOF Then
        MsgBox "ID Pengguna tidak ditemukan.." & vbCrLf & "Login Gagal..", vbCritical, "Login Gagal"
        rs.MoveFirst
    Else
        If id_pengguna.Text = rs("id_pengguna") And password.Text = rs("password") Then
            rs.Close
            conn.Close
            FormMaster.Show
            Unload Me
        Else
            MsgBox "Password salah !" & vbCrLf & "Silahkan coba lagi dengan benar dan periksa CapsLock karena berpengaruh !", vbCritical + vbOKOnly, "Login Gagal"
            rs.MoveFirst
        End If
    End If
End If
End Sub

Private Sub Form_Activate()
Me.id_pengguna.SetFocus
End Sub














Selamat mencoba, Selamat mencoba dan semoga bermanfaat.
Sumber: belajardasarvisualbasic.blogspot.co.id/

Cara Membuat Form Transparan di VB6

Cara Membuat Form Transparan di VB6

Selamat datang di artikel ini, disini kita akan belajar bagaimana membuat form transparan, hal ini untuk memper indah tampilan yang sudah ada, dan langsung saja kita mencobanya silahkan ikuti langkah-langkah berikut:
- Buka VB6 nya buat sebuah form dengan rincian:
- Masukan Sebuah Image dan masukan gambar gambar gif yang gambarnya transparan.
- Buat Sebuah Modul dan masukan script di bawah ini:

Option Explicit
Public Const LWA_COLORKEY = 1
Public Const LWA_ALPHA = 2
Public Const LWA_BOTH = 3
Public Const WS_EX_LAYERED = &H80000
Public Const GWL_EXSTYLE = -20
Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal warna As Long, ByVal x As Byte, ByVal Alpha As Long) As Boolean
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Sub SetTransparan(frm As Long, warna As Long, nTrans As Integer, flag As Byte)
On Error GoTo Err
Dim attrib As Long
attrib = GetWindowLong(frm, GWL_EXSTYLE)
SetWindowLong frm, GWL_EXSTYLE, attrib Or WS_EX_LAYERED
SetLayeredWindowAttributes frm, warna, nTrans, flag
Exit Sub
Err:
MsgBox Err.Description & " Source : " & Err.Source
End Sub
- Masukan Pula pada Form sintak berikut:
Private Declare Function ReleaseCapture Lib "user32.dll" () As Long 'untuk menggerakkan form’
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const HTCAPTION As Integer = 2
Private Const WM_NCLBUTTONDOWN As Integer = &HA1
Option Explicit
Dim Color As Long, flag As Byte
Private Sub Form_Activate()
On Error GoTo Err
Color = vbBlue
flag = flag Or LWA_COLORKEY
SetTransparan Form_login1.hwnd, Color, 0, flag
Exit Sub
Err:
MsgBox Err.Description & " Source : " & Err.Source
End Sub
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
ReleaseCapture
If Button = 1 Then
SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0
End If
End Sub


- Setelah itu jalankan programnya

sumber: belajardasarvisualbasic.blogspot.co.id/

Bagaimana membuat Koneksi VB6 Ke Database SQL Server

Bagaimana membuat Koneksi VB6 Ke Database SQL Server 

Sebuah aplikasi atau projek program pasti akan sangat membutuhkan pembuatan koneksi ke data bsase agar user atau admin dapat memasukkan data meng-edit dan melakukan transaksi pada sebuah alur yang mendasari aplikasi itu di buat. Dalam blog ini kita akan membuat suatu aplikasi pendataan siswa pada suatu sekolahan dari dasar dan dari beberapa artikel dari blog ini dari step satu ke step yang lain.

Dalam tahap pertama ini kita akan belajar dasar pembuatan koneksi terlebih dahulu, dari judul di atas “Bagaimana membuat Koneksi Database SQL Server “ kita akan belajar membuat koneksi dengan menggunkan vb 6 ke SQL Server, sebelum ke langkah yang lebih jauh.

Sebelunya silahkan instal terlebihdahulu

#VB6 dan SQL Server 2008 R2

Buatlah Data base (sesuai keinginan) dengan nama : Siswa

Buatlah tabel dengan nama : Dsiswa

Field seperti dibawah ini

ID             : ncharacter 5
nama         : Varchar 50
alamat       : Varchar 50
tgl_lahir    : Datetime

Setelah data basenya semua sudah jadi kita langsung saja ke step selanjutnya yaitu membuat skript di modul vb6

Buka aplikasi vb 6

Ketik di Modul:

***************************

Sub Connections()

    Set con = New ADODB.Connection

    If con.State = 1 Then

        con.Close

        Set con = Nothing

    End If

    On Error GoTo errorapl

    con.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;password='" & mPWD & "';Persist Security Info=False;User ID='" & mUID & "';Initial Catalog='" & Siswa & "';Data Source='" & localhost & "'"

    con.CursorLocation = adUseClient

    con.CommandTimeout = 0

Exit Sub

errorapl:

    MsgBox Err.Description, vbCritical, "Informasi Koneksi Gagal"

''    Exit Sub

End Sub

************************* 

yang merah ganti dengan database anda

Coba jalankan Projek anda...

Semoga bermanfaat, terimakasih