VB + MySQL

*******LISTING UNTUK MODUL********
Global db As New ADODB.Connection
Function konek()
Set db = New ADODB.Connection
db.CursorLocation = adUseClient
db.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=ftkom;UID=root;PWD=;port=;"
db.Open
End Function
______________________________________________________________________________________________________________________


*******LISTING UNTUK FORM********

Dim rpl As ADODB.Recordset
Sub tampil(nama As String)
Dim i As Currency
Set rpl = db.Execute(nama)
If Not rpl.EOF Then
    ListView1.ListItems.Clear
    rpl.MoveFirst
    i = 0
      Do While Not rpl.EOF
       i = i + 1
                Set vData = ListView1.ListItems.Add(, , rpl!npm)
                            vData.SubItems(1) = rpl!nama
                            vData.SubItems(2) = rpl!kelas
                            vData.SubItems(3) = rpl!alamat
                            vData.SubItems(4) = rpl!jkel
                            rpl.MoveNext
                        Loop
End If
End Sub

Sub cari(data As String)
Set rpl = db.Execute(data)
If Not rpl.EOF Then
Text1 = rpl!npm
Text2 = rpl!nama
Combo1 = rpl!kelas
Text3 = rpl!alamat
Combo2 = rpl!jkel
End If
End Sub

Private Sub Command1_Click()
Set rpl = db.Execute("INSERT INTO `mahasiswa` (`npm`, `nama`, `kelas`, `alamat`, `jkel`) VALUES ('" & Text1 & "', '" & Text2 & "', '" & Combo1 & "', '" & Text3 & "', '" & Combo2 & "')")
MsgBox "Data Tersimpan"
Command2_Click
End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Combo1 = ""
Combo2 = ""
tampil ("SELECT  `npm`,  `nama`,  `kelas`,  `alamat`,  `jkel` FROM `mahasiswa` ")
End Sub

Private Sub Command3_Click()
Set rpl = db.Execute("UPDATE `mahasiswa` SET `nama`='" & Text2 & "',`alamat`='" & Text3 & "',`jkel`='" & Combo2 & "',`kelas`='" & Combo2 & "' WHERE `npm`='" & Text1 & "'")
MsgBox "Data Terupdate"
Command2_Click
End Sub

Private Sub Command4_Click()
If MsgBox("Yakin Data Mahasiswa Dengan NPM" & ListView1.SelectedItem.SubItems(1) & " Akan Dihapus Dalam database ", vbYesNo + vbQuestion, "Hapus Data") = vbYes Then
Set rpl = db.Execute("delete from `mahasiswa` WHERE `npm`='" & ListView1.SelectedItem.Text & "'")
    MsgBox "Data Berhasil Terhapus Dalam Database"
    Command2_Click
End If
End Sub

Private Sub Command5_Click()
End
End Sub

Private Sub Form_Load()
konek
Command2_Click
End Sub

Private Sub ListView1_DblClick()
MsgBox "Update"
Call cari("SELECT  `npm`,  `nama`,  `kelas`,  `alamat`,  `jkel` FROM `mahasiswa` where `npm`='" & ListView1.SelectedItem & "'")
End Sub

Private Sub Text4_Change()
Call tampil("SELECT  `npm`,  `nama`,  `kelas`,  `alamat`,  `jkel` FROM `mahasiswa` WHERE `nama` LIKE '%" & Text4 & "%'")
End Sub

Posted in: VB 6.0