1。你如果装了sql server
可以用它把数据导出道文本中;很方便2。自己写程序
with not qry.eof do
begin
txt.writeln
for i:=0 to qry.fieldcount-1 do
txt.write(qry.fileds[i].asstring+' ')
qry.next
end;
可以用它把数据导出道文本中;很方便2。自己写程序
with not qry.eof do
begin
txt.writeln
for i:=0 to qry.fieldcount-1 do
txt.write(qry.fileds[i].asstring+' ')
qry.next
end;
解决方案 »
- 有小数就进一位的函数怎么写?
- 一个关于时间查询的问题
- 如何控制自制组件的外观和大小?
- 聽某人說delphi的奇數版本是穩定版本,所以最好用dephi5,delphi7,不用delphi6,8, 是這樣嗎?
- 同志们有谁知道“山东中创软件公司”怎么样啊?知道的进来说说,不知道的up一下,狂给分~
- 问题怪啊,大家看看!!
- delphi的memo的一行怎么把他用一种颜色高亮显示
- 如何处理复杂的复数混合运算
- 三个简单的MISDA问题,一:服务端如何获得当前客户端的列表极其信息,二:服务端如何捕捉客户端的断线的消息(包括客户端意外断线的错误)三:服务端如何对客户端下达命令
- 时间的比较
- about 数据敏感控件
- DBRadioGroup怎么用,对应什么字段?
但编译时总是有错误。以下是我的程序
procedure TForm1.Button1Click(Sender: TObject);
var
MyText:TextFile;
i:integer;
begin
AssignFile(MyText,'MyTextFile.txt');
Rewrite(MyText);
try
with not table1.Eof do
begin
for i:=0 to table1.fieldcount-1 do
writeln(Mytext,table1.fields[i].asstring)
Next
end finally
CloseFile(MyText);
end;
end;
var
MyText:TextFile;
i:integer;
begin
AssignFile(MyText,ExtractFilePath(Paramstr(0))+'MyTextFile.txt');
Rewrite(MyText);
try
TABLE1.FIRST;
WHILE not table1.Eof do
begin
for i:=0 to table1.fieldcount-1 do
writeln(Mytext,table1.fields[i].asstring);
Next
end
finally
CloseFile(MyText);
end;
end;
其实并没有那么多数据,为什么呀?帮帮我!