北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |
Private Sub 标签2_Click()
Dim cd As New ADODB.Connection
Dim hkda As New ADODB.Recordset
Dim fd As ADODB.Field
Dim strsql As String
Dim strconnect As String
Dim xx As String
Dim aa As String
Dim bb As String
xx = InputBox("请输入要修改的项目")
aa = InputBox("请输入要修改的户口的标示")
bb = InputBox("请输入要修改的值")
Set cd = CurrentProject.Connection
strsql = "select '&xx&' from 常住人口登记表 where '&xx&'='&aa&'"
hkda.Open strsql, cd, adOpenDynamic, adLockOptimistic, adCmdText
Set fd = hkda.Fields("&xx&") 请问怎样引用xx的值 我这样引用为什么不行？
fd = "bb"
hkda.Update
hkda.Close
cd.Close
Set hkda = Nothing
Set cd = Nothing
End Sub
