Koneksi Visual basic 6 (VB6) dengan Access 2007
Cara koneksi VB6 dengan ms access 2007 sama dengan ms access versi sebelumnya , perpedaanya pada connectionstringnya saja:
ini contoh menyimpan data melalui VB6 ke access 2007 :
Private Sub Command1_Click()
Dim Koneksi2007 As New ADODB.Connection
Dim RecordSetTabel As New ADODB.Recordset
'konection string untuk ms acces 2007
Koneksi2007.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data
Source=D:\dataaccess2007.accdb;Persist Security Info=False;"
RecordSetTabel.Open "TabelBarcode",Koneksi2007, adOpenStatic, adLockOptimistic
If RecordSetTabel.Supports(adAddNew) Then
With RecordSetTabel
.AddNew
.Fields("Barcode") = Me.txtBarcode.Text
.Fields("Date") = Me.txtDate.Text
.Fields("Time") = Me.txtTime.Text
.Fields("Mesin_No") = Me.txtStcNum.Text
.Fields("Status") = Me.txtStatus.Text ' OK or NG
.Update
End With
Label1.Caption = " data has been added to database successfully"
End If
RecordSetTabel.Close
Set RecordSetTabel = Nothing
Koneksi2007 .Close
Set Koneksi2007 = Nothing
End Sub
Posted on 19 July 2011, in Dasar Basisdata (Database), Tips & Trik. Bookmark the permalink. 2 Comments.
agan ane ms bingung dah,,, ini buat dimana ya???
cz setau gw yg brusan gw bc2 ini dipake buat di modul, ko itu pake privat sub command1_click
modul itu gunanya supaya program lebih rapi/terstruktur dan mudah digunakan kembali oleh kita atau orang lain. jadi silahkan saja di buat dimodul itu lebih baik. yang saya berikan cuman contoh sederhana saja.