VISUAL BASIC 6.0 DAN SQL SERVER

VISUAL BASIC 6.0 DAN SQL SERVER

por dunia ku ~ Rabu, 17 Juni 2009

Dalam keseharian kita mengenal visual basic sebagai saran pemrograman, tetapi visual basic juga bisa digunakan dalam database SQL Server. Dimana dalam Peranti Visual Database VB 6.0 banyak membantu programer dalam kelancaran penulisan penulisan program melalui PC Client/Workstation, seperti misalnya mengkode sebuah Stored Procedure karena tidak mungkin melakukan hal tersebut pada komputer server dimana SQL dijalankan. Walaupun peranti ini bermanfaat, tetapi hanya aktivitas yang berhubungan dengan penulisan program saja yang dapat dilakukannya. Sedangkan untuk pembuatan database, membuat user baru, memberi hak akses dan hal lainnya tetap harus dilakukan pada PC dimana SQL Server dijalankan.
Ada beberapa cara mengakses database, diantaranya adalah : model ADO (ActiveX Data Objek), DAO (Data Access Object), atau melalui VB 6.0, yaitu DED (Data Environment Designer) dan ADODC (ADO Data Connection).
Mengakses Database Dengan Menggunakan Script pada Visual Basic
Kita juga dapat untuk mengakses database melalui kode program pada Visual Basic. Proses ini dapat dilakukan dengan membuat variabel Global yang mewakili ADODB Connection. Setelah itu dilanjutkan dengan membuat setting ADODB Connection dan membuat setting ADODC Source. Setelah tahap – tahap tersebut selesai, tinggal membuat script utama program yang berisikan perintah untuk melakukan pemanggilan terhadap tabel yang ingin di tampilkan dari Enterprise Manager dan untuk menghindari adanya terjadi konflik dan melakukan pembebasan terhadap memori yang digunakan maka perlu dibuat juga sebuah script untuk menghindarinya. Berikut ini salah satu contoh langkah kerja dalam VB:
> Menambah data dalam tabel melalui script VB
Ketikkan baris program berikut dalam button yang telah di buat pada VB.
Contoh:
ADOCon As New ADODB.Conection // Objek yang menciptakan koneksi dengan database
Private Sub Command1_Click()
Dim SQLText As String
SetConn
SQLText = "Insert Into AlbumList values ('" & Text1.Text & "' , '" & Text2.Text & "' , '" & Text3.Text & "' , " & Text4.Text & " , " & Text5.Text & " , " & Text6.Text & ")"
ADOCon.Execute SQLText
With Adodc1
.RecordSource = "select * from AlbumList"
.Refresh
End With
ADOCon.Close
End Sub
> Meng-update data dalam tabel melalui script VB
Ketikkan baris program berikut dalam button yang telah di buat pada VB.
Private Sub Command2_Click()
Dim SQLText As String
SetConn
SQLText = "Update AlbumList set [Album_Title] ='" & Text2.Text & "', [Album_Singer] ='" & Text3.Text & "', [Album_Unit] ='" & Text4.Text & "', [Album_Price] =" & Text5.Text & ", [Album_Stock_Qty] ='" & Text6.Text & "' where [Album_ID] = '" & Text1.Text & "'"
ADOCon.Execute SQLText
With Adodc1
.RecordSource = "Select * from AlbumList"
.Refresh
End With
ADOCon.Close
End Sub
> Menghapus data dalam tabel melalui script VB
Ketikkan baris program berikut dalam button yang telah di buat pada VB.
Private Sub Command3_Click()
Dim SQLText As String
SetConn
SQLText = "delete from AlbumList where Album_ID=" & Text7.Text & ""
Text7.Text = ""
ADOCon.Execute SQLText
With Adodc1
.RecordSource = "select * from AlbumList"
.Refresh
End With
ADOCon.Close
End Sub