Question

VB中执行sql总是报错，214721900，总评成绩附近有错，可是我在SQL查询分析器里执行了的

txtsql = " update [" & Trim(Text1.Text) + Trim(Text2.Text) + Trim(Combo1.Text) + "总评成绩表" & "] set " & tn & "=(select 总评成绩 from " & tnu + Trim(Combo1.Text) + tn + "总评成绩表" & " where [" & Trim(Text1.Text) + Trim(Text2.Text) + Trim(Combo1.Text) + "总评成绩表" & "].学号=" & tnu + Trim(Combo1.Text) + tn + "总评成绩表" & ".学号)"
tnu是教师编号的储存，tn是课程名称的储存

Answer 1

你会不会单步运行，运行到txtsql 之后，获取里面的值，也就是转义后的sql语句，放到
SQL查询分析器里执行一下，看看结果，，如果正确，这不是这里的问题，，如果错误，再来分析原因

追问

update [2011上公共管理总评成绩表] set 大学英语2=(select 总评成绩 from [t0001公共管理大学英语2总评成绩表] where [2011上公共管理总评成绩表].学号=[t0001公共管理大学英语2总评成绩表].学号)
select*from [2011上公共管理总评成绩表]
成功了的，但是VB里面就是有问题

追答

那问题不是出在这里呀，

还有一种方法测试，，将txtsql 写一条最简单的语句试一试

txtsql=“select*from [2011上公共管理总评成绩表] " 如果这一条语句能行，那就问题肯定不在这里

其实我想你上面是正确的，就已经说明问题不是出自于这个地方。

追问

我们上面建表和插入列都是可以执行的，但插入列数据就不可以啦，要不我把代码发给你？？？

追答

我这里没法链接到数据库，无法测试呀，，

代码发过来，我看看把，也许可能发现点什么

追问

不好意思哈，现在才看到回复，我已经解决了，谢谢哈