reconocer que un campo contiene datos

[[enecumene]]

Hola Compañeros del foro, tengo una nueva inquietud, es la siguiente: como hago que cuando realizo un insert o un post me reconozca en la base de datos que en el campo a insertar contiene datos?. me explico:

en la tabla tengo estos campos:

tipo1
tipo2
tipo3

verdad? cuando haga una inserción o un update, si en tipo1 tiene datos me grabe entonces en tipo2 y asi sucesivamente, estaba tratando de hacerlo con un if...else:

Código Delphi [-]
 
if ADOTable.Fields[0].Value = ???? then <---AQUI no se que poner
 begin
 ////////
 end else Begin....

no se si me hice entender por favor no duden en pedirme explicarles de nuevo

Saludos...

[Rudi]

Hola enecumene.-

Código Delphi [-]
If ADOTable1.Fields[0].IsNull then

espero sea esto lo que buscas.

[[enecumene]]

Hola Rudi, Disculpa La Tardanza, estaba roncando, ahorita mismo lo practico a ver como me resulta.

Saludos...

[[enecumene]]

Hola Rudi, Buenas tardes, tu consejo no me funciono, lo estoy haciendo de esta manera, pues no me funciona, estoy seguro que estoy fallando, a ver:

Código Delphi [-]
procedure TFFactura.BitBtn1Click(Sender: TObject);
begin
if MessageDlg('¿Está seguro que desea Guardar?', mtConfirmation,
       [mbYes, mbNo], 0) = mrYes then
  begin
       if ZPedido.Fields[19].IsNull then <--Si el campo no tiene datos entonces:
        begin
        if ZFactura.State in [dsedit,dsinsert] then
        begin
        ZRegPed.SQL.Clear;
        ZRegPed.SQL.Add('UPDATE reg_pedidos SET oc_no_sigef_2='+Quotedstr('Sí')+', oc_no_sigef='+Quotedstr(DBEdit1.Text)+'');
        ZRegPed.SQL.Add(' WHERE no = '+Quotedstr(DBEdit15.Text)+' ');
        ShowMessage(ZRegPed.SQL.Text);
        ZRegPed.ExecSQL;
        ZFactura.Post;
        ZFactura.Insert;
        end else begin
       if not ZPedido.fields[19].IsNull then <--si el campo tiene datos entoces:
        begin
        if ZFactura.State in [dsedit,dsinsert] then
        begin
        ZRegPed.SQL.Clear;
        ZRegPed.SQL.Add('UPDATE reg_pedidos SET oc_no_sigef1='+Quotedstr(DBEdit1.Text)+'');
        ZRegPed.SQL.Add(' WHERE no = '+Quotedstr(DBEdit15.Text)+' ');
        ShowMessage(ZRegPed.SQL.Text);
        ZRegPed.ExecSQL;
        ZFactura.Post;
        ZFactura.Insert;
        end else begin
       if not ZPedido.Fields[42].IsNull then <--SI el campo anterior tiene datos entonces:
        begin
        if ZFactura.State in [dsedit,dsinsert] then
        begin
        ZRegPed.SQL.Clear;
        ZRegPed.SQL.Add('UPDATE reg_pedidos SET oc_no_sigef2='+Quotedstr(DBEdit1.Text)+'');
        ZRegPed.SQL.Add(' WHERE no = '+Quotedstr(DBEdit15.Text)+' ');
        ShowMessage(ZRegPed.SQL.Text);
        ZRegPed.ExecSQL;
        ZFactura.Post;
        ZFactura.Insert;
        end;
      end else
      showmessage('No hago nada, no estoy editando');
      end;
  end;
 end;
end;
end;
end;

se que hay una mejor manera de hacerlo, ojala me puedan ayudar .

Saludos.

[Rudi]

Hola comprobé esto:

Código Delphi [-]
if ADOTable1.Fields[0].IsNull then
  ShowMessage('isnull funciona: valor true')
else
  ShowMessage('isnull funciona: valor false');

if ADOTable1.Fields[0].Value=null then
  ShowMessage('Value funciona: valor true')
else
  ShowMessage('value funciona: valor false');

y me funciono, están las dos posibles formas: .isnull y .value=null

revisa bien porque a mi me funcionó

[[enecumene]]

gracias rudi ahora mismo lo estoy revisando