导入和导出

Question

不用那么麻烦了，如果你用ADO，那么直接adoquery1.savetofile(filename)就可以啦。取的时候adoquery1.loadfromfile(filename).

Answer 1

有那位大虾知道在dbgrid中的数据表是有哪个属性吗？
例如：我想做一个简单我的保存我在没有本文输入，
我直接想如果插入数据能保存，没有插入数据就显示插入一行数据：
我在点按钮增加输入数据，在按保存就保存完毕，
但是我在DBGRID中的数据不是知道是什么写，
有那位大虾知道在dbgrid中的数据表是有哪个属性吗？
例如：我想做一个简单我的保存我在没有本文输入，
我直接想如果插入数据能保存，没有插入数据就显示插入一行数据：
我在点按钮增加输入数据，在按保存就保存完毕，
但是我在DBGRID中的数据不是知道是什么写，
begin
if dbgrid1.active  then           //我想要的答案是这是关键，在DBGRID中的一个属性我不知道，
       showmessage('请插入一行')
  else
adoquery1.Post;
showmessage('数据保存成功！');
tb_save.Enabled :=false;
end;

Answer 2

ADOConnection.Execute('Select * Into [Text;Database=c:\temp].xw.txt From temp');
temp 为sql数据库。
xw.txt 在c盘的temp目录之下。
可以很方便得把数据库的数据导出为txt文件

Answer 3

SELECT * into temp
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\temp\";User ID=Admin;Password=;Extended properties=Text')...[xw#txt]
反之 从硬盘导入文本文件。也很方便
opendatasource 你可以参照sqlserver 2k 的联机帮助

Answer 4

： leobearcn(七月流火)  兄弟了我做的不是与ACESS连接的而是和SQL连接的数据库的，
我

Answer 5

procedure Tw_gzxm.tb_lClick(Sender: TObject);
var
 SOverwrite:string;
begin
  if SaveDialog1.Execute then
  begin
  SOverwrite := 'OK to overwrite %s';
    if FileExists(SaveDialog1.FileName) then
      if MessageDlg(Format(SOverwrite, [SaveDialog1.FileName]),
        mtConfirmation, mbYesNoCancel, 0) <> idYes then Exit;
       FFileName := SaveDialog1.FileName;
    adoquery1.savetofile(FFileName);
end;
end;
end.
我这个不是在文本格式保存了，但是可以保存了，不能打开了，谢谢！

Answer 6

： leobearcn(七月流火)  兄弟了我做的不是与ACESS连接的而是和SQL连接的数据库的，
我
/?????
我说的就是sql数据库如何导出文件为txt阿
ADOConnection.Execute('Select * Into [Text;Database=c:\temp].xw.txt From temp');
temp 为sql数据库。
xw.txt 在c盘的temp目录之下。
可以很方便得把数据库的数据导出为txt文件

Answer 7

ADOConnection.Execute('Select * Into [Text;Database=c:\temp].xw.txt From temp'）
从你这里看的出什么有目录了，如果我要保存在随便那个盘里有什么样了，
D盘有什么样了

Answer 8

ADOConnection.Execute('Select * Into [Text;Database=c:\temp].xw.txt From temp'）
从你这里看的出什么有目录了，如果我要保存在随便那个盘里有什么样了，
D盘有什么样了
//==============
这个难道不可以么？
VAR 
SqlStr : string;
begin
  SqlStr = 'Select * inot [text:DataBase=' + PathName+'].'+FileName+'.txt from temp';
  AdoConnection.execute(Sqlstr) ;  

Answer 9

FileNameFileName里面是什么了，要写什么路径还没有给他值
还有
  SqlStr = 'Select * inot [text:DataBase=' + PathName+'].'+FileName+'.txt from temp';
会报错了

Answer 10

FileNameFileName里面是什么了，要写什么路径还没有给他值  SqlStr = 'Select * inot [text:DataBase=' + PathName+'].'+FileName+'.txt from temp'
报错说没有找到temp
temp为数据库