小弟这里需要将excel中的两列数据导入到sql server数据表中,导入时该表的其他字段的值都是固定的,请问怎么导,能给点代码吗?
解决方案 »
- 哪位大侠能否写个 uThreadPool线程池应用的Demo。
- 请问,httpencode() 这个函数是哪个单元里的啊
- 用delphi如何监听已经存在的端口?
- 出現Row cannot be located for updating.Some values may have been changed since it was last read
- 请问怎么解决不同分辨率下窗体的显示问题?
- 请问控制台程序(console application)如果获得程序的所在路径?
- 怎么讓我寫的程序一直在后台運行
- 急急急,十万火急……(有效期:12月11日晚12点)
- 过来看看
- Delphi对多线程的支持不好?不好到什么地步?谁能跟我说说呢?谢谢
- 哪位有B/S的例子?
- 新手问题,关于ListView。
FROM OPENDATASOURCE(
'SQLOLEDB',
'Data Source=ServerName;User ID=MyUID;Password=MyPass'
).Northwind.dbo.Categories下面是个查询的示例,它通过用于 Jet 的 OLE DB 提供程序查询 Excel 电子表格。SELECT *
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\Finance\account.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions
在SQL的帮助中就可以找到这样的代码,
try
begin
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add('c:\Program files\aa.xls',0));
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Sheets[1] as _WorkSheet);
for i:=1 to 【excel行数】 do
begin
query1.append;
for j:=1 to 【excel列数】 do
begin
Query1.Fields[j-1].AsVariant:=ExcelWorksheet1.Cells.Item[3+i,j]
end;
query1.post;
end;
end
except end;
Query1.close;
可以用ADO来实现。
同意二楼。
用Insert和Update都可以。