希望用查询实现！！！

liuyinhe · 发表于 2010-11-26 21:48:28

希望把表1里的6位号码分别替换到CDEFGH字段里

tmtony · 发表于 2010-11-26 22:05:06

UPDATE 表1 SET 表1.C = Mid("号码",1,1), 表1.D = Mid("号码",2,1), 表1.E = Mid("号码",3,1), 表1.F = Mid("号码",4,1), 表1.G = Mid("号码",5,1), 表1.G = Mid("号码",6,1);

zyz218 · 发表于 2010-11-26 22:29:36

多此一举一下，呵呵
Dim STemp As String
STemp="UPDATE 表1 SET 表1.C = Mid("号码",1,1), 表1.D = Mid("号码",2,1), 表1.E = Mid("号码",3,1), 表1.F = Mid("号码",4,1), 表1.G = Mid("号码",5,1), 表1.G = Mid("号码",6,1)"
DoCmd.RunSQL STemp

liuyinhe · 发表于 2010-11-26 22:33:11

本帖最后由 liuyinhe 于 2010-11-26 22:38 编辑

谢谢楼上的两位，我试着写进去了，不行。希望你们把语句写进例子里。。谢谢了！！等着急用。

zyz218 · 发表于 2010-11-26 22:37:58

本帖最后由 zyz218 于 2010-11-26 22:38 编辑

在按钮单击事件中执行吧

tmtony · 发表于 2010-11-26 22:39:07

zyz218 · 发表于 2010-11-26 22:44:36

本帖最后由 zyz218 于 2010-11-26 22:46 编辑

Private Sub Command1_Click()
Dim STemp As String
STemp = "UPDATE 表1 SET C = Mid(号码,1,1), D = Mid(号码,2,1), E = Mid(号码,3,1), F = Mid(号码,4,1), G = Mid(号码,5,1), H = Mid(号码,6,1)"
DoCmd.RunSQL STemp
End Sub

zyz218 · 发表于 2010-11-26 22:48:16

呵呵，站长用查询，直接在事件中用语可以少个查询。

liuyinhe · 发表于 2010-11-26 22:49:00

本帖最后由 liuyinhe 于 2010-11-26 23:04 编辑

忙晕了，发错了例子，希望两位老大在帮我看看。。。

达到表2的目的

zyz218 · 发表于 2010-11-26 23:08:10

本帖最后由 zyz218 于 2010-11-26 23:32 编辑

Private Sub Command0_Click()
Dim i As Integer
Dim STemp As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
STemp = "Select * From 表1"
rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
For i = 1 To rs.RecordCount
      DoCmd.SetWarnings False
      STemp = "update 表1 set A=left(A,2)&mid(号码,1,6)&right(A,13)"
      DoCmd.RunSQL STemp
Next i
End Sub

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[查询] 希望用查询实现！！！

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)