数据库是sql server,现在要实现这样的功能,在地方上使用的数据要能导入软盘,然后带到市里,市里将上报的数据到入数据库,数据实现追加,如何实现,我现在的数据库叫db1,需导入的表有table1,table2,如何实现将表导入软盘,然后又实现追加? 导入的时候有重复数据如何实现重复数据的删除和合并? 谁能回答对一定加分。
解决方案 »
- 如何用鼠标右键选中TTreeView控件中的节点?
- 关于在 简体 系统下 开发 使用 BIG5 编码系统 的程序 的问题!!!!!!!!!!!!
- 如何编程实现录制伴奏音??????
- 再放分,我的信誉分怎么变101了?升了。哈哈
- 我终于找到了<Delphi6 Kylix2 SOAP Web Service程序设计篇〉, bitsbird(路……) 来拿分
- 找工程师 --DELPHI/SQLSERVER
- 如何实现线条的即打即停
- 谁知道强制关机的原理吗?我有一个想法
- 三层的问题
- 请问,怎样用代码通过知道计算机名
- 鼠标画线的问题
- 救救我呀,各位?到底用什么才能把JPG图片通过DBIMAGE加入到DBASE的BLOB字段中?
直接使用insert into opendatesource('','') select * from table1将数据插入Access文件中。
导入数据时使用主键进行判断,重复的就先删除,然后将Access中的数据整体插入到SqlServer中。
你的程序只是完成将给定的表导成文本,压缩, 将文件转化成临时表.
adoquery1.SQL.Text:='SELECT * INTO OPENROWSET(''Microsoft.Jet.OLEDB.4.0'',''c:\db1.mdb'';''sa'';''12345678'',固定资产表) AS a FROM 固定资产表 '';
你写出具体的代码吗,或发到我的信箱[email protected]我收到后如果可以一定给你加分。
一、采用BCP(必须是mssql server数据库)
二、用ClientDataSet控件的SaveToFile保存导出文件,LoadFromFile导入文件,
要导入数据库还得调用下面过程:
procedure TForm1.DataImport(DataQA:TClientDataSet;sqlstr:WideString;loadfile:String);
var
i:Integer;
Field:TField;
begin
try
with CDS_in do begin
Close;
CommandText:=sqlstr;
Open;
end;
with DataQA do begin
LoadFromFile(loadfile);
First;
while not eof do
begin
CDS_in.Append;
for i:= 0 to CDS_in.FieldCount-1 do
begin
Field:= FindField(CDS_in.Fields[i].FieldName);
if Field <> nil then
begin
if not Field.ReadOnly then
CDS_in.FieldByName(Field.FieldName).Value:=FieldByName(Field.FieldName).Value;
end;
end;
Next;
end;
end;
CDS_in.ApplyUpdates(-1);
CDS_in.Close;
except
Application.MessageBox('数据导入失败!请您重试...','提示信息',0+MB_IconError);
end;
end;