If conn.State = adStateOpen Then conn.Close cls_pub.connect_db If rsuplog.State = adStateOpen Then rsuplog.Close rsuplog.CursorLocation = adUseClient
sql = "select * from login and userid like ' " & txt_NIP.Text & " ' " rsuplog.Open sql, conn, adOpenKeyset, adLockOptimistic If rsuplog.RecordCount <> 0 Then With rsuplog 'tambahannya .edit .Fields(0) = txt_NIP.Text .Fields(1) = txt_pwd.Text .Fields(3) = cmb_Hak.Text .Fields(2) = txt_nama.Text .Update End With End If <[EMAIL PROTECTED]> wrote: > > Dear all VB master, > > saya mau nanya masalah proses edit yang bingung, di form yang lain jalan tapi disini koq error, kira-kira apa ya...? > > If conn.State = adStateOpen Then conn.Close > cls_pub.connect_db > > If rsuplog.State = adStateOpen Then rsuplog.Close > rsuplog.CursorLocation = adUseClient > > sql = "select * from login and userid like ' " & txt_NIP.Text & " ' " > rsuplog.Open sql, conn, adOpenKeyset, adLockOptimistic > > If rsuplog.RecordCount <> 0 Then > With rsuplog > .Fields(0) = txt_NIP.Text > .Fields(1) = txt_pwd.Text > .Fields(3) = cmb_Hak.Text > .Fields(2) = txt_nama.Text > .Update > > End With > End If > > > Pesan errornya seperti ini "Insufficient key column information for updating or refreshing". > Atas jawaban rekan-rekan sekalian , makasih banyak ya.... > > > > > > ____________________________________________________________________________________ > Be a better pen pal. > Text or chat with friends inside Yahoo! Mail. See how. http://overview.mail.yahoo.com/ >
