Dibawah ini akan kami jelaskan Cara Edit Database SQL Server dengan Visual Basic 6.0. Jika pada tutorial sebelumnya kami telah menjelaskan Cara Koneksi dan Cara Input database SQL Server dengan Visual Basic 6.0 maka kali ini akan kami jelaskan cara meengedit atau Update database SQL Server dengan VB 6.0
Berikut lagkah-langkahnya :
Buatalah Database dengan SQL Server dengan nama : DB_SEWAMOBIL dan Tabel dengan nama TBL_MOBIL
Jika anda telah membuatnya pada tutorial sebelumnya maka anda tidak perlu membuatnya lagi. Namun jika anda belum membuatnya, silahkan ikuti terlebih dahulu Tutorial sebelumnya dengan cara KLIK LINK INI
Jika sudah sukses membuat Database dan Tabel seperti perintah saya diatas, sekarang Buka Komputer anda
Buka Visual Basic 6.0
Buatlah Form seperti gambar dibawah ini :
Dim Koneksi As New ADODB.Connection
Dim RSMOBIL As ADODB.Recordset
Sub BukaDB()
Set Koneksi = New ADODB.Connection
Set RSMOBIL = New ADODB.Recordset
Koneksi.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=DB_SEWAMOBIL"
End Sub
Sub Kosongkan()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
End Sub
Private Sub Form_Activate()
Call BukaDB
Adodc1.ConnectionString = Koneksi
Adodc1.RecordSource = "TBL_MOBIL"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
Call Kosongkan
End Sub
Private Sub Command1_Click()
If Text1 = "" Or Text2 = "" Or Text3 = "" Or Text4 = "" Or Text5 = "" Or Text6 = "" Then
MsgBox "Data Belum Lengkap"
Else
Call BukaDB
Dim EditMobil As String
EditMobil = "Update TBL_MOBIL Set TipeMobil='" & Text2 & "',MerkMobil='" & Text3 & "',WarnaMobil='" & Text4 & "',TahunMobil='" & Text5 & "',HargaSewa='" & Text6 & "' where KodeMobil='" & Text1 & "'"
Koneksi.Execute EditMobil
MsgBox "Data Berhasil Diedit", vbInformation, "Pemberitahuan"
Form_Activate
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
Call BukaDB
RSMOBIL.Open "Select * from TBL_MOBIL where KodeMobil='" & Text1.Text & "'", Koneksi
If Not RSMOBIL.EOF Then
Text2 = RSMOBIL!TipeMobil
Text3 = RSMOBIL!MerkMobil
Text4 = RSMOBIL!WarnaMobil
Text5 = RSMOBIL!TahunMobil
Text6 = RSMOBIL!HargaSewa
Else
MsgBox "Kode Mobil Tidak Ada!"
Text1.SetFocus
End If
End If
End Sub
Jika sudah memasukan koding diatas, silahkan anda Run atau Jalankan Project VB 6.0 anda
Note :
Cara Edit, masukan Kode Mobil pada Text1, contoh : MBL001
Tekan ENTER pada keyboard
Jika sudah muncul, silahkan edit data kemudian tekan tombol SIMPAN
Demikian cara edit database SQL Server dengan VB 6.0, ikuti tutorial kami berikutnya :)
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :
