Ver Mensaje Individual
  #3  
Antiguo 27-02-2012
agustinbus agustinbus is offline
Miembro
 
Registrado: ago 2007
Posts: 44
Reputación: 0
agustinbus Va por buen camino
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.
Responder Con Cita