Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim i As Integer = DataGridView1.CurrentRow.Index
- If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then
- MsgBox("Maaf Data yang Anda masukan masih kurang lengkap")
- ElseIf TextBox1.Text = DataGridView1.Item("Kode_Rayon", i).Value Then
- MsgBox("Maaf Kode Rayon Sudah Terpakai")
- TextBox1.Clear()
- Else
- sqlnya = "insert into tb_rayon(`Field1`,`Field2`,`Field3`) values('" & TextBox1.Text & "','" & TextBox3.Text & "','" & TextBox2.Text & "')"
- Call jalan()
- MsgBox("Data Berhasil Tersimpan")
- Timer1.Start()
- End If
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement