Koneksi Database Menggunakan SQL Server
Kode program berikut untuk menghubungkan antara database SQL Server dengan program visualmu (VB) secara standalone. Letakkan program ini dibagian modul utama, lalu simpan sesuai dengan keinginanmu sendiri, misal: MdlUtama.bas.
Sesuaikan dengan nama server dan nama database yang kamu butuhkan pada bagian kode yang aku tebalin yach,, pasti programmu akan langsung bisa jalan.
Option Explicit
Public KonekDb As ADODB.Connection
Public StrKoneksi As String
Sub Bukadatabase()
Set KonekDb = New ADODB.Connection
KonekDb.CursorLocation = adUseClient
StrKoneksi = "Driver={SQL Server}; " _
& " SERVER=BISMILLAH; DATABASE=PuskesmasDb"
If KonekDb.State = adStateOpen Then
KonekDb.Close
Set KonekDb = New ADODB.Connection
KonekDb.Open StrKoneksi
Else
KonekDb.Open StrKoneksi
End If
End Sub
Posted on 8:06 AM by Indah Indriyanna and filed under
Tips Programming
| 1 Comments »
Sesuaikan dengan nama server dan nama database yang kamu butuhkan pada bagian kode yang aku tebalin yach,, pasti programmu akan langsung bisa jalan.
Option Explicit
Public KonekDb As ADODB.Connection
Public StrKoneksi As String
Sub Bukadatabase()
Set KonekDb = New ADODB.Connection
KonekDb.CursorLocation = adUseClient
StrKoneksi = "Driver={SQL Server}; " _
& " SERVER=BISMILLAH; DATABASE=PuskesmasDb"
If KonekDb.State = adStateOpen Then
KonekDb.Close
Set KonekDb = New ADODB.Connection
KonekDb.Open StrKoneksi
Else
KonekDb.Open StrKoneksi
End If
End Sub
1 komentar:
wah..
ini neh.. yang saya cari2..
bermanfaat sekali ne..
keren deh..
salam,
joeedmund.blogspot.com
Post a Comment
Kalo mau komentar harus sopan yach..!