Insertar registro en acces

[jgmarduel]

Soy supernovato y pongo este código sin resultado ni error. Alguien me podría orientar ?? Aceptaría con gusto especificaciones para Mod y Delete.

Código Delphi [-]
procedure TForm2.BitBtn2Click(Sender: TObject);
var
  estado: Boolean;
begin
  estado := False;
  if Form2.CheckBox1.State = cbChecked then
  begin
    estado := True;
  end;
  Database1.Connected := True;
  DataSource1.Enabled := True;
  Table1.Active := True;
  Table1.Open;
  Table1.Insert;
  Table1.FieldByName('Titulo').AsString := Form2.Edit1.Text;
  Table1.FieldByName('Arancelado').AsBoolean := estado;
  Table1.Post; 
  Table1.Close;
  Table1.Active := False;
  DataSource1.Enabled := False;
  Database1.Connected := False;
end;

[MasterXP]

no entiendo, cual es el problema?

[jgmarduel]

no inserta el registro, ni tira ningún error.

[vtdeleon]

Saludos

Puede ser que tenga la propiedad CacheUpdate en True.:-S

Trata de hacer un ApplyUpdate despues del post.

[jgmarduel]

gracias. No he encontrado mucho en los manuales que hay por ahí. Ponen en el cielo al BDGrid pero la mayoría de mis probables aplicaciones no dejarán ver las tablas a los clientes, sino que insertarán, modificarán y borraran en forms 'colgados' del principal.

Si conocen algo por favor avisen, ya que la respuesta a mi mensaje (muy rápida y gentil por cierto) trata de una función que no está en ninguno de los que encontré.
Gracias

[vtdeleon]

Saludos

Te resulto lo que te escribir?

[jgmarduel]

Código Delphi [-]
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Buttons, DBCtrls, DB, DBTables;

type
  TForm2 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    GroupBox1: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    DateTimePicker3: TDateTimePicker;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Table1: TTable;
    DataSource1: TDataSource;
    Database1: TDatabase;
    Edit1: TEdit;
    GroupBox2: TGroupBox;
    CheckBox1: TCheckBox;
    Edit2: TEdit;
    Label5: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure Hola(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Table1AfterInsert(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
close;
end;
procedure TForm2.Hola(Sender: TObject);
begin
Form2.DateTimePicker2.Enabled := True;
end;

procedure TForm2.BitBtn2Click(Sender: TObject);
var
  estado: Boolean;
begin
  estado := False;

  if Form2.CheckBox1.State = cbChecked then
  begin
    estado := True;
  end;

  Database1.Connected := True;
end;

No hay caso. Este es el cod actual:

Código Delphi [-]
 
  DataSource1.Enabled := True;
  Table1.Active := True;
  Table1.Open;
  Table1.Insert;
  Table1.FieldByName('Titulo').AsString := Form2.Edit1.Text;
  Table1.FieldByName('Arancelado').AsBoolean := estado;
  Table1.Post;
  Table1.ApplyUpdates;
  Table1.Close;
  Table1.Active := False;
  DataSource1.Enabled := False;
  Database1.Connected := False;
end;

procedure TForm2.Table1AfterInsert(DataSet: TDataSet);
begin
  ShowMessage ('Registro agregado');
end;
end.

[vtdeleon]

Saludos

????????


Pd:Usa etiquetas [delphi][/delphi ]

[jgmarduel]

no. No me resultó. Gracias igual. Estoy viendo algunas cuestiones vinculadas con el acceso.

[marcoev]

Intena lo siguiente

Código Delphi [-]
procedure TForm2.BitBtn2Click(Sender: TObject);
begin
  Database1.Connected := True;
  Table1.Open;
  Table1.Insert;
  Table1.FieldByName('Titulo').AsString := Form2.Edit1.Text;
  Table1.FieldByName('Arancelado').AsBoolean := if Form2.CheckBox1.State;
  Table1.Post; 
end;

nose para que necesitas abrir y cerrar tanto las tablas y conexiones, por cierto para BD de access te recomiendo utilizar componentes de Ado y en lugar de un componente de Database utilizar el componente de conection.

TAdoConnection
TAdoTable

por cierto para editar solo cambia el insert por Table1.Edit, y para borrar solo pon Table1.Delete, espero y te sirva de algo