[已解决] 插入数据查询

ycxchen

我想在例子中建一个查询，运行查询能在“游客表”中的“手机”字段的每条记录中的第4位数字后自动插入一个0，例如，原来一手机号码为15992317888，运行查询后变为159902317888。请问，要达到此目的，如何设计查询呢？


[ 本帖最后由 cuxun 于 2008-10-7 07:26 编辑 ]

ycxchen

十分感谢大肚鸭版主!

ycxchen

运行不正常，提示缺少语句结束，请问，如何解决？
Private Sub Command9_Click()
Dim sql As String
sql = "UPDATE 游客表 SET 游客表.手机 = Mid([手机],1,4) & "0" & Mid([手机],5);"
DoCmd.RunSQL sql
End Sub

zyp

原帖由 ycxchen 于 2008-9-29 11:53 发表
运行不正常，提示缺少语句结束，请问，如何解决？
Private Sub Command9_Click()
Dim sql As String
sql = "UPDATE 游客表 SET 游客表.手机 = Mid([手机],1,4) & "0" & Mid([手机],5);"
DoCmd.RunSQL sql
End  ...

sql = "UPDATE 游客表 SET 游客表.手机 = Mid(手机,1,4) &  0  & Mid(手机,5)"

ycxchen

十分多谢zyp了！真有一抹流星划过天幕的微笑的感觉。0是文本符号，按理解在语句中要英文的双引号的，不何“&  0  &”中的0不要英文的双引号的？

ycxchen

另，手机字段值为空或者号码不足4位（例如：123），运行查询也会插入0，如何避免这种情况发生？即当手机字段值为空或者号码不足4位时不插入0。

Henry D. Sy

加 where 条件
where len(手机字段值)>=4

[ 本帖最后由 dddddd 于 2008-9-30 00:57 编辑 ]

ycxchen

十分感谢指教!

明镜

看一下