Joined
Last Seen
0 Reputation Points
Unknown Quality Score
No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
0 Endorsements
Ranked #13.9K
|
**BUTTON SAVE** Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click get_kon() Dim simpan As SqlClient.SqlTransaction = kon.BeginTransaction Dim command As SqlClient.SqlCommand = kon.CreateCommand bersih() Try With command .CommandText = "InputAnalis5C" .CommandType = CommandType.StoredProcedure .Connection = kon .Transaction = simpan .Parameters.Add("@NONAS", SqlDbType.NVarChar, 12).Value = TextBox1.Text .Parameters.Add("@NAMA", SqlDbType.NVarChar, … 
|