Variant Form 3 数据源中使用变量和组件onChange事件中调用数据源

在Variant Form 3中，我们可以使用组件的onChange事件来调用数据源，但是需要注意的是，这种方式并不是直接调用数据源，而是通过编程方式来更新数据源。

以下是一个简单的例子，假设我们有一个文本框组件（TextBox）和一个数据源（DataSource），我们希望在文本框的内容发生变化时，更新数据源中的数据。

' 假设我们有一个名为 "MyDataSource" 的数据源，和一个名为 "MyTextBox" 的文本框组件
 
' 文本框的onChange事件中的代码
Private Sub MyTextBox_onChange()
    Dim conn As Variant
    Dim rs As Variant
    Dim strSQL As String
    
    ' 建立数据库连接
    Set conn = OpenConnection("MyDataSource")
    
    ' SQL更新语句，这里假设我们更新的表是 "MyTable"，更新的字段是 "MyField"
    ' 并且我们使用文本框的当前内容来更新字段
    strSQL = "UPDATE MyTable SET MyField = '" & Me.MyTextBox.Text & "'"
    
    ' 执行更新
    conn.Execute strSQL
    
    ' 关闭连接
    CloseConnection(conn)
End Sub
 
' 打开数据库连接的函数
Public Function OpenConnection(strDSN As String) As Variant
    Dim conn As Variant
    Set conn = CreateObject("ADODB.Connection")
    conn.Open "DSN=" & strDSN
    Set OpenConnection = conn
End Function
 
' 关闭数据库连接的函数
Public Sub CloseConnection(conn As Variant)
    If Not conn Is Nothing Then
        conn.Close
        Set conn = Nothing
    End If
End Sub

在这个例子中，我们首先建立了一个数据库连接，然后根据文本框中的内容构建了一个SQL更新语句，并执行了这个更新。最后，我们关闭了数据库连接。这样，每当文本框的内容发生变化时，我们就可以通过编程的方式更新数据源中的数据。