ado控件如何使用**

米洛

目的是将表数据输出为DBASE3的dbf文件

在窗体放置了ado　的　connectcommand控件
做了一个udl文件，没有登陆服务器信息。
将文件的字串拷入connect的connectstring属性
command的conn选connect控件，
执行程序
lstr:='c:aa';
ADOComm.CommandText := 'create table '+lstr+' (cno nvarchar(10),cname nvarchar(10),zhje float(10,2),jje float(10,2),bje float(10,2))';
   ADOComm.Execute;
   ADOComm.CommandText:=' insert into '+lstr+' select cno,cname,zhje,jje,bje from YL_PRINTJBTEMP where (lb=''ynmz'') and tjrid='''+lcno+'''';
   ADOComm.Execute;
在第３句　   ADOComm.Execute;
出错，如何处理？

julio

为何要新建表呢？可以先放置一个DBF格式的空表，然后每次复制一个就可以了！

alang

比较一下，这是你的
lstr:='c:\aa';
ADOComm.CommandText := 'create table '+lstr+' (cno nvarchar(10),cname nvarchar(10),zhje float(10,2),jje float(10,2),bje float(10,2))';

这是我的
ADOCommand1.CommandText := 'create table aa (f1 char(10))';

你把lstr字符串上去掉c:\
还有，不要用复杂的数据类型，DBF支持的数据类型有限

米洛

改为
ADOComm.CommandText := 'create table aa (cno char(10),cname char(10),zhje float(10,2),jje float(10,2),bje float(10,2))';
如下图。
我觉得应该是command或connect控件哪个属性没设好的问题，另外，没有指定路径这个文件存哪呢？

connectstring值为　Provider=MSDASQL.1ersist Security Info=False;Extended Properties="DSN=dBASE Files;DBQ=C:;DefaultDir=C:;DriverId=533;MaxBufferSize=2048ageTimeout=5;";Initial Catalog=C:

dsn取的是odbc源里操做系统缺省为dbf文件指定的驱动。

alang

看我做的例子，可以导入导出的

米洛

解压的例子如何引入？看不了。

alang

你修改DBF信息中的 导出数据集 指向系统数据集就可以了

米洛

DBF信息中的只有一个数据基：导入的数据集
没有 导出数据集
我按提示的ID名 dcdsjj 重做一个导出的数据集（标准数据集），不被认可。
功能程序无法运行。

我打开窗口，将其中的ado组件及相关语句拷入我自己的窗口运行
错误一样，还是rtl60 错误

另外做一个sql 的udl语句，测试链接通过，拷到connect组件的链接语句属性中，在执行execute语句时同样rtl60 错误

alang

我用发布工具给你导一个吧

米洛

真是麻烦你了