Tampilkan postingan dengan label Visual Basic 6. Tampilkan semua postingan
Tampilkan postingan dengan label Visual Basic 6. Tampilkan semua postingan

Kamis, 06 Juni 2013


Membuat form login connect ms.acces
1.       Buka visual basic 6
2.       Pilih standart exe
3.       Klik Add > form  di menu project properties


4.       Lalu muncul  tampilan menu add form > new > pilih Log in Dialog


Maka akan muncul tampilan form login sederhana


5.       Lalu masukan coding dibawah ini

�membuat variable yang berfungsi mengkoneksikan ADODB
Public connect As New ADODB.Connection    
�membuat variable recordset
Public RSL As New ADODB.Recordset
�membuat sub variable yang berfungsi mencari database (.mdb) dan mengkoneksikannya
Sub koneksilogin()
Set connect = New ADODB.Connection
Set RSL = New ADODB.Recordset
connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\database\Login.mdb"
End Sub


�variable untuk mengkosongkan textbox
Sub bersih()
Text1 = ""
Text2 = ""
End Sub



Private Sub Command2_Click()
�menampilkan pesan pertanyaan jika keluar
pesan = MsgBox("Batal Login...?", vbYesNo)
If pesan = vbYes Then End
End Sub


Private Sub Commandok_Click(Index As Integer)
Call koneksilogin
If Text1 = "" Or Text2 = "" Then
    MsgBox "Data Login Belum Lengkap"
    Exit Sub
Else
    RSL.Open "Select * from login where username ='" & Text1 & "' and password='" & Text2 & "'", connect
    If RSL.EOF Then
        MsgBox "Login Salah!"
        Call bersih
        Text1.SetFocus
    Else
        MsgBox "Login Berhasil!"
        Call bersih
        Loading.Show
        MDIForm1.Show
           
    End If
End If
Unload Me
End Sub

6.       Setelah coding berhasil lakukan desain form login semenarik mungkin


NB: �Setelah pembuatan Form Selesai maka Buatlah database Login.mdb di folder yang bernama database dan save project ini di dekat folder database

Minggu, 12 Mei 2013


di pagi ini saya memposting tentang bagaimana cara mengkoneksikan database dengan module, kelebihan dari menggunakan cara ini adalah disaat file database access yg kalian simpan dipindahkan ke directory lain (flashDisk) insya'allah tidak menemukan error not database find, hmmmm jadi inget UTS Visual Basic diKampus, pada malam pengumpulan tugas saya santai aja alnya saya sudah mengerjakan tugas itu tapi setelah saya kumpulkan, ternyata program yg saya buat itu tidak konek dengan database , padahal di notebook saya itu program'a running dan success.....ahhhh galau dah.......tapi sekarang saya sudah tahu solusinya....hhehehe
" hmmmmmm ngefans ironman tapi UTS VB jeblok "
ya udah langsung ja baca bagaimana cara koneksi ADODC dan DATAGRID dengan MODULE pada VB.6 ini deh.....

cara koneksi dengan MODULE (ADODC & DATAGRID)
1. buatlah 1 folder utama yg berisi 3 folder yg bernama : DataBase, Form, Module

2. BUKA VISUAL BASIC 6, MUNCUL JENDELA NEW PROJECT LALU PILIH STANDART EXE (OPEN)


3. KLIK ADD-INS > VISUAL DATA MANAGER > LALU AKAN MUNCUL JENDELA VisData , klik file > new > Microsoft Access > Version 7.0 MDB...


4. Lalu simpan file ms.access'a di folder database yg sebelum'a anda buat, setelah disimpan lalu muncul jendela database windows , klik kanan pada properties pilih new table lalu muncul jendela table structure isi table name'a dan isi field list'a dengan mengklik add fields lalu build table lalu close dari jendela visidata


5. klik menu Project > Components ( Ctrl + T ) muncul jendela Components > controls > pilih dan centang Microsoft ADO Data Control 6.0 (OLEDB) dan Microsoft DataGrid Control 6.0 (OLEDB) > apply


6. BUATLAH FORM seperti ini dengan component ADODC dan DATAGRID


7. buatlah module dengan mengklik Menu Project > Add Module lalu muncul jendela add module pilih new lalu open

8. isikan Coding ini di module :

Public Conn As New ADODB.Connection
Public rs As New ADODB.Recordset

Public Const dbasefile = "campret.mdb"  'campret.mdb adalah nama file access yg akan di koneksikan dengan ADODC
Public Sub koneksi()
If Conn.State = adStateOpen Then Conn.Close
Conn.Mode = adModeReadWrite
Conn.Open "provider=microsoft.jet.oledb.4.0; " & "Data source=" & App.Path & "\DataBase\" & dbasefile
Exit Sub
' "\DataBase\" adalah nama folder dimana yg menyimpan file access tersebut
' " & "Data source=" & App.Path &  adalah coding agar file access tidak error jika di pindah kan ke directory lain (dalam catatan masih berada di folder DataBase)

konekErr:
    MsgBox "Gagal menghubungkan ke Database ! Kesalahan pada : " & Err.Description, vbCritical, "Peringatan"
End Sub



Public Sub openRecordset(sql As String)
If rs.State = adStateOpen Then rs.Close
rs.Open sql, Conn, adOpenDynamic, adLockOptimistic, adCmdText
End Sub

9. lalu klik form1 dan isi kan Coding untuk mengkoneksikan ADODC & DATAGRID Dengan File access Tersebut:
Private Sub Form_Load()
koneksi
Adodc1.ConnectionString = Conn.ConnectionString
Adodc1.RecordSource = "select * from laporan"
' form laporan adalah nama table yg berada di file access tersebut
'Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1

Me.Adodc1.Refresh
Me.DataGrid1.Refresh

End Sub


10. klik Run > Start ( F5)

terimakasih semoga postingan Koneksi ADODC dan DATAGRID dengan MODULE pada VB.6 ini bermanfaat

catatan : jika error pastikan file project , form1 dan Module1 sudah tersimpan pada folder masing yg di buat tadi


Sabtu, 04 Mei 2013

semalam ada UTS VB yg soalnya membuat aplikasi sederhana tentang PPIC, semalem c dah diKumpulin tapi ternyata tuh aplikasi hanya bisa running diNotebook gw aja masbroe..........!
waduhhh........ galau dah........
mungkin anak yg lain juga ada yg sama kasus'a kaya gw tpi mungkin mereka ada yg ga tw dan juga ada yg pasrah bagaimana dengan dosennya aja pengertian atau ga, kalo pengertian pasti coding'a di perbaiki...tpi mustahil bgt..... pak dosen pasti cape.....alnya kan banyak banget mahasiswa'a....ya udah semaleman gw kerjain tuh....gw perbaiki lagi......untung da temen yg kasih info agar koneksi dengan database'a di bikin se-fleksible mungkin hehehehe
nih tugasnya......mungkin suatu saat gw bikin tutorialnya.....

Download

Jumat, 22 Maret 2013


sore all..... maf nih baru posting lagi...maklum kemaren2 lagi sibuk bgt....heheheh (sok sibuk) :P
nih sya share bagaimana caranya " membuat form input dengan vb dengan database ms.access " heheheh maf mungkin postingan ini banyak di blog tetangga tpi ini asli hasil pembelajaran saya di kampus bukan CoPas heheheh Karena saya ga mau nantinya di bilang sarjana CoPaS hehhe ya udah langsung aja deh................

1. buat folder RumahSakit > Form,DataBase,Module
2. Buka Ms.Access ,
buat file access "RumahSakit.accdb"
buat table " Pasien ",
buat field : kodePasien (autonumber), NamaPasien Text(30), alamat (100),tempatLahir Text(20),TanggalLahir(date),JenisKelamin text(11), NomorTelepon text(15)
Simpan file acces "RumahSakit.accdb" ke dalam folder D:/Rumah Sakit
3. Buka Control Panel> Administrative tools>
Data Sources (ODBC) >=  System DSN > Add > microsoft access driver (*.Mdb *.accdb) > Data Sources Name : " DS_RumahSakit ", DataBase : Select > Cari Folder dimana anda menyimpan file access dan klik nama filenya hingga muncul di database name,
Klik OK > Jika menemukan Pesan error tutup terlebih dahulu program access nya....Trus OK deh
4. klik menu project > references > microsoft activex data object 2.6 library > centang > ok

5. Membuat Module Pada VB:
> From klik kanan > add > module lalu masukan Coding di bawah ini;
        Public CN As New ADODB.Connection
Sub main()
Set CN = New ADODB.Connection
CN.Open "DS_RumahSakit"
If CN.State Then
Form_pasien.Show
Else
MsgBox " sorry bray...ga konek nih "
End If
End Sub

6. Lalu klik Project > Properties > general : startup object > submain

7. lalu buat Desain Formnya
8. lalu buat coding formn ya seperti di bawah ini:

Private RS As New ADODB.Recordset
Private Sub CmdSave_Click()
Set RS = New ADODB.Recordset
RS.Open " select * from Pasien ", CN, adOpenStatic, adLockOptimistic
RS.AddNew
RS("NamaPasien") = "text1.text"
RS("Alamat") = Text2.Text
RS.Update
End Sub