在delphi中如何把记事本中的内容导进SQL中(100分)

  • 主题发起人 主题发起人 pacific66
  • 开始时间 开始时间
P

pacific66

Unregistered / Unconfirmed
GUEST, unregistred user!
1。 在DELPHI中,怎样才能把记事本中的内容导入数据库。
2。 在DELPHI中,又怎样把库中的内容导出到WORD或者excel中
小弟非常着急,如果能帮忙,我不胜感激。先谢谢各位了!!!
能用代码提示最好了。
 
//bde要设置blobsize否则存进去,读不出来完整
数据库SQL Server,存放文件的字段类型Image
Create Table MyTable
(
FileName VarChar(20),
FileSource Image
)
存放文件到数据库

var FileName :String;
FileName := ExtractFileName(OpenDialog1.FileName);
with Query do
begin
Close;
Sql.Clear;
Sql.Add('INSERT INTO MyTable VALUES (:FileName,:FileSource)');
ParamByName('FileName').AsString := FileName;
ParamByName('FileSource').LoadFromFile(OpenDialog1.FileName,ftBolob);
ExecSQL;
end;



从数据库中取出文件

var FileName :String;
begin
with Query do
begin
Close;
Sql.Clear;
Sql.Add('SELECT * FROM MyTable WHERE FileName = '?'');
Open; FileName := 'c:/'+FieldByName('FileName').AsString;
(FieldByName('FileSource') AS TBlobField).SaveToFile(FileName);
end;
end;
 
从文本文件中导入数据库中如何来???
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1048662 [:)]
 
谢谢jrq的热情答复(会有相应报酬的)。
怪小弟没把问题写清楚,纯文本文件的内容是记录的形式,如:
姓名 性别 年龄 岗位
张三 男 22 软件开发
李四 女 22 护士
把这些内容分别以记录的形式读进表中。
 
多人接受答案了。
 

Similar threads

后退
顶部