Pages

Subscribe:

Monday, 28 May 2012

Cara membuat koneksi database SQLServer 2000 ke VB6

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.

1 comment:

  1. I have learn a few just right stuff here. Definitely value bookmarking for revisiting.
    I surprise how so much effort you put to create one of these excellent
    informative web site.

    My web-site ... cardsharing 10 euro

    ReplyDelete

 
back to top