Question

遍历VB里的控件的代码

一个窗体里有三个框架，每个框架里有多个文本框，要实现：遍历所有文本框，如果文本框中有数据，按“确定”之后就将数据记入数据库SQL SERVER。这段代码如何实现？求各位大侠帮助！！！

Answer 1

Private Sub Command3_Click()
Dim a As Object
For Each a In Me.Controls
If TypeOf a Is TextBox Then
If Len(a.Text) <> 0 Then Call 写入数据库
End If
Next
End Sub

Answer 2

如下：

Option Explicit

Private Sub Form_Load()
Dim fs As Control

For Each fs In Form1
If LCase(TypeName(fs)) = "textbox" Then
If fs.Value <> "" Then
Call WriteSQL(fs.Value)
End If
End If
Next fs
End Sub

Private Sub WriteSQL(ByVal Val As String)
'这里写你的 SQL 语句。
Dim nConn As Object
Dim nRs As Object
Dim SQL As String

Set nConn = CreateObject("ADODB.Connection")
Set nRs = CreateObject("ADODB.RecordSet")

nConn.Open "Driver={SQL Server};Server=(local);UID=这是帐号;PWD=这是密码;Database=数据库名"
SQL = "Select * from 表名"
nRs.Open SQL, nConn, 3, 3

nRs.AddNew
nRs("字段名") = Val
nRs.Update

nRs.Close
nConn.Close
Set nRs = Nothing
Set nConn = Nothing
End Sub

注:在 WriteSQL 过程中请将 SQL 连接串和表名、字段名根据自己情况改变。本程序只是一个参考思路，但可以正常运行，话说得好：“师傅领进门，修行靠个人”，请按此思咱更改你的程序。

Answer 3

很简单啊,用对象遍历就可以了

Private Sub Command1_Click()
Dim objCTRLS As Control

For Each objCTRLS In Me.Controls
If UCase(TypeName(objCTRLS)) = "TEXTBOX" Then
objCTRLS = "这个是文本框"
End If
Next
End Sub

Answer 4

for each a in me.controls
if a.type=? then
'?号代表一个文本框常量,这里我不知道是什么
'插入数据库
end if
next