AMIK TRI DHARMA

AMIK TRI DHARMA
my friends

VB+SQL RUMUS UNTUK TABLE ANGGOTA

Private Sub cmdbatal_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text1.SetFocus
Adodc1.Refresh
End Sub

Private Sub cmddelete_Click()
sql = "delete from anggotaku where nomor= '" & Text1 & "'"
con.Execute (sql)
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Adodc1.Refresh
Text1.SetFocus
End Sub

Private Sub cmdedit_Click()
sql = "update anggotaku set nama='" & Text2 & "',alamat='" & Text3 & "',jk='" & Text4 & "' WHERE nomor='" & Text1 & "'"
con.Execute (sql)
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Adodc1.Refresh
Text1.SetFocus
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdsimpan_Click()
sql = "insert into anggotaku (nomor,nama,alamat,jk) " & "Values('" & Text1 & "','" & Text2 & "','" & Text3 & "','" & Text4 & "')"

con.Execute (sql)

Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Adodc1.Refresh
Text1.SetFocus
End Sub


Private Sub Form_Activate()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text1.SetFocus
Adodc1.Refresh
End Sub



Private Sub Form_Load()
If con.State = adStateClosed Then
connect
End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
sql = "select * from anggotaku where nomor='" & Text1 & "'"
Set rs = con.Execute(sql)
If Not rs.EOF Then
Text1 = rs!nomor
Text2 = rs!nama
Text3 = rs!alamat
Text4 = rs!jk
Text1.SetFocus
Else
MsgBox "DATA GX MUDENG ANDA SALAH MASUKKAN KODE", 0, "ZAINUDDIN FIKRY"
Text2 = ""
Text3 = ""
Text4 = ""
Text2.SetFocus


End If
End If
End Sub