Foxtable(狐表)用户栏目专家坐堂 → [求助]一个SQL按钮代码


  共有23891人关注过本帖树形打印复制链接

主题:[求助]一个SQL按钮代码

帅哥哟,离线,有人找我吗?
migold
  11楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:447 积分:4572 威望:0 精华:0 注册:2009/1/11 11:00:00
  发帖心情 Post By:2009/7/27 14:52:00 [只看该作者]

就是把你调是通过的SQL语句保存在一个文本文件中,将定保存在文件c:\data\inset.txt
cmd.commandtext = filesys.readalltext("c:\data\inset.txt")

这个OK,很好

请问一下,里面有一句,是要变量的,怎样搞:
insert into MiMonthTotal (mode,Stor_ID,Stor_Code,Stor_Name,Unit_ID,Unit_Code,Unit_Name,Emp_ID,Emp_Code,Emp_Name,Prod_ProdType,Prod_Back1,BillDate,BillType,Prod_Number1,Prod_Number2,Prod_Number3,DisMoney1,DisMoney2,DisMoney3,CostMoney1,CostMoney2,CostMoney3,ProfitMoney)
select '1' AS 'mode',
 f.s_ID AS 'Stor_ID',f.u_Code AS 'Stor_Code',f.u_Name AS 'Stor_Name',
 '0' AS 'Unit_ID','0' AS 'Unit_Code','0' AS 'Unit_Name',
 '0' AS 'Emp_ID','0' AS 'Emp_Code','0' AS 'Emp_Name',
 e.ProdType AS 'Prod_ProdType',
 '0' AS 'Prod_Back1',
 left(b.billdate,7) AS 'BillDate',left(d.billname,2) AS 'BillType',
 sum(case when billtype2 in ('4','16') then 0 else isnull(Prod_Number,0) end) AS 'Prod_Number1',
 sum(case when billtype2 in ('4','16') then -isnull(Prod_Number,0) else 0 end) AS 'Prod_Number2',
 sum(case when billtype2 in ('4','16') then -isnull(Prod_Number,0) else isnull(Prod_Number,0) end) AS 'Prod_Number3',
 sum(case when billtype2 in ('4','16') then 0 else isnull(DisMoney,0) end) AS 'DisMoney1',
 sum(case when billtype2 in ('4','16') then -isnull(DisMoney,0) else 0 end) AS 'DisMoney2',
 sum(case when billtype2 in ('4','16') then -isnull(DisMoney,0) else isnull(DisMoney,0) end) AS 'DisMoney3',
 sum(case when billtype2 in ('4','16') then 0 else isnull(CostMoney,0) end) AS 'CostMoney1',
 sum(case when billtype2 in ('4','16') then -isnull(CostMoney,0) else 0 end) AS 'CostMoney2',
 sum(case when billtype2 in ('4','16') then -isnull(CostMoney,0) else isnull(CostMoney,0) end) AS 'CostMoney3',
 sum(case when billtype2 in ('4','16') then -(isnull(dismoney,0)-isnull(costmoney,0)) else (isnull(dismoney,0)-isnull(costmoney,0)) end) AS 'ProfitMoney'
from ListSale A
left join (select autoid,unit_id,billtype,billdate,s_Syb,emp_id from masterbill) b on a.bill_id=b.autoid
left join (select s_id,u_Code,u_Name from units) c on b.unit_id=c.s_id
left join (select billtype billtype2,billname from billtype) d on b.billtype=d.billtype2
left join (select s_id,u_Code,u_Name,ProdType,Back1,Back2,Back3 from product) e on a.prod_id=e.s_id
left join (select s_ID,u_Code,u_Name from StorHouse) f on a.Stor_ID = f.s_ID
left join (select s_ID,u_Name from commoninfo where s_class='14')comib on e.Back1 = comib.s_ID
left join (select s_ID,u_Name from commoninfo where s_class='15')comic on e.Back2 = comic.s_ID
left join (select s_ID,u_Name from commoninfo where s_class='16')comid on e.Back3 = comid.s_ID
left join (select s_id,u_Code,u_name from employee) k on b.emp_id = k.s_id
where b.s_Syb = 0 and d.billtype2 in ('15','16','1','4') and left(b.billdate,7) = '2009-06'
GROUP BY f.s_ID,f.u_Code,f.u_Name,e.ProdType,left(b.billdate,7),left(d.billname,2)

 回到顶部
帅哥哟,离线,有人找我吗?
migold
  12楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:447 积分:4572 威望:0 精华:0 注册:2009/1/11 11:00:00
  发帖心情 Post By:2009/7/27 14:52:00 [只看该作者]

就是这一句,要加变量

 回到顶部
帅哥哟,离线,有人找我吗?
migold
  13楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:447 积分:4572 威望:0 精华:0 注册:2009/1/11 11:00:00
  发帖心情 Post By:2009/7/27 14:52:00 [只看该作者]

left(b.billdate,7) = '2009-06'

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/7/27 14:57:00 [只看该作者]

读取文本文件的内容之后,然后替换。
文件中用特殊字符表示变量。

Replace

查找给定的子字符串,并用另一个子字符替换掉找到的子字符串。

语法:

Replace(OldValue, NewValue)

参数:

OldValue: 要查找的子字符串
NewValue: 用于替换的子字符串

例如:

Dim s As String ="abc123efg"
s = s.Replace(
"123","789")
Output.Show(s)

执行后,你可以看到变量s的值为:abc789efg


 回到顶部
帅哥哟,离线,有人找我吗?
migold
  15楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:447 积分:4572 威望:0 精华:0 注册:2009/1/11 11:00:00
  发帖心情 Post By:2009/7/27 15:03:00 [只看该作者]

这个方法行?,变量每次会变,替换一次后,下一次又是怎样替换

麻烦老大写一下代码

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/7/27 15:05:00 [只看该作者]

以下是引用migold在2009-7-27 15:03:00的发言:
这个方法行?,变量每次会变,替换一次后,下一次又是怎样替换

麻烦老大写一下代码


你替换后,又不会影响文件中的内容,只是替换读取后的内容.
下次用,再读取再替换.


 回到顶部
帅哥哟,离线,有人找我吗?
migold
  17楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:447 积分:4572 威望:0 精华:0 注册:2009/1/11 11:00:00
  发帖心情 Post By:2009/7/27 16:14:00 [只看该作者]

狐狸爸爸:你教的:
就是把你调是通过的SQL语句保存在一个文本文件中,将定保存在文件c:\data\inset.txt
cmd.commandtext = filesys.readalltext("c:\data\inset.txt")


你替换后,又不会影响文件中的内容,只是替换读取后的内容.
下次用,再读取再替换



这个方法,我已测试OK,已经没问题了,这个方法的代码我会了,谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
migold
  18楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:447 积分:4572 威望:0 精华:0 注册:2009/1/11 11:00:00
  发帖心情 Post By:2009/7/27 16:15:00 [只看该作者]

狐狸爸爸:你说的:当然,用存储过程会更好。

这个方法代码是怎样写的

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/7/27 16:23:00 [只看该作者]

存储过程在数据库后台建立。
如果你不会,也没有必要研究了。

 回到顶部
帅哥哟,离线,有人找我吗?
migold
  20楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:447 积分:4572 威望:0 精华:0 注册:2009/1/11 11:00:00
  发帖心情 Post By:2009/7/27 17:57:00 [只看该作者]

SQL的存储过程 我会建立

就是不会在狐表里面使用:
比如:怎样运行存储过程,
比如:怎样将狐表的变量赋予存储过程的变量

 回到顶部
总数 31 上一页 1 2 3 4 下一页