Dibawah ini akan kami jelaskan Bagaimana Cara Hapus Database SQL Server dengan Visual Basic 6.0. Bagi anda yang ingin mengikuti tutorial ini, kami sarankan anda telah mengikuti tutorial kami sebelumnya yaitu :
Cara Koneksi Database SQL Server dengan VB 6.0
Cara Input Database SQL Server Dengan VB 6.0
Cara Edit Update Database SQL Server Dengan VB 6.0
Kenapa harus mengikuti Tutorial diatas terlebih dahulu, karena hal ini sangat berkaitan dan pastinya anda tidak akan tersesat Hehehehehe...
Berikut langkahnya :
Jika anda telah mengikuti tutorial sebelumnya maka anda telah membuat database DB_SEWAMOBIL dan tabel TBL_MOBIL
kemudian buka komputer anda
Buka Visual Basic 6.0
Buatlah design 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()
Pesan = MsgBox("Yakin akan dihapus ?", vbYesNo)
If Pesan = vbYes Then
Call BukaDB
Dim HapusMobil As String
HapusMobil = "delete TBL_MOBIL where KodeMobil='" & Text1 & "'"
Koneksi.Execute HapusMobil
MsgBox "Data Berhasil Dihapus", vbInformation, "Pemberitahuan"
Form_Activate
Else
Call Kosongkan
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 Hapus adalah : Masukan Kode Mobil pada Text1 ( Kemudian Tekan ENTER )
Jika data sudah muncul, Klik Hapus - dan Klik Yes
Demikian tutorial tentang Cara Hapus Database SQL Server dengan VB 6.0, semoga bermanfaat :)
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 :
