» » » Membuat Koneksi Database Aplikasi Perpus VB 6.0
,

Membuat Koneksi Database Aplikasi Perpus VB 6.0

Berikut ini adalah STEP 4 dalam membuat Aplikasi Perpustakaan Visual Basic 6.0 database SQL Server. Bagi anda yang baru gabung dalam step by step membuat aplikasi Perpus VB 6.0, silahkan ikuti Step sebelumnya ya, karena jika tidak dipastikan anda akan tersesat :)

STEP Sebelumnya :
STEP 01 : Membuat Project Aplikasi Perpus
STEP 02 : Membuat Form Menu Utama
STEP 03 : Membuat Database dan Tabel Perpus

Berikut langkahnya,
Buka Project anda sebelumnya
Membuat Koneksi Database Aplikasi Perpus VB 6.0
Jika anda lihat gambar diatas, anda telah sukses membuat Form Menu Utama pada Step 2.
Silahkan Klik Project
Add Module
Membuat Koneksi Database Aplikasi Perpus VB 6.0
Klik Open
Kemudian masukan koding diawah ini : 
Public Koneksi As New ADODB.Connection
Public RSPETUGAS As ADODB.Recordset
Public RSANGGOTA As ADODB.Recordset
Public RSBUKU As ADODB.Recordset

Public Sub BukaDB()
Set Koneksi = New ADODB.Connection
Set RSPETUGAS = New ADODB.Recordset
Set RSANGGOTA = New ADODB.Recordset
Set RSB = New ADODB.Recordset
Koneksi.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=DBPERPUS;Data Source=JAVANET001"
End Sub

Keterangan :
Untuk nama yang kami beri warna kuning, silahkan ganti dengan computer name anda

Jika sudah anda bisa Save Module dan Project anda

Silahkan KLIK DISINI Untuk melihat Video Tutorial diatas
Silahkan KLIK DISINI Untuk Download Source Code Project diatas

7 comments:

  1. UnknownSeptember 27, 2016 at 11:48 AM

    Public Koneksi As New ADODB.Connection
    Public RSPETUGAS As ADODB.Recordset
    Public RSANGGOTA As ADODB.Recordset
    Public RSBUKU As ADODB.Recordset

    Public Sub BukaDB()
    Set Koneksi = New ADODB.Connection
    Set RSPETUGAS = New ADODB.Recordset
    Set RSANGGOTA = New ADODB.Recordset
    Set RSB = New ADODB.Recordset
    Koneksi.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=DBPERPUS;Data Source=JAVANET001"
    End Sub


    MODUL KONEKSI DIATAS TIDAK BEKERJA, MANA SOLUSINYA..???

    ReplyDelete
    Replies
    1. Javanet MediaSeptember 27, 2016 at 7:47 PM

      Dear BUMIYE,
      Terima kasih telah berkomentar, untuk module koneksi diatas memang tidak bekerja secara langsung karena hanya module koneksi saja.
      Akan bekerja jika sudah digunakan Query yaitu saat form laogin dan seterusnya.
      Silahkan ikuti pemebelajaran selanjutnya atau lihat di Video Youtube kami

      Salam
      JNM

      Delete
  2. UnknownApril 27, 2017 at 12:40 AM

    Public Koneksi As New ADODB.Connection
    Public RSPETUGAS As ADODB.Recordset
    Public RSANGGOTA As ADODB.Recordset
    Public RSBUKU As ADODB.Recordset

    Public Sub BukaDB()
    Set Koneksi = New ADODB.Connection
    Set RSPETUGAS = New ADODB.Recordset
    Set RSANGGOTA = New ADODB.Recordset
    Set RSB = New ADODB.Recordset
    Koneksi.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=DBPERPUS;Data Source=JAVANET001"
    End Sub

    KALAU MUNCUL DEBUG GMN SOLUSINYA?

    ReplyDelete
  3. UnknownApril 27, 2017 at 12:41 AM

    Koneksi.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=DBPERPUS;Data Source=JAVANET001"

    DIATAS TERDAPAT DEBUG SOLUSINYA GMN YA GAN?

    ReplyDelete
    Replies
    1. Javanet MediaApril 27, 2017 at 2:50 PM

      Dear Pak Hendri,
      JAVANET001 adalah nama komputer saya.
      Apakah sudah disesuaikan dengan nama komputer yang ada di tempat pak Hendri?
      Salam JNM

      Delete
  4. UnknownJune 17, 2017 at 10:24 PM

    cara mengatasi SQL server does not exist or access denied di vb 6??

    ReplyDelete
    Replies
    1. Javanet MediaJune 18, 2017 at 3:35 AM

      Dear Unknown,
      Itu ga dapat akses.. bisa ditambahin akses terlebih dahulu pada database, atau pastikan user yang install adalah user yang menjalankan Project VB tersebut.
      Semoga bisa menjawab...

      Delete

Subscribe to: Post Comments (Atom)