TEXT WIDGET

Mengkoneksikan database access vb 6

Database Access Connection

Siapa yang gak mengenal microsoft acces apabila kita seorang programer atau belajar program.
Langkah awal untuk memulai bagaimana meghubungkan database access dengan visualstudio 6.0
Untuk itu mari kita sama-sama belajar bagaimana
mengkoneksikan database ke vb 6.0

Langkah pertama :
Buat satu data access dimana nanti akan kita hubungkan dengan vb 6.0
disini saya tidak perlu menampilkan secara terperinci.

Langkah kedua :
Buat satu project baru pada microsoft visualstudio 6.0
buat satu form dan satu module, dimana form digunakan untuk menampilkan data dari data base sementara module digunakan untuk prosedure panggil apabila mau kita gunakan lebih dari satu form ato dimana aja form module bisa dipanggil.

Langkah ketiga :
Ketikkan kode dibawah ini :

Option Explicit
Public db As New ADODB.Connection
Public rs As New ADODB.Recordset
Public Sql As String
Public Const AbuAbu = &H8000000F
Public Const Putih = &H80000005

Public Function koneks() As Boolean
'On Error GoTo pesan
   ' db.Mode = adModeReadWrite
'    db.CursorLocation = adUseClient
'If db.State = adStateOpen Then
 '   db.Close
'End If
'db.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Koperasi\dn.mdb;Persist Security Info=False")
'koneksi = True
'Exit Function
'pesan:
'koneksi = False
'MsgBox "Koneksi ke database gagal...!!!!", 16, "Error"
'End
End Function


Langkah keempat :
Ketikkan kode pada form : "seabagai contoh prosedure panggil untuk menampilkan data table field disebuah combo. box."  Suapaya nanti pada saat diclick bisa tampil data field tablenya.


Sub code()
Call koneksi
Sql = "select * from groups"
rs.Open Sql, db, adOpenDynamic, adLockBatchOptimistic
With rs
txtpencarian.Clear
If .EOF = False Then
.MoveFirst
Do While Not .EOF
txtpencarian.AddItem .Fields("group1")
.MoveNext
Loop
End If
End With
End Sub


Perhatikan dan simak baik-baik pada tulisan yang saya blok warna merah dan tebal.

Informasi terkait.
Crystalreport 10
Form Login vb 6.0

Untuk info lengkap Click disini



Artikel terkait :

2 komentar:

Anonim mengatakan...

Data Source=D:\Koperasi\dn.mdb

untuk data source saya alihkan ke file .txt cuman dimodule tambah function baca file txt..
yang jadi problem.. aplikasi uda jadi. ko ga bisa dibuat paketan instaler yah mungkin bisa bantu ?? ty

Priyanto Agoes mengatakan...

Mas,

Kalau koneksi dengan .txt akan lebih bagus apabila ditaruh pada folder app path yang sama dengan exe _nya.

Untuk paket instalernya akan lebih mudah dengan inosetup (referensi) lebih praktis dan tidak ribet.

Poskan Komentar

Say: Berkomentarlah dengan baik dan sopan...dan jangan gunakan SPAM untuk blog ini...Terima kasih [by.admin]