在Delphi中如何将sql server中的一张表以DBF的文件形式存放在指定路径下..
解决方案 »
- 同样是dbgrideh的问题,删除记录的问题
- 求英译中翻译!高分!
- Delphi的DbGridEh的打印问题(在线等)
- 请问数组和链表各自的优缺点
- 如何在一个设为bsDialog的窗体上显示最小化按钮
- 一个奇怪的问题,在一个窗体改变不能改变另外一个窗体里控件的内容??
- FieldByName 和SQL server 中nvarchar 类型的矛盾?
- Linux2001(我想买手提电脑啊!) 到这里来取分。
- 应用程序
- 在nt/2000中如何获取当前用户的目录,在注册表中找到的是%USERPROFILE%?
- form showmodal问题 !
- 关于serversocket的onclientread事件的问题.
//source 为DBF表所在的文件夹,只需在此指定目录
ado_lj.connection:=adoconncetion3;
ado_lj.SQL.Clear;
ado_lj.SQL.Add('create table cbjl(yhbh Char(10) ,yhmc Char(20) ,cbh Char(10) ,yhdz Char(20) ,ssqy Char(20) ,khrq Char(10) ,sbqsds Char(10) ,bycbs Char(10) ,jjsl Char(10) ,cby Char(10) ,cbrq Char(10) ,yslxmc Char(16) ,yslxdj Char(10) ,yszj Char(10) ,zjje Char(10) ,cbbz Char(4),syysl Char(10),syzd Char(16),ssyzd Char(16),sssyzd Char(16))');
ado_lj.ExecSQL;
ado_lj.SQL.Text:='insert into cbjl(yhbh,yhmc,cbh,yhdz,ssqy,khrq,cby) select mid(yhbh,1,10) as yhbh,mid(yhmc,1,20) as yhmc,mid(cbh,1,10) as cbh,mid(yhdz,1,20) as yhdz,mid(ssqy,1,20) as ssqy,mid(khrq,1,10) as khrq,mid(cby,1,10) as cby from view1 IN [ODBC] [ODBC;Driver=SQL Server;UID=sa;PWD=;Server=127.0.0.1;DataBase=zls;]';
ado_lj.ExecSQL;
cbjl 为DBF表,view1 是一个视图.可以改成数据表,