Sintak Update Delphi7 dengan Ms.Access

Sintak Update Delphi7 dengan Ms.Access


    ADOTable1.Open;
    ADOTable1.Edit;
    ADOTable1.FieldByName('No').AsString:=PBNumEdit1.Text;
    ADOTable1.FieldByName('Nama').AsString:=edit1.Text;
    ADOTable1.fieldByName('Alamat').AsString:=edit2.text;
    ADOTable1.FieldByName('Tanggal_Lahir').AsDateTime:=DateTimePicker1.Date;
    ADOTable1.FieldByName('Asal_Sekolah').AsString:=edit3.Text;
    ADOTable1.FieldByName('Nama_Orang_Tua').AsString:=edit4.Text;
    ADOTable1.FieldByName('Alamat_Orang_Tua').AsString:=edit5.Text;
    ADOTable1.FieldByName('Status_Siswa').AsString:=ComboBox1.Text;
    ADOTable1.Post;

Semoga bermanfaat....selamat berkarya