Bagaimana membuat Koneksi VB6 Ke Database SQL Server
Sebuah aplikasi atau projek program pasti akan sangat
membutuhkan pembuatan koneksi ke data bsase agar user atau admin dapat
memasukkan data meng-edit dan melakukan transaksi pada sebuah alur yang
mendasari aplikasi itu di buat. Dalam blog ini kita akan membuat suatu aplikasi
pendataan siswa pada suatu sekolahan dari dasar dan dari beberapa artikel dari
blog ini dari step satu ke step yang lain.
Dalam tahap pertama ini kita akan belajar dasar pembuatan
koneksi terlebih dahulu, dari judul di atas “Bagaimana membuat Koneksi Database
SQL Server “ kita akan belajar membuat koneksi dengan menggunkan vb 6 ke SQL
Server, sebelum ke langkah yang lebih jauh.
Sebelunya silahkan instal terlebihdahulu
#VB6 dan SQL Server 2008 R2
Buatlah Data base (sesuai keinginan) dengan nama : Siswa
Buatlah tabel dengan nama : Dsiswa
Field seperti dibawah ini
ID : ncharacter 5
nama : Varchar 50
alamat : Varchar 50
tgl_lahir : Datetime
nama : Varchar 50
alamat : Varchar 50
tgl_lahir : Datetime
Setelah data basenya semua sudah jadi kita langsung saja ke
step selanjutnya yaitu membuat skript di modul vb6
Buka aplikasi vb 6
Ketik di Modul:
***************************
Sub Connections()
Set con = New
ADODB.Connection
If con.State = 1
Then
con.Close
Set con =
Nothing
End If
On Error GoTo
errorapl
con.Open
"Provider=SQLOLEDB.1;Integrated Security=SSPI;password='" & mPWD
& "';Persist Security Info=False;User ID='" & mUID &
"';Initial Catalog='" & Siswa & "';Data Source='"
& localhost & "'"
con.CursorLocation
= adUseClient
con.CommandTimeout
= 0
Exit Sub
errorapl:
MsgBox
Err.Description, vbCritical, "Informasi Koneksi Gagal"
'' Exit Sub
End Sub
*************************
yang merah ganti dengan database anda
Coba jalankan Projek anda...
Semoga bermanfaat, terimakasih