Sabtu, 31 Maret 2012

Koneksi VB6.0 dengan MS.SQL Server 2000 pada Windows7

Pada awalnya saya bingung untuk membuat sebuah program dengan menggunakan VB6.0 pada windows7.

Namun setelah beberapa kali mencoba akhirnya saya mendapatkan solusi. Biasanya program tidak berjalan dengan menggunakan ActiveX component, hal ini terjadi karena program VB6.0 berjalan pada mode normal dan bukan berjalan sebagai administrator.

Untuk lebih mempermudahnya, akhirnya saya klik kanan program VB6.0 lalu saya pilih properties -> Compability -> Privilage Level -> Run this program as an administrator. Setelah saya ubah, akhirnya program berjalan dan bisa menggunakan komponen ActiveX.

Untuk koneksi Ms.SQL Server 2000 pada windows7, pada saat pertama kali installasi koneksi pada Service Manager tidak nampak.

Akhirnya saya coba membuat koneksi pada Enteprise Manager. Langkahnya adalah sebagai berikut:

1. Buka program Enterprise Manager pada MS. SQL Server 2000

2. Pilih menu Register Server

3. Pilih Menu Run as Wizard

ikuti dan masukkan inputan sesuai dengan kebutuhan Anda

4. Setelah selesai, Pilih Console Root pada menu sebelah kiri -> Microsoft SQL Server -> SQL Server Groups

5. Pilih Local(WindowsNT), pastikan sampai tersambung.

setelah itu, Tutup Service Manager lalu jalankan kembali Server Manager

6. Service Manager sudah tersambung

----

Untuk membuat database, masih sama seperti biasa ketika membuatnya pada WindowsXP.

Namun untuk membuat table nya, pilih terlebih dahulu Database->[Nama_database]->Tables

Lalu buat tabel pada bagian kanan dengan klik kanan -> New Table

----

Untuk melakukan koneksi dengan VB6.0 kita dapat menggunakan koneksi ADODB

Pilih menu Project pada VB6.0->References-> Pilih Library [Microsoft Active Data Object Library 2.6]

-----

Buat module pada VB6.0, ketik code dibawah ini:

Option Explicit

Public Koneksi as New ADOBD.Connection

Public Sub BukaDatabase(ByVal DBSource as string, ServerID as string)

koneksi.CursorLocation = adUseClient

koneksi.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=" & DBSource & ";Data Source=" & ServerID

End Sub
Public Sub TutupKoneksi()
If koneksi.State = 1 Then
koneksi.Close
Set koneksi = Nothing
End If
End Sub
-----
Pemanggilan Koneksi Database
BukaDatabase "dbSample", "127.0.0.1"
-----
Untuk membuat pemanggilan recordset, dapat menggunakan code seperti dibawah ini:
Public RsSample as New ADODB.Recordset
-----
Pemanggilan Recordset:
RsSample.Open "SELECT * FROM tbSample", koneksi, adOpenDynamic, adLockBatchOptimistic
-----
Terima Kasih

sumber : http://mugi.or.id/blogs/kohimaru/archive/2012/01/18/koneksi-vb6-0-dengan-ms-sql-server-2000-pada-windows7.aspx

Tidak ada komentar:

Posting Komentar