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
About these ads

About pccontrol

Berisi Tutorial Menggunakan PC untuk mengontrol Peralatan dengan cara mudah & praktis.

Posted on 19 July 2011, in Dasar Basisdata (Database), Tips & Trik. Bookmark the permalink. 2 Comments.

  1. 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.

Komentar ,Saran atau Pertanyaan

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Follow

Get every new post delivered to your Inbox.

Join 56 other followers

%d bloggers like this: