[HELP] [VB.NET] Database Tidak Tersimpan Setelah Exit Program

Beranda

...

Programmer Forum
[HELP] [VB.NET] Database Tidak Tersimpan Setelah Exit Program

spensaba01

04-08-2015 02:00

[HELP] [VB.NET] Database Tidak Tersimpan Setelah Exit Program

Selamat Pagi Kaskuser yang Berbahagia

Ane gabisa basa-basi langsung ke pokok permasalahannya aja ya,

Ane udah bikin program, fungsinya buat data monitoring update gitu.
Nah, ane bingung setelah ane googling source code nya udah sesuai dan udah banyak cara yg ane coba tapi database cuma ke save cuma waktu form nya aktif. Abis exit form, datanya ilang, balik ke data awal.
Ini code yang ane gunain sekarang gan:

Private Subfrmengdoc_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'SimulasiDataSet.Master_Copro' table. You can move, or remove it, as needed.
Me.Master_CoproTableAdapter.Fill(Me.SimulasiDataSet.Master_Copro)
'TODO: This line of code loads data into the 'SimulasiDataSet.Master' table. You can move, or remove it, as needed.
Me.MasterTableAdapter.Fill(Me.SimulasiDataSet.Master)

Me.MasterBindingSource.Filter = "Copro Like '" & cbcopro.Text & "%" & "'"

End Sub

Private Sub btadd_Click(sender As Object, e As EventArgs) Handles btadd.Click
txcopro.Focus()
Me.MasterBindingSource.AddNew()
End Sub

Private Sub btdelete_Click(sender As Object, e As EventArgs) Handles btdelete.Click
MasterBindingSource.RemoveCurrent()
End Sub

Private Sub btsave_Click(sender As Object, e As EventArgs) Handles btsave.Click
Try
Me.MasterBindingSource.EndEdit()
Me.MasterTableAdapter.Update(SimulasiDataSet.Master)
MasterBindingSource.RaiseListChangedEvents = True
MasterBindingSource.ResetBindings(False)
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub

Private Sub txsearch_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txsearch.KeyDown
If e.KeyCode = Keys.Enter Then
Try
If txsearch.Text = "" Then
Me.MasterBindingSource.Filter = "Copro Like '" & cbcopro.Text & "%" & "'"
Else
Me.MasterBindingSource.Filter = "Part_Name like '" & txsearch.Text & "%" & "'"
End If
Catch ex As Exception

End Try

End If
End Sub

Private Sub btsearch_Click(sender As Object, e As EventArgs) Handles btsearch.Click
If txsearch.Text = "" Then
Me.MasterBindingSource.Filter = "Copro Like '" & cbcopro.Text & "%" & "'"
Else
Me.MasterBindingSource.Filter = "Part_Name like '" & txsearch.Text & "%" & "'"
End If
End Sub 'Search/Filter

Private Sub cbcopro_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbcopro.TextChanged 'Filter Copro

Me.MasterBindingSource.Filter = "Copro Like '" & cbcopro.Text & "%" & "'"

End Sub

Private Sub cbcopro_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbcopro.SelectedIndexChanged
Me.MasterBindingSource.Filter = "Copro Like '" & cbcopro.Text & "%" & "'"
End Sub 'Filter Copro

Private Sub btrefresh_Click(sender As Object, e As EventArgs) Handles btrefresh.Click
MasterBindingSource.RaiseListChangedEvents = True
MasterBindingSource.ResetBindings(False)
MasterCoproBindingSource.RaiseListChangedEvents = True
MasterCoproBindingSource.ResetBindings(False)
End Sub

End Sub

Ini bentuk formnya gan,
[HELP] [VB.NET] Database Tidak Tersimpan Setelah Exit Program