delphi y excell

[NILCER]

holas como se puede pasar los datos de una hoja de excell a una base de datos en sql, o si alguien sabe como trabajar excell y sql server, si tiene informacion sobre esto mejorrrr gracias, si pueden hacerlo de excel a paradox tambien me gustaria saber como? thanks

[trunksito]

Haber si te entiendo, quieres pasar una hoja de excel a una tabla.
Ok, primero deberias de tener tu hoja de excel bien ordenada, si lo tienes entonces solo crea un objeto activeX de excel y con dos bucles obten los datos de la hoja y a medida que las obtengas los pones en una consulta sql, que luego lo pasas a tu conexion de tu base de datos, esto es para cualquier tipo de base de datos, aqui te va un ejemplo de como hacer esto:

- Primero tengo mi hoja de excel con 3 columnas, que seran mis campos en mi tabla de mi base de datos.

- segundo ejecuto el siguiente codigo que lo puse en el evento click de un boton, ademas necesitaras un control Memo :

Código: Seleccionar todo

procedure TForm1.Button4Click(Sender: TObject);
var
    appExcel: Variant;
    i, j: integer;
    sql: String;
    x: string;
const
    numCampos: integer = 3;
    numFilas: integer = 4;
   
begin
    appExcel := CreateOleObject('Excel.Application');   
    appExcel.WorkBooks.Open('C:\Excel.xls');

    Memo1.Lines.Clear;
    for i := 2 to (numfilas + 2) do // en la fila 1 esta el nombre del campo
    begin       
        sql := '';
       for j := 1 to numCampos do
        begin
           x := appExcel.WorkBooks[1].Worksheets[1].Cells[i, j];
           sql := sql + x + '''';
            if j <> numCampos then
               sql := sql + ',''';
        end;
        sql := 'insert into mitabla values(''' + sql + ')';
        Memo1.Lines.Add(sql);
    end;

    appExcel.Quit;
    appExcel := Unassigned;
end;


no te olvides de poner el uses 'ComObj' .

El resultado es:

Código: Seleccionar todo

insert into mitabla values('24','1','asfa a dsdfdf')
insert into mitabla values('3','1','asdf as fs')
insert into mitabla values('3','1','sfasfa ')
insert into mitabla values('3','1','asfa a dsdfdf')
insert into mitabla values('3','1','asdf as fs')


En tu caso, en ves de Memo1.Lines.Add(sql); deberias poner el procedimiento para que ejecute una sentencia SQL.

Suerte