用delphi如何实现把sql server2k中的表记录导入Excel文档中

2003-07-07 05:17:59 83 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

本地部署AI大模型接入企业系统实战指南本地部署AI大模型是指将参数量3B以上的语言模型（如Qwen2-7B、Phi-3-mini）完整运行于客户自有服务器，实现数据不出域、推理不依赖公有云API。其核心原理是通过分层架构解耦：底层用vLLM/llama.cpp做高性能推理，中层以FastAPI构建可鉴权、可熔断、可监控的AI服务网关，上层按需适配OA/CRM/Excel等异构系统。该方案显著提升数据主权保障能力与业务系统耦合深度，广泛应用于医疗器械合规审核、零售退货分析、教育作文批改等强隐私、高集成场景，真正让大模型从技术Demo走向生产级业务阅读详情

1。用delphi如何实现把sql server2k中的表记录导入新建的excel文档中
2。用delphi如何实现把sql server2k中的表记录附加导入已存在的excel文档中

...全文

基于深度视觉实现机械臂对目标的识别与定位 Marker ID 和 Marker size 自选，在 launch 文件中做相应的修改（本教程演示使用 Marker ID：582，Marker size：30mm）根据相机和机械臂的安装方式不同，手眼标定分为眼在手上和眼在手外两种方式，双臂机器人的相机和机械臂基座的相对位置固定，所以应该采用眼在手外的手眼标定方式。后续的视觉引导机械臂抓取测试实验基于本实验实现，通过视觉引导右臂完成抓取目标物，所以默认已使用机械臂右臂和相机完成了手眼标定。文件，根据打印的marker 标签，需要配置。阅读详情

dggh

数据库相关 2,508 成员 88,437 内容

+ 关注 + 加入社区

切换为时间正序

星星 2003-07-07

打赏
举报

用CreateOleObject,搜索一下以前帖子或在Google上找找,很多的!

newsofter 2003-07-07

打赏
举报

Procedure TurnToExcel(TmpDBGrid:TDBGrid);
var
MyExcel: Variant;
WorkBook: OleVariant;
WorkSheet: OleVariant;
i,j:integer;
xlsfilename :string;
Savedialog1 :TSaveDialog;
fieldCount1 :Integer;
begin
FieldCount1 :=0;
for j:=0 to TmpDBGrid.Columns.Count-1 do
if TmpDBGrid.Columns[j].Visible=true then
Inc(FieldCount1);
with TmpDBGrid.DataSource.DataSet do
if (Active) and (recordCount>0) then
begin
if Application.MessageBox(Pchar('共〖'+IntToStr(RecordCount)+' 行记录,'+IntToStr(FieldCount1)+' 列〗，确认导出到Excel？'),App_caption,MB_ICONQUESTION+MB_YESNO)=mrno then
Abort;
end
else
Abort;
SaveDialog1 :=TSaveDialog.create(Application);
SaveDialog1.Filter := 'Excel文件(*.xls)|*.XLS';
if savedialog1.Execute then
if savedialog1.FileName <>'' then
begin
xlsfilename :=savedialog1.FileName;
try
MyExcel:=CreateOleObject('Excel.Application');
MyExcel.Application.WorkBooks.Add;
MyExcel.Caption:='将数据导入到EXCEL表中';
MyExcel.Application.Visible:=false;
WorkBook:=MyExcel.Application.workbooks[1];
worksheet:=workbook.worksheets.item[1];
except
Application.MessageBox('EXCEL不存在！',App_caption,MB_ICONERROR+MB_OK);
Savedialog1.Free;
workBook.Saved := True;
WorkBook.close;
MyExcel.Quit;//释放VARIANT变量
MyExcel:=Unassigned;
end;
i:=1;
Frm_system_progress :=TFrm_system_progress.create(Application);
Try
with TmpDBGrid.DataSource.DataSet do
begin
Open;
DisableControls;
with Frm_system_progress.ProgressBar_temp do
begin
min :=0;
max :=TmpDBGrid.Columns.Count*recordcount;
Position :=0;
end;
Frm_system_progress.label_progress.caption :='正在导出到Excel...';
Frm_system_progress.Show;
Frm_system_progress.update;
for j:=0 to TmpDBGrid.Columns.Count-1 do
begin
if TmpDBGrid.Columns[j].Visible=true then
worksheet.cells[1,j+1]:=TmpDBGrid.Columns[j].Title.Caption;
end;
First;
while not Eof do
begin
inc(i);
for j:=0 to TmpDBGrid.Columns.Count-1 do
begin
if TmpDBGrid.Columns[j].Visible=true then
begin
worksheet.cells[i,j+1].NumberFormatLocal :='@';
worksheet.cells[i,j+1]:=TmpDBGrid.Columns[j].Field.AsString ;
Frm_system_progress.ProgressBar_temp.StepIt;
end;
end;
next;
end;
EnableControls;
end;
WorkBook.saveas(XlsFileName);
Frm_system_progress.ProgressBar_temp.position :=TmpDBGrid.Columns.Count*TmpDBGrid.DataSource.DataSet.RecordCount;
Application.MessageBox('导出到Excel成功！',App_caption,MB_ICONINFORMATION+MB_OK);
Frm_system_progress.Free;
MyExcel.Quit;
MyExcel := Unassigned;
Savedialog1.Free;
except
Application.MessageBox('导出到Excel失败！',App_caption,MB_ICONWARNING+MB_OK);
workBook.Saved := True;
WorkBook.close;
MyExcel.Quit;//释放VARIANT变量
MyExcel:=Unassigned;
Frm_system_progress.Free;
Savedialog1.Free;
end;
end;

end;

lqdmafeng 2003-07-07

打赏
举报

procedure TForm1.ExportData(DsTemp:TDataSource;DstTemp:TAdoDataSet);
var
ss : TStrings;
i, j : integer;
s, sFields, sTitle : string;
begin
if sdSave.Execute then
begin
sFields := ';';
sTitle := '';
For i := 0 to Self.ComponentCount - 1 do
if (Self.Components[i] is TDBGrid) then
begin
if (Self.Components[i] as TDBGrid).DataSource = DsTemp then
begin
For j := 0 to (Self.Components[i] as TDBGrid).Columns.Count - 1 do
begin
sTitle := sTitle + (Self.Components[i] as TDBGrid).Columns[j].Title.Caption + #9;
sFields := sFields + (Self.Components[i] as TDBGrid).Columns[j].FieldName + ';';
end;
end;
end;
j := DstTemp.FieldCount - 1;
DstTemp.First;
ss := TStringList.Create;
ss.Add(sTitle);
while not DstTemp.Eof do
begin
s := '';
if sFields <> ';' then
begin
for i := 0 to j do
if (Pos(';'+DstTemp.Fields[i].FieldName+';', sFields) > 0)
or (DstTemp.Fields[i].DataType = ftMemo) then
s := s + DstTemp.Fields[i].asstring + #9;
end
else
begin
for i := 0 to j do
s := s + DstTemp.Fields[i].asstring + #9;
end;
ss.Add(s);
DstTemp.Next;
end;
ss.SaveToFile(sdSave.FileName);
ss.free;
end;
end;

sdsave.filename设为EXCEL文件。

firetoucher 2003-07-07

打赏
举报

直接调用bcp或者dts就行了

things 2003-07-07

打赏
举报

1搜一下以前的帖子
2打开已导入数据的EXCEL文件，根据记录行数确定增加数据的起始行数，然后循环导入。

用delphi如何实现把sql server2k中的表记录导入Excel文档中

相关推荐