Selamat siang,,,,,,,,,, Salam kenal dari Muliyadi, EDP TSJ Makassar..
----- Original Message ---- From: Ronald Irawan <[EMAIL PROTECTED]> To: [email protected] Sent: Monday, January 22, 2007 4:04:44 PM Subject: Re: [indoprog-vb] Cari data & edit Saya anggap koneksi anda sudah terbukan , dan bernama Con Private Sub TextUserName_ KeyPress( KeyAscii As Integer) KeyAscii = Asc(UCase(Chr( KeyAscii) )) If KeyAscii = 13 Then Dim rsCek as new adodb.recordset rscek.opn "Select user_name from NamaTablenya where user_name='" & txtusername. text & "'",Con if not rscek.eof then msgbox "User yg anda maksud Sudah terdaftar" else msgbox "Data blm ada nih...." end if End If End Sub ------------ --------- --------- --------- --------- --------- - Dim sqlUpdate as string SqlUpdate = "Update NamaTablenya set user_name='" & textuser.text & "',pass1='" & textpass1.text & "' where PrimariKeyNyaAPA= '" & txtPrimarykeynya & "'" Con.execute SqlUpdate Thanks Ronald Irawan http://www.Foodinve stment.com/ ?id=ronald_ delgeano Jakarta <[EMAIL PROTECTED] id> Sent by: indoprog-vb@ yahoogroups. com 22/01/2007 03:49 PM Please respond to indoprog-vb@ yahoogroups. com To <indoprog-vb@ yahoogroups. com> cc Subject [indoprog-vb] Cari data & edit Halo rekan2.. Mo nanya dong ??? Kalo saya mo cari data yang ada di tabel fields 2 yang namanya User_Name... Tapi koq kalo saya masukan user name yang uda ada di fields itu tapi ga ketemu.. gImana ya ??? ini codingnya... yang saya bingung.. Giamana yah buat coding bwt cari data yang ada di field itu ???? Dan coding dibawahnya untuk mengedit data..... juga codingnya gimana ???? Private Sub TextUserName_ KeyPress( KeyAscii As Integer) KeyAscii = Asc(UCase(Chr( KeyAscii) )) If KeyAscii = 13 Then TextUserName. Text = UCase(TextUserName. Text) If TextUserName. Text = "" Then TextUserName. SetFocus Else If rcusr.Open!User_ Name = TextUserName. Text Then MsgBox "User yang anda maksud sudah terdaftar.", vbOKOnly, "Informasi" TextUserName. SetFocus Else TextPass1.Enabled = True TextPass1.SetFocus End If End If End If End Sub ------------ --------- --------- --------- --------- --------- - rcusr.open rcusr!User_Name = TextUser.Text rcusr!Pass1 = TextPass1.Text rcusr.Update [Non-text portions of this message have been removed] [Non-text portions of this message have been removed] ____________________________________________________________________________________ Be a PS3 game guru. Get your game face on with the latest PS3 news and previews at Yahoo! Games. http://videogames.yahoo.com/platform?platform=120121 [Non-text portions of this message have been removed]
