Gimana sih rumus koneksi vb ke accsess? 2

-
Sebelumnya jika salah mohon dikoreksi. Mengkoneksikan VB ke Database dapat menggunakan beberapa teknik (yg saya tau). Teknik-nya yakni :

1. Diatur oleh sistem operasi, melalui DSN (Data Source Name) / ODBC pada Control Panel.
2. Diatur oleh VB dengan metode :

* DAO (Data Access Object)
* RDO (Remote Data Object)
* ADO (ActiveX Data Object)

Nah kemudian, ada pula yang seneng menggunakan Kontrol seperti (DATA, RDODC atau ADODC) untuk mengkoneksikannya tinggal klik-kluk-klik connect deh. Namun bagi yang seneng nulis script, maka lebih baik menuliskan aja yach. Saya sendiri lebih cenderung menggunakan script dengan metode ADO. Jangan lupa melakukan hal2 berikut sebelum codding :

* Berdoa :-)
* Aktifkan referensi ADO (Menu Project > References > Microsoft ActiveX Data Object 2.1) misalnya
* Aktifkan komponen penunjang seperti Data Grid, FlexGrid, SSTab, DTPicker, ListView, dll melalui (Project > Component) or [CTRL]+T
* Nah terakhir codding deh…

Misal :
Global CN As New ADODB.Connection
Global RS As New ADODB.Recordset

‘Koneksi ke database Access 2000
Public Sub KoneksiDB()

Set CN = New ADODB.Connection
CN.CursorLocation = AdUseClient
CN.Open “Provider=Microsoft.Jet.Oledb.4.0; Data Source=”& App.Path &”\Latihan.Mdb”

End Sub

‘Koneksi ke database MySQL
Public Sub KoneksiDB()

Set CN = New ADODB.Connection
Set RS = New ADODB.Recordset
CN.CursorLocation = adUseClient
CN.ConnectionString = “DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; UID=root; PWD=; DATABASE=Latihan; OPTION=” & 1 + 2 + 8 + 32 + 2048 + 163841″
CN.Open

End Sub

‘Koneksi ke tabel buku
Public Sub KoneksiTabel()

Set RS = New ADODB.Recordset
RS.CursorLocation = AdUseClient
RS.Open “select * fro buku order by kode”, CN, AdOpenDynamic, AdLockOptimistic

End Sub

Database yang saya pernah koneksikan ke VB seperti : Access, Oracle, PostgreSQL, MySQL. Semuanya terkoneksi dengan baik.

Komentar

Posting Komentar

silahkan mencoba

Postingan populer dari blog ini

Cara Download Video

-
Gambar
Saya Contohkan donwload pada Youtube 1. Buka Website www.Youtube.com - Pilih video yang mau di download - kopy Urlnya macam contoh di bawah 2. Buka web site www.keepvid.com - Pastekan urlnya seperti pada gambar dibawah ini - Lalu klik download yang ada disamping kanan url (Yang tadi anda pastekan) 3. Isi code security lalu pilih submit 4. Dibawah ada dua pilihan - Format FLV dan MP4 - misalkan pilih yang FLV klik download pada text berwarna hijau 5. Simpan Video anda dengan Memilih tombol OK maka proses download akan berjalan.... 6. Cara Bukanya Harus menggunakan Program yang bisa membuka format FLV Seperti - FLV Player - Media Player Classic ( K-Lite Codec Pack ) Selamat Mencoba..... kalu ada yang belum jelas, posting aja di command
Baca selengkapnya

Membuat Hidup Terasa Indah

-
Rasa syukur membuat hidup kita menjadi indah, Rasa syukur membuat yang sedikit terasa cukup dan berkah, Rasa syukur mengubah apa yang kita miliki saat ini menjadi lebih berharga, Rasa syukur mengubah masalah yang kita miliki menjadi hikmah yang bernilai, Rasa syukur mengubah hidangan sederhana terasa menjadi istimewa, Rasa syukur mengubah rumah yang sempit terasa lapang dan nyaman, Rasa syukur mengubah kegagalan menjadi pelajaran berharga, Rasa syukur mengubah kekeruhan suasana menjadi kejernihan, Rasa syukur mengubah yang tidak nyaman menjadi menyenangkan, Rasa syukur mengubah penolakan menjadi penerimaan, Rasa syukur mengubah kebenciaan di hati menjadi kasih sayang, Rasa syukur menciptakan kedamaian dan ketenangan hati, Rasa syukur mengubah emosi menjadi latihan kesabaran, Rasa syukur menjadikan masa lalu sebagai kenangan manis, Rasa syukur menjadikan masa sekarang keindahan dan kesenangan, Rasa syukur menjadikan hari esok penuh harapan, Rasa syukur menciptakan visi ke depan yang pen
Baca selengkapnya

Gimana sih rumus koneksi vb ke accsess? 3

-
sediakan 1 form dan 1 combo didalamnya kemudian buat table dengan nama province dengan field Province_Name tempatkan database satu folder yang sama dengan program vb yang anda buat ini sample codenya Dim db As ADODB.Connection Dim Rs As ADODB.Recordset Dim msg as string Private Sub Form_Load() Dim Lok As String Lok = App.Path + "\dataku.mdb" Msg1 = "Provider=Microsoft.Jet.OLEDB.4.0;" & Chr(10) Msg1 = Msg1 & "Data Source='" & Lok & "';" & Chr(10) Msg1 = Msg1 & "Persist Security Info=False" & Chr(10) Set db = New ADODB.Connection db.Open Msg1 Msg = "SELECT Province_Name" Msg = Msg & " From PROVINCE" Set Rs = New ADODB.Recordset Rs2.Open Msg, db, adOpenStatic Combo1.Clear Combo1.Text = "[...]" Combo1.AddItem "[...]" While Rs.EOF <> True With Combo5 .AddItem Rs(0) End With Rs.MoveNext Wend Rs.Close Set Rs = Nothing end sub
Baca selengkapnya