Office中国论坛/Access中国论坛

标题: [求助]请教高手：字段名如果用变量表示，正确的用法是什么？ [打印本页]

作者: pyzou 时间: 2006-6-24 18:40
标题: [求助]请教高手：字段名如果用变量表示，正确的用法是什么？
有哪位可以帮帮我啊！

字段名如果用变量表示，正确的用法是什么？

例如下：

Private Sub cmdOK_Click()
Dim AA As String
AA = ed.Value 'ed是一个文本框

Set rs3 = CurrentDb.OpenRecordset("select * from [入物料] where [ID]=30933")

rs3.edit
rs3!AA="更改" ‘问题就是 rs3!AA这样表示不正确吗？ AA表示一个字段名，如果我的 rs3！字段名就没有问题

rs3.Update
rs3.Close

End Sub[em04][attach]18700[/attach]
[attach]18701[/attach]

[此贴子已经被作者于2006-6-24 15:20:05编辑过]

作者: andymark 时间: 2006-6-24 18:43
把例子传上来看看

作者: pyzou 时间: 2006-6-24 19:35
传上来了，有劳版主看一看了

作者: andymark 时间: 2006-6-24 20:17
都可以用变量

Dim Rs As New ADODB.Recordset
Rs.Open "select * from 出配件 where [ID]=1330", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
Do While Not Rs.EOF
Rs.Fields(Me.eid.Value) = 7
Rs.MoveNext
Loop
Set Rs = Nothing

作者: pyzou 时间: 2006-6-24 20:26
老大可不可以将例子修改给我啊！我好笨啊！

作者: andymark 时间: 2006-6-24 22:25
[attach]18698[/attach]

作者: pyzou 时间: 2006-6-24 23:20
多谢了！请再帮我看一下，文件我已传上来了，修改后出现数据类型不配。

作者: pyzou 时间: 2006-6-24 23:25
这是另一个问题，之前问题已解决了！再次多谢！

作者: andymark 时间: 2006-6-24 23:32
ID 是自动编号不是字符串,去掉''

Rs.Open "select * from 入配件 where [ID]=" & editid & " ", CurrentProject.Connection, adOpenDynamic, adLockOptimistic

作者: pyzou 时间: 2006-6-24 23:39
OK，ANDYMARK万岁！！！！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)