delphi 在线救助

Question

delphi excel 如何导入数据到SQL。。谢谢

Answer 1

帮你在网络上找到这样篇文章，内容如下：
===================================================procedure Tfom1.ExcelToSQLMenuItemClick(Sender: TObject);
var
ExcelID,Sheet: Variant;
sFileName :String;
i,ExcelRowCount,OkNum,FailNum:integer;
begin
//指定文件
OkNum:=0;   //导入成功的数据
FailNum:=0; //导入失败的数据    //指定要导入的EXCEL文件 
   With hrSysDataModule.MyOpenDialog do
    begin
     DefaultExt:='Xls';
     Filter :='Excel工作簿文件（*.xls）|*.Xls';
     if Execute then
         sFileName := FileName
     else
         exit;
    end;    Try
        ExcelID := CreateOleObject( 'Excel.Application' );
        ExcelID.Visible :=False; //若为true,则将显示并打开将要导入的excel文件
   except
      on E: Exception do
      begin
        ExcelID.Quit;
        ExcelID := Unassigned;
        Application.Restore;
        Application.BringToFront;
        MessageBox(Self.Handle,Pchar('系统提示您,创建Excel对象出错,原因为:'+ e.Message), Pchar(AppliCation.Title),MB_OK+MB_ICONERROR);
        Exit;
      end;
   end;   try
      Try
        ExcelID.WorkBooks.Open(sFileName);
        Sheet:= ExcelID.WorkBooks[1].WorkSheets[1];
//        ExcelColCount := ExcelID.WorkSheets[1].UsedRange.Columns.Count;
        ExcelRowCount := ExcelID.WorkSheets[1].UsedRange.Rows.Count; //获得本数据表有多少行数据
        ADOConnection1.BeginTrans; //开始事务
        for i :=2 to ExcelRowCount do   //将要从哪行开始读,本程序为从第二行开始读,第一行为标题
        begin
          if length(trim(Sheet.Cells[i,1 ].Value)) <=0 then break;   //如果第一个单元格为空,则提前结束循环,此处也可以用其它方式结束
          With ADOQuery1 do
          begin
              close;
              SQL.Clear;
              SQL.Add('Select * from table1 where keyid like '''+Sheet.Cells[i,3 ].Value+''''); //此处指定每行第三单元格的内容为关键字,不得有重复,若有重复,则该行的数据不导入
              Open;
              if eof then
              begin
                Close;
                SQL.Clear;
                SQL.Add('Insert into table1(hrname,nameEn,sex,keyid,birthday)');
        {        SQL.Add(' values(:hrname,:nameEn,:sex,:shenfz,:birthday)');
                Parameters.parambyname('hrname').Value :=Sheet.Cells[i,1].Value;
                Parameters.parambyname('nameEn').Value :=UpperCase(getpy1(Sheet.Cells[i,1].Value));    // getpy1函数是以取得姓名的首拼
                Parameters.parambyname('sex').Value :=Sheet.Cells[i,2].Value;
                Parameters.parambyname('shenfz').Value:= String(Sheet.Cells[i,3 ].Value);                if checkisdate(trim(Sheet.Cells[i,4 ].Value)) then        //检查是不是日期格式
                    Parameters.parambyname('birthday').Value:=null
                else
                    Parameters.parambyname('birthday').Value:= Sheet.Cells[i,4 ].Value;
              } //该处括住部分为一种方式                SQL.Add(' values('''+string(Sheet.Cells[i,1].Value)+''','''+UpperCase(getpy1(string(Sheet.Cells[i,1].Value)))+''',' );
                SQL.Add(''''+string(Sheet.Cells[i,2].Value)+''','''+string(Sheet.Cells[i,3].Value)+''',' );
                if checkisdate(trim(string(Sheet.Cells[i,4 ].Value))) then
                   SQL.Add(''''+string(Sheet.Cells[i,4].Value)+ ''',' )
                else
                   SQL.Add('null,' );                SQL.Add(''''+string(Sheet.Cells[i,5].Value)+''')' );
                ExecSQL;
                OkNum:=OkNum+1;   //导入成功数加1
              end
              else
                FailNum:=FailNum+1; //若库已有相应的关键字记录,则导入失败数加1          end;
        end;
          ADOConnection1.CommitTrans; //提交事务
          MessageBox(Self.Handle,Pchar('系统提示您:系统共成功导入'+IntToStr(OkNum+FailNum)+'条信息,其中'+IntToStr(FailNum)+'条信息系统内已有记录,'+IntToStr(OkNum)+'条信息成功导入!'),
                                         Pchar(AppliCation.Title),MB_OK+MB_ICONINFORMATION);
       except
         on E: Exception do
         begin
           ADOConnection1.RollbackTrans; //报错,回滚事务
           MessageBox(Self.Handle,Pchar('系统提示您,数据导入失败,原因为:'+e.Message),
                                         Pchar(AppliCation.Title),MB_OK+MB_ICONERROR);
         end;
       end
   finally
      ExcelID.WorkBooks[1].Close(false,'');
      ExcelID.Quit;
      ExcelID := Unassigned;
      sheet := Unassigned;
      Application.Restore;
      Application.BringToFront;
      RefreshButton.Click;
   end;
end;function TForm1.checkisdate(datastring :String):boolean; //检查是不是日期
var
year,month,day:word;
begin
      try
          DecodeDate(StrToDateTime(datastring),year,month,day); //先看能否转换为日期格式,且分解为年月日
          if length(datastring)>=8 then    // 即使上句不报错,也得查看是不是类似为0:0:0这样的格式,也是错的,此处检查长度
             Result := True
          else
             Result := False;
             
          if Result then   //若以上结果为正确,,本程序还要检查是不是大于1950年
          if year > 1950 then
             Result := True
          else
             Result := False;
             
      except
          Result   :=   False;
      end;
end;

Answer 2

简单的话就用odbc为Excel建立数据源，Excel也可以作为数据源的。
这样再用Delphi就可以当成两个数据库操作，或者直接用Sql server
的导入功能导入。