VB 6.0 - Cara Hapus Database SQL Server

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 :
Cara Hapus DeleteDatabase SQL Server Dengan VB 6.0
Kemudian masukan koding 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 :)


Subscribe to receive free email updates:

0 Response to "VB 6.0 - Cara Hapus Database SQL Server"

Post a Comment