ふ陽♡,峸傾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
我就是写好了 不能执行
& LEFT(strName,2) &_LINE 这里好像不能自动循环执行line表
?上善若水 我是做物探的
ふ陽♡,峸傾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].[起始埋深]; "
白小小
都说了,你不要变量,能否直接写表名呀,看你的代码 直接晕死