[coletaun]

Hola a todos:

Tengo el sigiente codigo:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
  Excel, Libro: Variant;
  i: integer;
  cliente,telefono: string;
begin
  Excel:=CreateOleObject('Excel.Application');
  Excel.Visible := False;
  Excel.DisplayAlerts:= False;
  Excel.WorkBooks.Add('C:\mail_sms\telefonos.xlt');
  Excel.WorkBooks[1].WorkSheets[1].Name := 'telefonos';
 Libro := Excel.WorkBooks[1].WorkSheets['telefonos'];
                       cliente:='1234';

                                i:=1;
                               repeat

                    telefono:=Libro.Cells[i,1];
                            i:=i+1;
 
                                tabla.SQL.Clear;
                                          tabla.SQL.Add(' INSERT INTO `cola_xml` (`COLA`, `CLIENTE`,`FECHA` ) VALUES('+Quotedstr(telefono)+', '+Quotedstr(cliente)+',now())');
                                       tabla.execsql;
 
                           until Excel.Cells[i,1].value = 0;

          ShowMessage(' El fichero de telefonos.xlt ha sido creado exitosamente');
 Excel.Quit;
 

end;

Cuando recoge los datos y los inserta en la tabla cola_xml, lo hace perfectamente, hasta que encuentra un registro en la celda que contiene algun espacio, caracter de texto etcc.

me da el siguiente mensaje de error :

"could not comvert variant of type(olestr) into tyoe (double) "

¿como meto en el campo de la tabla mysql cualqueir valor de las celdas con cualquier caracter?

Gracias de antemano