Kamis, 31 Mei 2012

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

Leave a Reply

 
 

Labels