Importar desde Excel campo vacio

[sonjeux]

SAludos, deseo saber como puedo saber si un determinado campo en excel esta vacio, estoy usando el siguiente codigo:

procedure TProductoListado.ImportarDatosdesdeExcel1Click(Sender: TObject);
const
xlCellTypeLastCell = $0000000B;
var Libro, hoja : OleVariant;
//Hoja : _WORKSHEET;
i:Integer;
id, fila1:String;
begin
OpenDialog1.Execute;
if OpenDialog1.Files.Text<>'' then
if Application.MessageBox('Desea importar el archivo seleccionado?.','Advertencia', MB_YESNO+MB_ICONQUESTION)=IDYES then
begin
i:=1;
Libro:=CreateOleObject('Excel.Application');
(*Libro:=ExcelApplication1.Workbooks.Open('c:\productos.xls', EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, 0);*)
Libro.Workbooks.Open(OpenDialog1.FileName);

hoja := Libro.Workbooks[ExtractFileName(OpenDialog1.FileName)].WorkSheets[1];
hoja.Cells.SpecialCells(xlCellTypeLastCell, EmptyParam).Activate;

//ShowMessage(IntToStr(Libro.ActiveCell.Row));

fila1:=hoja.Cells.Item[1,1];
if fila1='ID' then
begin
Medidor.Show;
Medidor.ProgressBar1.Max:=Libro.ActiveCell.Row;
Medidor.ProgressBar1.Step:=1;
for i:=2 to Libro.ActiveCell.Row do
begin
id:=hoja.Cells.Item[i,1];
if id<>''then
begin
if id<>'0' then
begin
IBQConsulta.Close;
IBQConsulta.ParamByName('codigo').AsString:=hoja.Cells.Item[i,2];
IBQConsulta.ParamByName('nombre').AsString:=hoja.Cells.Item[i,4];
IBQConsulta.ParamByName('comprasf').AsFloat:=hoja.Cells.Item[i,6];
IBQConsulta.ParamByName('comprascf').AsFloat:=hoja.Cells.Item[i,7];
IBQConsulta.ParamByName('precioa').AsFloat:=hoja.Cells.Item[i,8];
IBQConsulta.ParamByName('preciob').AsFloat:=hoja.Cells.Item[i,9];
IBQConsulta.ParamByName('precioc').AsFloat:=hoja.Cells.Item[i,10];
IBQConsulta.ParamByName('preciod').AsFloat:=hoja.Cells.Item[i,11];
IBQConsulta.ParamByName('id').AsString:=hoja.Cells.Item[i,1];
IBQConsulta.Open;
end
else
begin
IBQProducto.Close;
IBQProducto.ParamByName('id_categoria').AsString:=hoja.Cells.Item[i,14];
IBQProducto.ParamByName('id_sub_categoria').AsString:='0';
IBQProducto.ParamByName('id_marca').AsString:='0';
IBQProducto.ParamByName('id_medida').AsString:='0';
IBQProducto.ParamByName('codigo').AsString:=hoja.Cells.Item[i,2];
IBQProducto.ParamByName('serie').AsString:=hoja.Cells.Item[i,3];
IBQProducto.ParamByName('nombre').AsString:=hoja.Cells.Item[i,4];
IBQProducto.ParamByName('modelo').AsString:=hoja.Cells.Item[i,5];
IBQProducto.ParamByName('descripcion').AsString:='0';
IBQProducto.ParamByName('preciocsf').AsFloat:=hoja.Cells.Item[i,6];
IBQProducto.ParamByName('precioccf').AsFloat:=hoja.Cells.Item[i,7];
IBQProducto.ParamByName('precioventaa').AsFloat:=hoja.Cells.Item[i,8];
IBQProducto.ParamByName('precioventab').AsFloat:=hoja.Cells.Item[i,9];
IBQProducto.ParamByName('precioventac').AsFloat:=hoja.Cells.Item[i,10];
IBQProducto.ParamByName('precioventad').AsFloat:=hoja.Cells.Item[i,11];
IBQProducto.ParamByName('imagen').AsString:='0';
IBQProducto.ParamByName('observaciones').AsString:='0';
IBQProducto.ParamByName('cantidad_min').AsString:=hoja.Cells.Item[i,12];
IBQProducto.ParamByName('cantidad_max').AsString:=hoja.Cells.Item[i,13];
IBQProducto.ParamByName('activo').AsString:='1';
IBQProducto.ParamByName('servicio').AsString:='0';
IBQProducto.ParamByName('compuesto').AsString:='0';
IBQProducto.Open;
end
end;
Medidor.ProgressBar1.StepIt
end;
IBQProductos.Close;
IBQProductos.Open;
//IBProducto.Refresh;
Medidor.Close;
end
else
Application.MessageBox('No se puede importar los datos!.','Error', MB_OK+MB_ICONERROR);
Libro.Quit;
end
end;

Y lo que quiero hacer, es ver si determinado campo no tiene ningun valor. Como puedo hacerlo? Gracias

[delphi.com.ar]

Pregunta... (sin haberlo hecho previamente)... Las celdas no te retornan un variant?....
En ese caso asigná el la propiedad "Value" del campo directamente al valor de la celda, si es en ese caso quedará como NULL.

Saludos!

[sonjeux]

Hola gracias por contestar, probe lo que me dijiste de ponerle value y no funciono, me sigue saliendo error, el problema es cuando la celda de excel esta vacia.

Tambien probe asi y nada:

IBQConsulta.ParamByName('codigo').AsString:=Libro.cells[i,2].value;
IBQConsulta.ParamByName('nombre').Value:=Libro.Cells[i,4].Value;
IBQConsulta.ParamByName('comprasf').Value:=Libro.Cells[i,6].Value;

y el error que me sale es el siguiente:

http://www.hostingphpbolivia.com/Dibujo.GIF

Como puedo hacer para que no me salga error si la celda de excel esta vacia?

[ElKurgan]

Hablo de memoria, por lo que no se si he acertado o no, pero creo que al tratarse de Variants, hay una función que te devuelve "True" si el valor es nulo (VarIsNull o algo así). Puedes usarlo en algún if, del tipo que si es nulo se cargue un cero.

Un saludo

[delphi.com.ar]

Creo que el tema no debería pasar por averiguar si estos datos son null o no, para este caso una opción es utilizar VarIsNull como responde ElKurgan. Pero en realidad creo que pasa por decidir un poco sobre tu modelo de datos, si tu modelo no acepta un campo null... ¿Es correcto que se ingrese ese registro?... si es correcto, entonces tu modelo no tendría que tener esa restricción, si el campo null es cambiado por otro valor, también pondría esto en el diseño de tu base de datos.

Saludos!