Membuat Modul Koneksi Untuk Membuka akses pada Database

Membuat Modul Koneksi Untuk Membuka akses perintah SQL adalah langkah awal untuk membuat akses perintah SQL. Modul ini menghubungkan program dengan database, seperti contoh perhatikan gambar di bawah ini.

Perhatikan perintah ini "      koneksi.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\VB FAHMI\databse\data.mdb;Persist Security Info=False"
  " tulisan yang berwarna merah adalah address dari database. Code source diatas bisa anda gunakan, tapi untuk tulisan yang berwarna merah tolong sesuaikan.

Public koneksi As New ADODB.Connection berarti membuat "koneksi" yang bisa dipakai untuk semua(public) form yang ada di project itu.

If koneksi.State > 0 Then
    koneksi.Close

End If

perintah diatas digunakan untuk mengatasi error perintah karena jika database sudah di buka maka harus di tutup dahulu. Bayangkan jika sebelumnya database sudah di buka, dan saat anda melakukan run maka database akan dibuka lagi, ini akan menyebabkan error karena database di OPEN lagi.

Set koneksi = Nothing

inipun perintah yang sama seperti yang berguna untuk menutup database. Perintah ini hanya untuk melengkapi perintah diatas(wajib).

More about → Membuat Modul Koneksi Untuk Membuka akses pada Database

Belajar SQL Database|Cara Memasukaan Data dengan SQL

Belajar SQL Database|Cara Memasukaan Data dengan SQL tak lah sulit, pemula pun bisa menggunakan cara operasi database ini. Ada banyak pengoperasian database menggunak statement SQL, tapi untuk kali ini kita bahas dulu SQL insert (perintah Sql untuk memasukan data).

Tidak Perlu panjang lebar simak kode dibawah ini>>>

SQLsimpan = "insert Into Tabel (nama,noabsen,kelas) " Values ("adi,12,4")"
koneksi.Execute SQLsimpan

Contoh Lain

SQLsimpan = "insert Into hardware (kdhard,nmhard,satuan,hargabeli,hargajual,stok,kdspl,jenis,foto) " & _
"Values ('" & Me.label(0).Text & "','" & Me.label(1).Text & "','" & Me.label(2).Text & "'," &Val(Me.label(3).Text) & "," & Val(Me.label(4).Text) & "," & Val(Me.label(5).Text) & ",'" &Me.CmbSuplier.Text & "','" & Me.label(7).Text & "','" & judul & "')"
koneksi.Execute SQLsimpan

Bila bingung Coba amati project ini,download disini
sebelum membuka run dulu ini,cukuo dengan kopas;

c:\windows\system32\regsvr32.exe c:\windows\system32\msdxm.ocx

More about → Belajar SQL Database|Cara Memasukaan Data dengan SQL