芯友网Xin1234.COM

我想写一个循环语句   批量根据*_POINT 表和*_LINE表中某个字段的数据计算,怎么把point表和line表加入循环语句



ふ陽♡,峸傾iX
我想写一个循环语句   批量根据*_POINT 表和*_LINE表中某个字段的数据计算,怎么把point表和line表加入循环语句
白小小
在循环语句写代码
ふ陽♡,峸傾iX
     Dim dbs As Database
     Dim tdf As TableDef
     Dim strsql As String
     Dim strName As String
     Set dbs = CurrentDb
            DoCmd.RunSQL "UPDATE & LEFT(strName,2) &_LINE INNER JOIN & LEFT(strName,2) &_POINT ON & LEFT(strName,2) &_LINE.起始物探点号 = & LEFT(strName,2) &_POINT.物探点号 SET & LEFT(strName,2) &_LINE.起点管顶高程 = [& LEFT(strName,2) &_POINT].[地面高程]-[& LEFT(strName,2) &_LINE].[起始埋深]"
    MsgBox "操作已执行完毕!", vbInformation + vbOKOnly
白小小
在循环语句之间
ふ陽♡,峸傾iX
UPDATE & LEFT(strName,2) &_LINE INNER JOIN & LEFT(strName,2) &_POINT ON & LEFT(strName,2) &_LINE.起始物探点号 = & LEFT(strName,2) &_POINT.物探点号 SET & LEFT(strName,2) &_LINE.起点管顶高程 = [& LEFT(strName,2) &_POINT].[地面高程]-[& LEFT(strName,2) &_LINE].[起始埋深]

这个语句怎么能执行?
白小小
你写的?
ふ陽♡,峸傾iX
白小小
你写的当然知道怎么执行
水若善上
?Xi傾峸,♡陽ふ 你做化学处理的?
ふ陽♡,峸傾iX
我就是写好了  不能执行
& LEFT(strName,2) &_LINE  这里好像不能自动循环执行line表  
?上善若水 我是做物探的
水若善上
辐射很高吧
ふ陽♡,峸傾iX
这个是我数据库的表  全部是*_LINE 和 *_POINT这样的表   一个LINE 表对应一个POINT表
LINE表结构:
POINT表结构:
白小小
你为啥 不直接写表名呀
ふ陽♡,峸傾iX
我想批量更新line表里的 起点管顶高   和 终点管顶高 这两个字段  
具体就是POINT 表的地面高程 -LINE表里面的起始埋深 

终点管顶高的 值更新成 POINT 表的地面高程 -LINE表里面的终止埋深 
直接写表名  有好多   累半死   
?小小白 麻烦给看看我的sql语句  
UPDATE & LEFT(strName,2) &_LINE INNER JOIN & LEFT(strName,2) &_POINT ON & LEFT(strName,2) &_LINE.起始物探点号 = & LEFT(strName,2) &_POINT.物探点号 SET & LEFT(strName,2) &_LINE.起点管顶高程 = [& LEFT(strName,2) &_POINT].[地面高程]-[& LEFT(strName,2) &_LINE].[起始埋深]

为什么不能循环执行?
去神
没这个功能,
白小小
你的数据不是同一个表吗
你UPDATE 是有条件限制的
ふ陽♡,峸傾iX
不是一个表啊  是有很多表的
Dim dbs As Database
     Dim tdf As TableDef
     Dim strsql As String
     Dim strName As String
     Set dbs = CurrentDb
            DoCmd.RunSQL "UPDATE & LEFT(strName,2) &_LINE INNER JOIN & LEFT(strName,2) &_POINT ON & LEFT(strName,2) &_LINE.起始物探点号 = & LEFT(strName,2) &_POINT.物探点号 SET & LEFT(strName,2) &_LINE.起点管顶高程 = [& LEFT(strName,2) &_POINT].[地面高程]-[& LEFT(strName,2) &_LINE].[起始埋深]"
恋之雪白
看晕了
坤义周
这代码神
ふ陽♡,峸傾iX
这样可以循环得到表名啊  strName  
我想循环得到表名的前2位,然后写到程序 不可以吗
坤义周
我要好好学习一下
恋之雪白
不知道能不能这样写:
DoCmd.RunSQL "UPDATE " & LEFT(strName,2) & "_LINE INNER JOIN " & LEFT(strName,2) & "_POINT ON " & LEFT(strName,2) & "_LINE.起始物探点号 = " & LEFT(strName,2) & "_POINT.物探点号 SET " & LEFT(strName,2) & "_LINE.起点管顶高程 = [" & LEFT(strName,2) & "_POINT].[地面高程]-[" & LEFT(strName,2) & "_LINE].[起始埋深]; "
白小小
都说了,你不要变量,能否直接写表名呀,看你的代码 直接晕死

相关问题
------分隔线----------------------------
赞助商链接
赞助商链接
推荐内容