Cara Koneksi Visual basic 6.0 ke SQL Server 2000

1.
Buatlah ODBC connection
Caranya sbb : 1

Buka Windows Administrative Tools pada komputer anda
2

Pilih Data Source (ODBC), maka akan muncul menu dibawah
:

Menu OBDC Data Source Administrator


3

Kemudian pilih
System DSN
4

Pilih
Add
dari menu disamping
5

Kemudian pilih
SQL Server
driver dan pilih
Finish
,
lihat gambar dibawah


Menu pilihan jenis koneksi/driver

6

Kemudian isilah kolom
Nama
dengan mana koneksi data sumber contoh
PBFDATA
atau
DATAMHS
tergantung anda tapi sebaiknya mendekati nama database untuk memudahkan anda, dan kolom
Server
anda isi dimana Database itu disimpan contohnya:
( local)
dan kemudian pilih
Next


7

Kemudian setelah anda memilih
Next

pada langkah no 6. akan muncul layar berikitnya dan disini anda pilih jenis authenticity access apakah menggunakan user Windowa atau menggunakan user SQL Server sendiri, disini dicontohkan dengan menggunakan
SQL Server Authentication



Kemudian masukan user dan password SQL Server yang anda buat diawal ketika install SQL Server, biasanya secara default menggunakan Login ID :
sa
, dan passwordnya
administrator
kemudian pilih Next

8

Kemudian langkah selanjutnya anda ubah default database sesuai dengan database yang anda telah buat contoh dalam gambar
PBFDATA
, kemudian pilih
Next
karena yang lain nya standar dan tidak perlu di ubah.


Kemudian pada layar berikutnya anda pilih
Finish
, maka proses pembuatan ODBC selesai


Jika anda telah selesai maka akan muncul layar seperti dibawah, untuk mencoba berhasil atau tidaknya ODBC yang anda buat maka pilih
Test Data Source


Kalau ada berhasil maka akan keluar hasil dari pengetesan tadi seperti dibawah ini, kemudian untuk mengakhiri nya anda pilih
OK



Maka akan terlihat ODBC yang anda buat tadi dengan nama
PBFDATA


2.
Langkah berikutnya membuat script atau command di Visual Basic 6.0 sbb :
1. Script ini simpan pada project yg anda buat, pada contoh ini script diletakan pada program menu utama
Private Sub Form_Load()
On Error GoTo Ern db.Provider = "sqloledb;server=(local);User ID=sa;password=administrator;Initial Catalog=pbfdata " db.Open MsgBox "Koneksi sukses...." ( ini pesan jika koneksi sukses ) Exit Sub Ern: MsgBox "Koneksi Gagal..." ( ini pesan jika koneksi gagal )
End Sub
( Script konekesi ke SQL ) dan pesan tidak perlu dibuat ketika anda membuat program yang sebenarnya.


2.

Buatlah sebuah Module untuk menyimpan script jenis koneksi yang digunakan, misalkan anda menggunakan jenis koneksi ADODB.Connection. seperti dibawah ini



Selamat mencoba semoga bermanfaat
By : Wawan Dahlan

Free Template Blogger collection template Hot Deals SEO