Sintak Simpan Delphi7 & Ms.Access

Sintak Simpan delphi konek Ms.Access dengan ADOTable

   
    ADOTable1.Open;
    ADOTable1.Append;
    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 gan hehe
selamat berkreasi bersama delphi anda. . . .