saya akan menjelaskan cara membuat koneksi Database SQLSERVER 2000 ke
Visual Basic 6, ada beberapa cara untuk membuat koneksi ke database,
seperti menggunakan Provider, Driver, dan DNS.
langkahnya :
Buka Visual Basic 6 dan pilih Standard EXE.
klik Project add module.
sebelumnya anda harus menambahkan refenrences, klik project References cari dan pilih Microsoft ActiveX Data Library 2.8. tulis kode ini di module, pertama buat variable.
'variable untuk koneksi ke server/database
Public cn As New ADODB.Connection
'varibale untuk menampung table
Public rs As New ADODB.Recordset
kedua buat procedure untuk koneksi ke database
Procedure menggunakan provider terdapat 2 jenis yaitu dg SQL authentication dan Windows authentication
Procedure Provider dengan SQL authentication
Sub KoneksiDB()
Dim Koneksi As String
'jika SQL menggunakan SQl Authentication
Koneksi = "Provider=SQLOLEDB.1;Password=aaa;" _
& "persist security info=true;User ID=sa;" _
& "initial catalog=northwind;data source=Achul-Pc;"
cn.Open Koneksi '-->Buka Koneksi
Procedure Provider dengan Windows authentication
Sub KoneksiDB2()
Dim Koneksi As String
'Jika SQL Windows authentication
Koneksi = "Provider=SQLOLEDB.1;" _
& "integrated security=SSPI;" _
& "Persist Security Info=False;" _
& "Initial Catalog=northwind;" _
& "Data Source=Achul-Pc"
cn.Open Koneksi
End Sub
Penjelasan : KoneksiDB adalah nama Procedure koneksi database, koneksi
adalah variable digunakan untuk menampung string provider, "Password=password anda" pada SQL authentication "User ID=username anda" pada SQL authentication "initial catalog=nama database" yang akan digunakan "data source=nama server" pada Sql server, bisa dilihat di Service manager.
Procedure Driver
Sub KoneksiDB3()
Dim Koneksi As String
Koneksi = "DRIVER={SQL SERVER};" _
& "Server=Achul-Pc;uid=sa;pwd=aaa;" _
& "Database=inventory"
cn.Open Koneksi
End Sub
Penjelasan : KoneksiDB adalah nama Procedure koneksi database, koneksi
adalah variable digunakan untuk menampung string driver, "Server=nama server" pada Sql server, "uid=username anda" pada SQL authentication, "pwd=password anda" pada SQL authentication.
Procedure dengan DSN
untuk menggunakan Procedure dengan DSN anda harus membuat dulu ODBC pada
control panel langkahnya -> buka control panel dan klik ODBC.
klik Add pilih SQL SERVER, Name diisi bebas digunakan sebagai nama DSN
dan Server diisi dengan nama server klik next anda bebas pilih SQL
authentication dan Windows authentication perbedaan SQL authentication
membutuhkan username dan password sedangkan Windows authentication
tidak. klik next centang Change the database default to : dan pilih
Database yang akan digunakan klik next finish, klik Test data source,
jika berhasil akan tampil seperti ini :
klik ok dan tutup ODBC. selanjutnya bisa langsung membuat procedurenya :
Sub KoneksiDB4()
Dim Koneksi As String
Koneksi = "DSN=inventory"
cn.Open Koneksi
End Sub
Penjelasan : "DSN=NamaDSN"
Itulah beberapa jenis koneksi database SQL Server 2000 ke VB6 anda hanya
membutuhkan satu jenis koneksi saja untuk dapat menghubungkan database
anda ke VB6. Jika ingin tahu cara membuat Database di SQL Server 2000
bisa dilihat di google untuk mencoba apakah Databse kita berhasil terhubung atau tidak anda bisa menulis kode ini pada form Load :
Call KoneksiDB
If cn.State = 1 Then
MsgBox "Koneksi Berhasil"
Else
MsgBox "Koneksi gagal"
End If
Penjelasan : Call KoneksiDB adalah kode untuk memanggil Procedure
Koneksi Database, Cn.state = 1 untuk mengetahui apakah koneksi database
berhasil atau gagal silahkan coba di Execute atau Run. Selesai.
Terima kasih.
I have learn a few just right stuff here. Definitely value bookmarking for revisiting.
ReplyDeleteI surprise how so much effort you put to create one of these excellent
informative web site.
My web-site ... cardsharing 10 euro