Emang Mas makenya apa? vb.net atau visual basic?
Supaya datanya nggak double brarti cek aja ke databasenya pake printah query.
mis: if myread read then (maksudnya :juka data sudah ada maka data tidak akan
diduplikat lagi)
msgbox "Data sudah ada"
end if
--- Pada Rab, 11/3/09, •SετyΘ• <set...@gmail.com> menulis:
Dari: •SετyΘ• <set...@gmail.com>
Topik: [Programmer-VB] [ASK] Dobel Record
Kepada: indoprog...@yahoogroups.com, Programmer-VB@yahoogroups.com
Tanggal: Rabu, 11 Maret, 2009, 1:30 AM
Pagi master semua,
saya ada sedikit problem nih, maklum pemula :)
Begini saya mencoba menyimpan data nomor nota, begitu nomor nota
kesimpan, kita masukin lagi nomor nota tesebut,
Supaya nomor nota tersebut tidak dobel, gimana ya caranya.
Kesalahan yg muncul seperti dibawah.
Run time error \3021'
either BOF or EOF is true, or the current record has been deleted.
request operation requires a current record
Saya mencoba membuat perintah seperti
dibawah, database yg digunakan mysql.
Private Sub Text1_lostfocus( )
If Text1.Text = "" Then Exit Sub
SCari = "select * from data where No_nota= '" + Trim(Text1.Text) + "'"
Set RCari = New ADODB.Recordset
RCari.Open SCari, CN, adOpenKeyset, adLockReadOnly
If RCari.RecordCount <> 0 Then
If RCari("no_nota" ) = Text1.Text Then
MsgBox "Nomor Sudah Dipakai", vbOKOnly, "PERHATIAN"
Text1.SetFocus
End If
Exit Sub
End If
RCari.Close
Set RCari = Nothing
End Sub
Mohon bantuannya rekan-rekan.
Makasih
SH
___________________________________________________________________________
Dapatkan nama yang Anda sukai!
Sekarang Anda dapat memiliki email di @ymail.com dan @rocketmail.com.
http://mail.promotions.yahoo.com/newdomains/id/
