cara membuat data mahasiswa dengan VB 6.0 Mengconeksikan dengan XAMPP

1.      Untuk membuat database

a.       Buka browser mozila ketik localhost akan tampil seperti gambar di bawa ini,  setelah pilih phpmyadmin.

b.      Setelah pilih phpmyadmin maka akan tampil Seperti gambar di bawah.

c.       Selanjutnya masukan create new database, isikan nama: dt_mhs, pilih create

 

d.      Selanjutnya masukan name tabel: mahasiswa, masukan barapa kolom mau dibuat, saya memberikan 3 kolom Number of fields, sudah itu pilih go.

e.   Selanjutnya isikan nama tabel sudah di isi maka simpan.

Nama	Tipe Data	Keterangan
Nrp	Varchar(30)	Primary key
Nama	Varchar(30)
Jurusan	Varchar(30)

                       

f. Setelah sudah di masukan data tabel makan akan tampil seperti gambar di bawah ini.

2.      Buatlah Desain Form Data Mahasiswa

Komponen	Property	Nilai
Form	Name	LATSQL
	Caption	Database MySQL
Text1	Name	Txtnrp
Text2	Name	Txtnama
Text3	Name	Txtjurusan
MsFlexfrid	Name	Gridmhs

           

a.       Jika sudah selesai desain formnya,, sekarang kita buat modul untuk setting koneksi ke database MySQL yg telah kita buat sebelumnya, untuk membuka modul caranya pilih menu Project > Add Modul > Open. Setelah muncul jendela koding modul, ketikkan koding dibawah ini :

scoure code:

Option Explicit

Public KonekDb As New ADODB.Connection

Public Rs_mhs As New ADODB.Recordset

Public SQLubah, SQLsimpan, SQLhapus As String

Sub BukaDatabase()

    Dim strSS, strPort, strDB, strUID, strPWD As String

            strSS = "localhost"

            strPort = "3306"

            strDB = "dt_mhs"

            strUID = "root"

            strPWD = ""

    Set KonekDb = New ADODB.Connection

    KonekDb.CursorLocation = adUseClient

KonekDb.ConnectionString = "" _

        & "DRIVER={MYSQL ODBC 3.51 Driver};" _

        & "SERVER=" & strSS & ";" _

        & "DATABASE=" & strDB & ";" _

        & "UID=" & strUID & ";" _

        & "PWD=" & strPWD & ";" _

        & "OPTION="

    On Error Resume Next

    If KonekDb.State = adStateOpen Then

        KonekDb.Close

        Set KonekDb = New ADODB.Connection

        KonekDb.Open

    Else

        KonekDb.Open

    End If

    If Err.Number <> 0 Then

        MsgBox "GAGAL KONEKSI SERVER", vbOKOnly, "Kesalahan"

    End If

End Sub

b.      Setelah membuat modul koneksi, sekarang masuk kedalam form yang kita buat tadi dan ketikkan koding berikut di form load, tombol simpan, edit, hapus, keluar dan flexgrid.

Scoure code

Private Sub Form_Load()

Call BukaDatabase

Call TampilGridData

Cmbjurusan.Clear

Cmbjurusan.AddItem "Ped. bahasa inggris"

Cmbjurusan.AddItem "Teknik Informatika"

Cmbjurusan.AddItem "Ped. bahasa indonesia"

Cmbjurusan.AddItem "Fisika"

End Sub

Sub kosong()

Txtnrp.Text = ""

Txtnama.Text = ""

Cmbjurusan.Text = ""

End Sub

Sub Aktifgridmhs()

    With Gridmhs

        .Cols = 3

        .RowHeightMin = 300

        .Col = 0

        .Row = 0

        .Text = "NRP"

        .CellFontBold = True

        .ColWidth(0) = 1700

        .AllowUserResizing = flexResizeColumns

        .CellAlignment = flexAlignCenterCenter

      

        .Col = 1

        .Row = 0

        .Text = "NAMA"

        .CellFontBold = True

        .ColWidth(1) = 2500

        .AllowUserResizing = flexResizeColumns

        .CellAlignment = flexAlignCenterCenter

      

        .Col = 2

        .Row = 0

        .Text = "JURUSAN"

        .CellFontBold = True

        .ColWidth(2) = 2650

        .AllowUserResizing = flexResizeColumns

        .CellAlignment = flexAlignCenterCenter

      

    End With

End Sub

Sub TampilGridData()

    Dim Baris As Integer

    Gridmhs.Clear

    Call Aktifgridmhs

    Gridmhs.Rows = 2

    Baris = 0

    Set Rs_mhs = New ADODB.Recordset

    Rs_mhs.Open "SELECT * FROM mahasiswa", KonekDb, adOpenDynamic, adLockOptimistic

 

        With Rs_mhs

        Do While Not .EOF

            On Error Resume Next

            Baris = Baris + 1

            Gridmhs.Rows = Baris + 1

            Gridmhs.TextMatrix(Baris, 0) = !nrp

            Gridmhs.TextMatrix(Baris, 1) = !nama

            Gridmhs.TextMatrix(Baris, 2) = !jurusan

        .MoveNext

        Loop

        End With

   End Sub

Private Sub cmdsimpan_Click()

Set Rs_mhs = New ADODB.Recordset

            Rs_mhs.Open "SELECT * FROM mahasiswa WHERE nrp='" & Txtnrp.Text & "'", _

            KonekDb, adOpenDynamic, adLockBatchOptimistic

If Rs_mhs.BOF Then

                SQLsimpan = ""

                SQLsimpan = "INSERT INTO mahasiswa (nrp,nama,jurusan)" _

                    & " VALUES('" & Txtnrp.Text & "','" & Txtnama.Text & "','" _

                    & Cmbjurusan.Text & "')"

                KonekDb.Execute SQLsimpan, , adCmdText

                Call Form_Load

                MsgBox "DATA BARU TELAH TERSIMPAN", vbOKOnly + vbInformation, "INFO"

            Else

                MsgBox "NRP SUDAH ADA", vbOKOnly + vbInformation, "INFO"

            End If

Rs_mhs.Requery

Call kosong

Call TampilGridData

End Sub

Private Sub cmdedit_Click()

            SQLubah = "UPDATE mahasiswa " _

                & " set nama='" & Txtnama.Text & "', " _

                & " jurusan='" & Cmbjurusan.Text & "' " _

                & " WHERE nrp='" & Txtnrp.Text & "'"

            KonekDb.Execute SQLubah, , adCmdText

            Call kosong

            Call Form_Load

            MsgBox "DATA mhs TELAH DIUBAH", vbOKOnly + vbInformation, "Konfirmasi"

Rs_mhs.Requery

Call TampilGridData

End Sub

Private Sub cmdhapus_Click()

hapus = MsgBox("yakin ingin menghapus data ini?", vbQuestion + vbYesNo, "Hapus")

If hapus = vbYes Then

        SQL = "DELETE FROM mahasiswa WHERE nrp='" & Txtnrp.Text & "'"

        KonekDb.Execute SQL, , adCmdText

        Rs_mhs.Requery

        Call kosong

        Call TampilGridData

    Else

    Call kosong

End If

End Sub

Private Sub cmdKeluar_Click()

Unload Me

End Sub

Private Sub gridmhs_DblClick()

    GridBaris = Gridmhs.Row

    Set Rs_mhs = New ADODB.Recordset

    Rs_mhs.Open " SELECT * FROM mahasiswa WHERE nrp='" & Gridmhs.TextMatrix(GridBaris, 0) & "' " _

            , KonekDb, adOpenDynamic, adLockOptimistic

    If Rs_mhs.BOF Then

        MsgBox "TABEL MASIH KOSONG", vbOKOnly + vbInformation, "Perhatian"

        Exit Sub

        Call kosong

    Else

        Rs_mhs.MoveFirst

        Do While Not Rs_mhs.EOF

            On Error Resume Next

            Txtnrp.Text = Rs_mhs!nrp

            Txtnama.Text = Rs_mhs!nama

            Cmbjurusan.Text = Rs_mhs!jurusan

        Rs_mhs.MoveNext

        Loop

    End If

End Sub

 

3.      Setting Koneksi Ke Adodc1

a.       klik kanan adodc1 > adodc properties. Akan tampil seperti gambar di bawa ini.

 

b.      lalu klik New > pilih user data source > klik Next

 

c.       Pilih MySQL ODBC 3.51 Driver. Klik next.

 

d.      Connector MySQL ODBC.

 

e.         Tampilan Hasil Dari koneksi Mysql Ke Visual Basic

 

f.         Hasil Dari inputan Visual Basic ke Mysql

Related Posts:

Tweet