如何将SQL数据库的字段按照数据库设计的长度导成文本文件(100分)

Z

zhanghui6868

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-13

• #1

str:='GASS'+trim(inttostr(bz))+trim(inttostr(nextbz));
str:=trim(str)+#13+#10;
while not DM_SP.DataSet1.eof do
begin//4
for n:=0 to DM_SP.DataSet1.FieldCount-1 do
begin//5
str2:=DM_SP.DataSet1.Fields[n].AsString;
str:=str+str2;
end;//5
writeln(filename,str);
str:='';
DM_SP.DataSet1.Next;
end;//4
closefile(filename);

代码是上边的；导出文本后，总是把空格给去掉了。大家帮我看看是什么问题，谢谢！◎！

 

Z

zywcd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-13

• #2

在找到原因之前，你可以使用代码把空格加上。
str:='GASS'+trim(inttostr(bz))+trim(inttostr(nextbz));
str:=trim(str)+#13+#10;
while not DM_SP.DataSet1.eof do
begin//4
for n:=0 to DM_SP.DataSet1.FieldCount-1 do
begin//5
str2:=DM_SP.DataSet1.Fields[n].AsString
+StringOfChar(' ',DM_SP.DataSet1.Fields[n].size-length(str2));
str:=str+str2;
end;//5
writeln(filename,str);
str:='';
DM_SP.DataSet1.Next;
end;//4
closefile(filename);

 

Z

zhanghui6868

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-13

• #3

谢谢啊。就是这个问题。非常感谢。我的QQ105901117.有时间加我啊。

 

Z

zywcd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-13

• #4

解决了？

 

Z

zhanghui6868

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-13

• #5

是啊。谢谢你
怎么联系你啊。有QQ吗？

 

Z

zhanghui6868

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-13

• #6

str:='GASS'+trim(inttostr(bz))+trim(inttostr(nextbz));
str:=trim(str)+#13+#10;
while not DM_SP.DataSet1.eof do
begin//4
for n:=0 to DM_SP.DataSet1.FieldCount-1 do
begin//5
str2:=DM_SP.DataSet1.Fields[n].AsString;
str2:=DM_SP.DataSet1.Fields[n].AsString
+StringOfChar(' ',DM_SP.DataSet1.Fields[n].size-length(str2));
str:=str+str2;
end;//5
writeln(filename,str);
str:='';
DM_SP.DataSet1.Next;
end;//4
closefile(filename);

 

Z

zywcd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-13

• #7

看我的信息不就有啊。

 

Z

zhanghui6868

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-13

• #8

请教个DLL方面的问题
function GatherClient(GatherFilechar;strGatherReceiverIPchar;iGatherReceiverPort:integer):integer;stdcall external 'GatherClient.dll';//隐式调用Dll函数

GatherClient('GASS060719102338.txt','127.0.0.1',19275);
上面的一个是声明，一个是调用 ；
运行时系统提示：access violation at adress6bc8bc2 in module mfc42.dll
是什么问题啊？希望大家帮助。
谢谢。

 

Z

zhanghui6868

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-13

• #9

希望zywcd帮助啊。谢谢。

 

Z

zywcd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-13

• #10

dll是vc的？