Advertisement
Rdx291

Untitled

May 25th, 2019
106
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.64 KB | None | 0 0
  1. Dim i As Integer = DataGridView1.CurrentRow.Index
  2. If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then
  3. MsgBox("Maaf Data yang Anda masukan masih kurang lengkap")
  4. ElseIf TextBox1.Text = DataGridView1.Item("Kode_Rayon", i).Value Then
  5. MsgBox("Maaf Kode Rayon Sudah Terpakai")
  6. TextBox1.Clear()
  7. Else
  8. sqlnya = "insert into tb_rayon(`Field1`,`Field2`,`Field3`) values('" & TextBox1.Text & "','" & TextBox3.Text & "','" & TextBox2.Text & "')"
  9. Call jalan()
  10. MsgBox("Data Berhasil Tersimpan")
  11. Timer1.Start()
  12. End If
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement