Input data dari Form Lain

Kira-kira judulnya tepat gk ya? ya udah langsung ja ya. Kaususnya gini kita mau input data dari form1 tapi di tampilan di form2. Untuk bisa melakukan penyimpanan data dan tampil otomatis di form2, ikuti langka-langkah berikut :
1. Pertama desain form seperti gambar berikut

2. Desain jg Form2 seperti berikut

3. Buat modul koneksi dan tuliskan sintax berikut :

Imports System.Data.SqlClient
Module Module1
    Public con As SqlConnection
    Public cmd As SqlCommand
    Public da As SqlDataAdapter
    Public dr As SqlDataReader
    Public ds As DataSet
    Public str, pesan As String

 
    Sub koneksi()
        str = "Data Source=TONI-PC\SQLEXPRESS;Initial Catalog=hasil;Integrated Security=True"
        con = New SqlConnection(str)
        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
    End Sub
End Module

3. Tuliskan kode berikut di form1

Imports System.Data.SqlClient
Public Class Form1
    Sub tampil()
        Call koneksi()
        da = New SqlDataAdapter("select * from siswa", con)
        ds = New DataSet
        da.Fill(ds, "siswa")
        DataGridView1.DataSource = ds.Tables("siswa")
        DataGridView1.ReadOnly = True
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call koneksi()
        Call tampil()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.ShowDialog()
    End Sub
End Class

3 Tuliskan kode berikut di form2 :

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then
            pesan = MsgBox("Data belum lengkap !", MsgBoxStyle.Information, "Pesan")
            Exit Sub
        Else
            Call koneksi()
            cmd = New SqlCommand("select * from siswa where NPM='" & TextBox1.Text & "'", con)
            dr = cmd.ExecuteReader
            dr.Read()
            If dr.HasRows Then
                pesan = MsgBox("Data sudah ada", MsgBoxStyle.Information, "Pesan")

            Else
                koneksi()
                Dim simpan As String = "insert into SISWA(NPM,Nama,Kelas)values('" &    TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "')"
                cmd = New SqlCommand(simpan, con)
                cmd.ExecuteNonQuery()
                pesan = MsgBox("Data sudah tersimpan !", MsgBoxStyle.Information, "Pesan")

                Form1.tampil()

                Me.Close()
            End If
        End If
    End Sub

Terus jalan kan program tersebut....
untuk mengimput data Klik ja tombol input maka akan muncul form2 dan inputkan trus simpan maka akan tampil di form1 secara otomatis tanpa refresh

Tulisan ini semoga bermanfaat bagi kita kita semua



Referensi : Di label Pengenalan Blog
konsultasivb.com