Klo beberapa waktu lalu saya sudah mempostingkan cara untuk koneksi vb 6.0 dengan database microsoft access, sekarang saya berikan cara koneksi bila menggunakan database ms. sql server. Database yang saya gunakan adalah sql server 2000 jadi klo ada perbedaan cara koneksinya bila menggunakan database sql yang terbaru mohon dikonfirmasikan karena saya belum mencoba database yang baru.
Berikut adalah code-nya yang bisa diletakkan pada modul :
Public con As New ADODB.Connection
Public rst As New ADODB.Recordset 'berfungsi sebagai variabel penyimpan sementara record
Public strcon As String ' variabel untuk code koneksi
Public strsql As String ' variabel untuk menampung code atau query sql
Public Sub Connections()
strcon = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=test"
If con.State = adStateOpen Then
con.Close
Set con = New ADODB.Connection
con.Open strcon
Else
con.Open strcon
End If
End Sub
Sama seperti koneksi pada ms. access, inti dari koneksi ini adalah pada variabel strcon
"strcon = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=test""
Pada bagian akhir code tersebut yaitu "Initial Catalog=test", test merupakan nama database yang telah dibuat pada sql server pada code ini saya memberikan contoh nama databasenya "test". Sehingga perlu disesuaikan dengan nama database yang digunakan.
Sebelum mencoba untuk mengkoneksikan, pastikan terlebih dahulu bahwa Servis Manager sql server sudah berada dalam kondisi Running, bila belum maka harus diaktifkan terlebih dahulu.
Untuk pemanggilan atau penggunaanya bisa dibaca pada posting saya sebelumnya.
Semoga berguna ya.....................
19 February 2008
Subscribe to:
Post Comments (Atom)
12 comments:
Maturnuwun,..
Maturnuwun,..
Maturnuwun,..
Maturnuwun,..
Maturnuwun,..
Maturnuwun,..
Maturnuwun,..
Maturnuwun,..
weee...kok q gagal ya??.setelah code ini
Set con = New ADODB.Connection
con.Open strcon
q tmbh msgbox "sukses"
else jg q ksh msgbox
tapi hasilnya gagal tuch??
gmn ya???bru belajar nich.
klo koneksi dalan jaringan LAN gimana? pake vb databasenya sql server, misal komp server dan komp client. komp client menyimpan data ke server pake sql server gimana caranya?
coba cari literatur tentang winsock.
coba and buat koneksi database dengan file koneksi.ini, karena lebih fleksible tidak usah membongkar sorcecode bila ada perubahan koneksi database
buat modul seperti ini pada VB 6.0
Public SimpanKoneksi As String
Public cn As New ADODB.Connection
Sub Koneksi()
On Error GoTo AdaError
If cn.State = adStateOpen Then cn.Close: Set cn = Nothing
cn.CommandTimeout = 6000
cn.CursorLocation = adUseClient
cn.ConnectionString = LoadKoneksi
cn.Open
'Frm_Utama.Show
Exit Sub
AdaError:
Cek = "gagal"
If Err.Number = -2147467259 Then
MsgBox "Konektivitas Belum Di Setting" & vbCrLf & "Silahkan Anda Mengatur Koneksi Ke Server.", vbInformation, "Informasi"
ElseIf Err.Number = 0 Then
MsgBox "Koneksi Ke Database Gagal", vbCritical, "Peringatan"
Else
Call PesanError
Exit Sub
End If
OpenFile (App.Path + "\Koneksi.ini")
End Sub
Function LoadKoneksi()
LoadKoneksi = ReadINI("Connectionstring", "connectionstring", App.Path + "\Koneksi.ini")
SimpanKoneksi = LoadKoneksi
End Function
Function ReadINI(Section As String, KeyName As String, FileName As String) As String
Dim sRet As String
sRet = String(255, Chr(0))
ReadINI = Left(sRet, getprivateprofilestring(Section, ByVal KeyName$, "", sRet, Len(sRet), FileName))
End Function
Public Sub OpenFile(lpFULLfilename As String)
On Error GoTo Problem
Dim EEI
Dim X
X = Shell(lpFULLfilename)
Problem:
Screen.MousePointer = 1
FrmKoneksi.Show
End Sub
dan pada formkoneksi
buat 2 opsi,
1 textboxt untuk user id sql
1 textbox untuk password sql
1 textbox untuk server (namaserver jaringan/lokal)
1 textbox untuk Nama Database
2 commandbutton OK dan Cancel
code frmkoneksi nanti dilanjut atao kirim email saja ke muhie.asc@gmail.com
Makasi muhie, semoga berguna bagi pembaca semua
contoh untuk koneksi.ini seperti apa?
mas untuk code form koneksinya di post sekalian, ato kalau bisa kirim email gue gop3l@yahoo.co.id . sebelumnya thank atas tutornya
Yahhh.... cuy...kalo cuma penjelasan seperti ini seh...adik gue yg masih TK juga sambil merem bisa..!!!!! Coba setting client/server menggunakan SQL server 2000. Akan lebih menarik bro....
Misalnya, gimana cara instalasi untuk PC Server, dan Client-nya, and bagaimana konfigurasinya agar program yg kita eksekusi, bisa menyimpan datanya di komputer Server.
koneksi x sich dajberhasi tapi pas form transaksi x gagal melulu..
tampilin donk sintak simpan pada form transaksi x...
mas bagaimana untuk vb 6.0 dan database sql server bisa berbasis client server.
tolong jelasin apa saja yang dibutuuhkan oleh komputer client dan komputer server?
Jelasin juga cara koneksi dari client ke server tersebut.
terima kasih infonya, ditunggu kunjungan baliknya gan
http://carakuvb6.blogspot.com
Post a Comment