Hola ecfisa! claro que si, gracias por responder tan rapidamente. En un boton tengo este codigo:
Código:
if fAddTable.Caption = 'Add table' then
begin
if (JvEdit1.Text = '') then
begin
MessageBox(handle,'Table ID field are required','Required fields',MB_OK);
end
else
begin
Form1.QMesas.Open;
Form1.QMesas.Insert;
Form1.QMesasSECTOR.Value := Form1.QSectoresCODIGO.Value;
Form1.QMesasESTADO.Value := 'READY';
Form1.QMesasPERSONAS.Value := StrToInt(JvSpinEdit1.Text);
Form1.QMesasCODIGO.Value := JvEdit1.Text;
Form1.QMesasWIDTH.Value := 60;
Form1.QMesasHEIGHT.Value := 60;
Form1.QMesasLEFT.Value := 300;
Form1.QMesasTOP.Value := 300;
if RadioButton1.Checked = TRUE then
begin
Form1.QMesasFUMADOR.Value := RutaFumador;
end
else
begin
Form1.QMesasFUMADOR.Value := RutaNoFumador;
end;
Form1.QMesas.Post;
fAddTable.Close;
Explico un poco mas del problema. Estaba realizando el proyecto en access pero decidi cambiar a firebird ya que no es una bd de escritorio como access, y es mas sencilla la distribucion del sistema.
Ese es el codigo que tenia ccuand hacia las inserciones en access, pero ahora siguiendo un poco el tutorial para novatos creado por caral(si bien recuerdo) coloque unIBDatabase enlazado a un IBTransaction y los IBQuery correspondientes con Datasources enlazados a ellos para poder mostrarlos en una grilla. La coneccion funciona correctamente pero al querer insertar un registro aparece el error.