Web Design and Programming Tutorial

Welcome to IndoDesain

Melalui Blog ini saya coba cari ilmu lebih dalam. Gali potensi dan Coba Hal yang baru!

Ferdian Arief

‘ general declaration
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim tambah As Boolean 
Private Sub cmdBatal_Click()
    kunci
End Sub 

Private Sub cmdPerbaiki_Click()   
buka   
tambah = False
End Sub 
Private Sub cmdSimpan_Click()
    If tambah Then
        ‘ eksekusi perintah queri untuk input data baru
        ‘ perhatikan tanda kutip ” dan tanda kutip satu’
        ‘ sebenarnya peritah dibawah ini dapat digambarkan :
        ‘ Insert into tb_mhs values (’2005030001′,’Ali Nurdin’ , ‘ Jl.Multatuli ‘)
        ‘ data nim 200503001 dan yg lain diambil dari textbox yang ada di layar       
cn.Execute “Insert into tb_mhs values (‘” & txtNim & “‘,’” & txtNama & “‘,’” & txtAlamat & “‘)”
        rs.Requery
        MsgBox “Tersimpan….”, vbOKOnly, “Simpan data….” 
   Else
        cn.Execute “update tb_mhs set nama=’” & txtNama & “‘, alamat=’” & txtAlamat & “‘ where nim=’” & txtNim & “‘”
        rs.Requery
        MsgBox “Tersimpan….”, vbOKOnly, “Update data….”
    End If
    kunci
End Sub
 Private Sub cmdTambah_Click()
    buka
    txtNim = “”
    txtNama = “”
    txtAlamat = “”
    tambah = True
    txtNim.SetFocus
End Sub
 Private Sub Form_Load() 
   ‘buka koneksi    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    cn.Open “Provider=Microsoft.Jet.OLEdb.4.0;Persist Security Info=False; ” & _
                “Data Source=” & App.Path & “\tes.mdb” 
 rs.Open “tb_mhs”, cn, adOpenDynamic, adLockOptimistic
    ‘kunci objek yg tidak dibutuhkan
    kunci
End Sub
 Private Sub txtNim_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
       Dim rs As New ADODB.Recordset
 rs.Open “select * from tb_mhs where nim=’” & txtNim & “‘”, cn, adOpenDynamic, adLockOptimistic 
       If Not rs.EOF() Then
            txtNama = rs![nama]
            txtAlamat = rs![alamat]
            MsgBox “data sudah ada “, vbOKOnly, “pesan”
        End If 
       rs.Close 
   End If
End Sub