Assalammualaikum Wr. Wb,
Berikut ane akan coba singgung sedikit mengenai cara koneksi Database menggunakan SQL 2000 Server.
Membuat koneksi database baik itu menggunakan Visual Basic 6.0 maupun Visual Basic .NET pada dasarnya sama. Di bawah ini akan saya coba jelaskan cara sederhana untuk membuat koneksi dengan SQL Server Database menggunakan Visual Basic 6.0. Artikel ini hanya ditujukan buat teman-teman yang ingin mengetahui cara mengkoneksikan program Visual Basic ke dalam database SQL.
Langkah pertama, buka program Visual Basic 6.0 dan buat project baru dengan memilih Standar EXE pada menu tampilan awal Visual Basic 6.0.
Langkah kedua, pilih menu project dan pilih menu References. Dalam kotak dialog References, cari “Microsoft ActiveX Data Objects 2.8 Library” atau “Microsoft ActiveX Data Objects 2.6 Library” atau “Microsoft ActiveX Data Objects 2.7 Library”. Pilih salah satu, semuanya sama saja terserah Anda. Centang library tersebut dan klik OK.
Langkah ketiga, buat modul baru dalam project kita dengan mengklik menu Project > Add Module. Pada kotak dialog yang muncul, klik Open. Dalam modul yang baru kita buat ketikkan:
Module
'Sebagai Variable General maka kita ketikkan seperti dibawah ini
Public conn As New ADODB.Connection
Public hub As New ADODB.Connection
Public rec As New ADODB.Recordset
Public rs As New ADODB.Recordset
Public isq As String
Public Sub hubungan()
'Sebagai Variable Lokal maka scriptnya dibawah ini
Set conn = New ADODB.Connection
conn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Akademik;Data Source=AZAM-PC"
End Sub
'Akademik adalah nama Database yang kita buatkan pada SQL 2000
'AZAM-PC adalah nama server Lokal pada SQL 2000, bila ingin menggunakan server di dalam jaringan sebaiknya gunakan nama server dalam jaringan tersebut.
Selanjutnya kita masuk pada pembuatan Form
Pertama dibuatkan dahulu sebuah Variable general yang berfungsi untuk memanggil koneksi yang sudah kita buatkan di module
Public Sub hubungan()
Set conn = New ADODB.Connection
conn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Akademik;Data Source=AZAM-PC"
End Sub
Selanjutnya membuat Variable lokal
ketikkan syntax di bawah ini untuk memanggil koneksi kedalam module,
Form_Load()
hubungan
'sebagai koneksi di dalam variable general yang sudah dibuatkan diatas
End Sub
Langkah selanjutnya tinggal memasukan variable yang sudah kita buatkan di module ke dalam variable lokal yang akan kita buat
sebagai contoh ane lampirkan dibawah ini
Private Sub Command1_Click()
If Command1.Caption = "&Tambah" Then
Call bersih
Call aktif
Command1.Caption = "&Simpan"
Command2.Enabled = False
Command3.Enabled = Fals
Command4.Caption = "&Batal"
Else
'Variable koneksi yang sebelumnya kita buatkan di Module, disini kita memanggil variable isq sebagai execute
isq = "insert into mahasiswa (NPM,Namamhs,tempatlhr,tgllhr,alamat,telp,jurusan)values ('" & Trim(Text1) & "','" & Trim(Text2) & "','" & Trim(Text3) & "','" & DTPicker1.Value & "','" & Trim(Text4) & "','" & Trim(Text5) & "','" & Trim(Text6) & "')"
Set rs = conn.Execute(isq)
Call bersih
Call formattampil
Call netral
End If
End Sub
Selanjutnya ente-ente tinggal mengembangkannya sendiri sesuai program yang ente buat gan.
Sekian postingan Ane gan,, semoga bermanfaat untuk kita semua. Dan untuk para programer senior, tetap ane minta dukungannya untuk kemajuan bersama.
Wassalamualaikum Wr. Wb
thanks for visit my blog
0 komentar:
Posting Komentar
Leave a Comment
And Thanks for Visit My Blog