sql 语句中如何取表名的前两位字母作为变量写到代码

冷书生　发表于：2017-01-06 10:11:40 　

我想通过sql代码执行，批量更新Line表里的“起点管顶高”和“终点管顶高”字段内容
起点管顶高（计算方式：point表的地面高程-line表的起始埋深）
和
终点管顶高（计算方式：point表的地面高程-line表的终止埋深）
我的代码：
'*****************************分割线***************************
DoCmd.SetWarnings False
Dim dbs As Database
Dim tdf As TableDef
Dim strsql As String
Dim strName As String
Set dbs = CurrentDb
For Each tdf In dbs.TableDefs
strName = tdf.Name

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
Next
MsgBox "操作执行完毕"
'*****************************分割线***************************

请问为什么不能执行，？？？谢谢指点

数据库表:

line表结构：

point表结构：

Top

缪炜发表于：2017-01-06 13:34:02

If Right(strname, Len(strname) - InStrRev(strname, "_")) = "LINE" Then
    strSQL = "UPDATE " & strname & " as a INNER JOIN " & Left(strname, InStrRev(strname, "_") - 1) & "_POINT as b ON a.起始物探点号 = b.物探点号 " _
    & " SET a.起点管顶高 = b.[地面高程]-a.[起始埋深]"
    DoCmd.RunSQL strSQL
End If

Top

冷书生发表于：2017-01-08 22:13:25

谢谢完美解决

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

sql 语句中如何取表名的前两位字母作为变量写到代码