Untuk code di form
PUBLIC Class Form
Private Sub ButtonSave_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ButtonSave.Click
Getdata()
End Sub
Private GET DATA(Telp as string)
Try
[*]
SQL = "SELECT * FROM NamaTableWHERE Telp='" & Trim(TextNotelp.text) & "'" Dim
Cm
As New SqlCommand(sSql, Cn)
Dim Tb As New DataTable
Dim Da As New SqlDataAdapter(Cm)If Tb.Rows.Count = 0 Then *//Bila
data masih kosong maka insert (Disarankan untuk membedakan Update dan Insert
buat satu variable sebagai Flag Example[yg tulisan kecil] )
[**]
IF FLAG ="INSERT" ThenSQL = "INSERT INTO NamaTable(NAMA,TELP) VALUES ( '" &
Trim(TextNama.text) & "'",'" & Trim(TextNotelp.text) & "'" )
*// Bila mau masukan tanpa nama field harap isikan value field urutannya sesuai
dg yg ada pd database
ELSE
SQL = "UPDATE NamaTable SET NAMA = '" & Trim(TextNama.text) & "'", TELP = '" &
Trim(TextNotelp.text) & "'"
SQL = SQL + " WHERE TELP ='" & Trim(TextNotelp.text) & "'"
END IF
FLAG = ""
Dim Cmd As New SqlCommand(SQL, Cn) Cmd.ExecuteNonQuery()
Else [***]
MessageBox.show("Data sudah ada", MsgBoxStyle.OkOnly, "..^_^..")
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "..^_^..")
Exit Sub
End Try
End Sub
END CLASS
Cara kerjanya: Ketika buttonsave ditekan, maka :
1. aplikasi akan melakukan proses pencarian terlebih dahulu [*],
2. Bila tidak ada maka data akan disave[**]
3. Bila data sudah ada [***]
Semoga bermanfaat, Kabari lagi ya klo G bermanfaat......^_^
Salam,
________________________________
Dari: dicky petrus <[email protected]>
Kepada: [email protected]
Terkirim: Jum, 16 Juli, 2010 17:31:22
Judul: [programmer-vb] mencegah double data dari yg di input lewat form dengan
data yang ada di DB
sore,
mau tanya ni..dijawab ya..
saya mau tanya scrip pake vb.net masalahnya
saya pgn buat validasi data antara data yang udah ada di database dengan data
yang kita inputkan,
jadi kalo misal kita input nama/ no tlp , kalo di database udah ada nama yang
sama atau no tlp jadi keluar notification gt..
mohon dibales, makasih banyak
