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