TUTORIAL MENAMBAHKAN RECORD DATA

Awalnya buat lah mysql seperti biasa :

Kemudian buat form dan koneksikan mysql ke vb seperti pada postingan sebelumnya,
kemudian buat form seperti pada gambar :

form1 (Fpenerbit)

Form2 (Ftambah)

Setelah membuat form pada tombol tambah (form1) di masukkan rumus untuk mengalihkan from ke From2

Private Sub Btntambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btntambah.Click

        Btntambah.Focus()

        FPenerbit_Tambah.ShowDialog()

        Me.Close()

    End Sub

 Kemudian pada tombol simpan di Form2 dimasukkan rumus sbb :

Imports MySql.Data.MySqlClient

Public Class FPenerbit_Tambah

    Dim MyCon As New MySqlConnection("Server=localhost;User id=root;Password=3306;Database=perpustakaan")

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

        MyCon.Open()

        Dim StrSQL As String = "Insert Into penerbit (idPenerbit,Nama,Alamat,Kota,NoTelepon) values ('" & txtid.Text & "','" & txtnama.Text & "','" & txtalamat.Text & "','" & txtkota.Text & "','" & txtno.Text & "')"

        Dim mycmd As New MySqlCommand(StrSQL, MyCon)

        Dim rdr As MySqlDataReader = mycmd.ExecuteReader

        Me.Close()

    End Sub