Question

vb中用ado控件修改数据库记录的问题

我想实现的问题是这样的：
VB的界面如图所示，在文本框里输入数字之后可以修改后台数据库的地域分数表（所在地，地域分数）的地域分数字段。
我使用ado连接数据库，书写的代码如下所示：
Private Sub Text1_Change(Index As Integer)
Dim loc_score As String
loc_score = Text1(0).Text
Dim sql As String
sql = "update 地域分数表 set 地域分数='"&loc_score&"'where 所在地='北京'"
Adodc1.RecordSource = sql
Adodc1.Refresh
End Sub

Text1(0)就是文本框的名称
现在sql语句报错，我不知道原因
而且不知道这样是否可行
vB基本上没学过，因为需要不得不用，所以很急，求高手指导，谢谢了

Answer 1

sql = "update 地域分数表 set 地域分数='"&loc_score&"'where 所在地='北京'"
注意空格
sql = "update 地域分数表 set 地域分数='" & loc_score & "' where 所在地='北京'"

追问

Adodc1.Refresh报错，这个是什么问题么？

追答

你用的是Access？地域分数 这个字段在数据库中是什么类型？
如果是Access且类型是数值，则应该为
sql = "update 地域分数表 set 地域分数=" & loc_score & " where 所在地='北京'"
不能用单引号

追问

对的，我用的是access，数据类型也是数字
改掉了之后还是报错。您认为还有可能在什么地方有错误呢

追答

你把语句在Access中查询一下，看看有什么样的报错

Answer 2

要把报错的内容贴出来才知道问题可能的原因
从你的代码看你的Adodc1连接信息都没有，不知道是不是你绑定连接了

追问

我在adodc属性对话框里里绑定了连接，并且测试连接成功。我在界面上还设置了一个datagrid控件，运行后是可以显示表的。
运行之后在文本框里输入数字，然后出现报错“from 字句语法错误”,点确定之后是“对象‘refresh’的方法‘IAodc’失败”，调试后adodc1.refresh被标注黄色

追答

sql = "update 地域分数表 set 地域分数='"&loc_score&"'where 所在地='北京'"有错误，where前面必须有一个空格