Inserir valor NULL usando Tquery
Tenho uma aplicação com Delphi6 e Interbase.
Coloquei um comando sql de inserção:
sql.clear;
sql.add(inser into tabela values(:codigo, :xxx, :codigo2);
O codigo2 foi definido na tabela como integer como eu faço para passar esso codigo null dentro do DELPHI6
ex.:
query.parambyname(´codigo´) := 12541
query.parambyname(´xxx´).asstring := ´dfdfddfd´
if dbcodigo2.text = ´´ then
query.parambyaname(codgigo2).asinteger := ´null´ <-----
else
query.parambyaname(codgigo2).asinteger := 10225;
query.sqlexec;
desde já agradeço.
Coloquei um comando sql de inserção:
sql.clear;
sql.add(inser into tabela values(:codigo, :xxx, :codigo2);
O codigo2 foi definido na tabela como integer como eu faço para passar esso codigo null dentro do DELPHI6
ex.:
query.parambyname(´codigo´) := 12541
query.parambyname(´xxx´).asstring := ´dfdfddfd´
if dbcodigo2.text = ´´ then
query.parambyaname(codgigo2).asinteger := ´null´ <-----
else
query.parambyaname(codgigo2).asinteger := 10225;
query.sqlexec;
desde já agradeço.
Márcio
Curtidas 0
Respostas
Cac2000
25/04/2003
Ao invés de:
if dbcodigo2.text = ´´ then
query.parambyaname(codgigo2).asinteger := ´null´ <-----
else
query.parambyaname(codgigo2).asinteger := 10225;
use:
if dbcodigo2.text = ´´ then
query.parambyaname(codgigo2).Value := null
else
query.parambyaname(codgigo2).asinteger := 10225;
Se vc estiver usando delphi 6 pra cima, deve declarar Variants na cláusula uses da unit
if dbcodigo2.text = ´´ then
query.parambyaname(codgigo2).asinteger := ´null´ <-----
else
query.parambyaname(codgigo2).asinteger := 10225;
use:
if dbcodigo2.text = ´´ then
query.parambyaname(codgigo2).Value := null
else
query.parambyaname(codgigo2).asinteger := 10225;
Se vc estiver usando delphi 6 pra cima, deve declarar Variants na cláusula uses da unit
GOSTEI 0
Steve_narancic
25/04/2003
tentei desta forma e o houve erro de ´is of an unknown type´
GOSTEI 0
Steve_narancic
25/04/2003
Resolvi adicionando a linha de código
query.ParamByName(´CAMPO´).DataType := ftInteger;
GOSTEI 0