SHARE
TWEET

Tombol Simpan

a guest Jul 16th, 2019 66 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.     Private Sub BtmSave_Click(sender As Object, e As EventArgs) Handles BtmSave.Click
  2.         Call conecDB()
  3.  
  4.         Try
  5.             SQL = "INSERT INTO tb_supplier VALUES ('" &
  6.                 txtNamaSupplier.Text &
  7.                 "','" & txtAlamat.Text &
  8.                 "','" & txtTelpon.Text &
  9.                 "','" & txtPIC.Text &
  10.                 "','" & txtNPWP.Text &
  11.                 "','" & txtKTP.Text &
  12.                 "')"
  13.             comDB.CommandText = SQL
  14.             rdDB = comDB.ExecuteReader
  15.             MsgBox("Data Berhasil Disimpan")
  16.         Catch ex As Exception
  17.             MsgBox("Gagal Simpan Data")
  18.         End Try
  19.     End Sub
  20. End Class
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top