原代码部分
-------------------------------------------
For each x in rstData.fields
strLine = strLine &x.name &chr(9)
next
------------------------------------------
替换为如下部分
-----------------------------------------
dim aa
for each x in rstData.Fields
aa=""
select case x.name
case "name"
aa="姓名"
case "date"
aa="日期"
case "备注"
aa="备注"
case "张三"
aa="章三"
......
end select
strLine = strLine &aa&chr(9)
next
----------------------------------------
注意:所有表的列名都必须重新定义
好像access里面不能直接修改mssql 好像可以
EXEC sp_rename 't.[NAME]', 'name', 'COLUMN'
--------你可以删除再创建该字段
或者
SELECT NAME AS name FROM ....将改为临时字段
Adodc1.RecordSource=
"select
*
from
产品类别
where
[name]='"
+
trim(s)
+
"'"
你的意思应该是这样的吧,注意检查一下汉字周围是否有中文空格,表名是否正确,或是可以把表名和
改一下试试,因为尽是少用中文名及类似于系统
保留字
的标识来定义表名和字段名
另:字符串连接应该用+或&
原来是这样
,你的产品类别又做表名,又做字段名,肯定有一个地方弄错了,from后面只能跟表名的,where
后面应该用字段,检查一下吧
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)