我有这样的想法,请帮我实现(附代码)

Question

把TEXTBOX的名称改为数据库字段名,然后用历遍控件找出所有TEXTBOX控件,然后用该控件名作字段名,把该控件内的内容保存入数据库,代码如下:    Set RS = New ADODB.Recordset
    RS.CursorType = adOpenKeyset
    RS.LockType = adLockOptimistic
    RS.Open "select * from aaa", con
    RS.AddNew
    Dim control As control
    For Each control In Me
        If UCase$(TypeName(control)) = "TEXTBOX" Then
           hh = "" & control.Name & ""
           RS(hh) = Trim(control.Name)         
        End If
    Next
    RS.Update
    RS.Close
    Set RS = Nothing在Trim(control.Name) 这一句中,我想用它来取得控件内容,但保存入数据库的总是该控件名称,而不是我想要的控件内内容请问这该如何做?

Answer 1

//我想用它来取得控件内容RS(hh) = control.Text

Answer 2

//如何取得数据库的字段名?文档里面有一篇文章，你不妨搜一下，题目是：
列出SQL SERVER数据库中所有表及字段信息

Answer 3

谢谢,那如何把读出来的字段名转为控件类型?control(字段名) 好象不行

Answer 4

我的意思是这样:如:有个字段名叫"aa",而程序中也有"aa.text"这个控件,而这个字段的内容是"bb",则就可以
controls(aa)        =    rs("aa")
----------            ----------
这里转成控件aa.text    这里是字段aa的内容即变成:aa.text = bb就这样,可以吗

Answer 5

根据控件名称返回控件对象：txtTextBox为控件名称
Msgbox Me.Controls.Item("txtTextBox").Text

Answer 6

就是把控件存在数据库里，读出来后可controls(rs("控件名")).text="中国"可以吗？

Answer 7

//controls(rs("控件名")).text="中国"
//
//可以吗？当然可以！

Answer 8

if controls.name=rs("控件名") then
controls.text="中国"
endif