通用过程实现向表中添加控件中的内容

时　间:2015-01-25 21:37:08
作　者:逍遥小子   ID：34546  城市：防城港
摘　要:通用过程实现向表中添加控件中的内容
正　文:

问题提出：

最近一个朋友在做一个系统，期间他提出一个问题：在一个窗体上有多个控件，且每次点击窗体上保存的按钮，必须将所有控件上的值全部保存至相关的表中，而且每次保存的时候，控件中的值只能保存在对应表中最新生成的记录中，当时的第一反应是告诉他使用ADO方式。过了段时间，他告诉我说代码量太大，我一看他的代码，原来每次在保存一个数据之前，他都要使用一次如下的方式：

    Dim rst As ADODB.Recordset

    Dim cnn As New ADODB.Connection

Dim strSQL As String

然后设置SQL查询语言，再：

Set rst = New ADODB.Recordset

Set cnn = CurrentProject.Connection

rst.Open strSQL, cnn, adOpenKeyset, adLockOptimistic

如果是一两个表还好说，但是涉及到20几个表的保存，还真是佩服他，有耐心一遍又一遍的写重复的代码。经过思考，我将此重复的过程改为一个通用的Public过程，这样每次只要想保存数据时，只需调用该过程，然后明确SQL语言中Where后面的条件字段名称、对应的表名、需要保存数据的字段、以及对应的控件名称，即可实现数据向表中的保存。Public过程代码如下：

Public Sub AddInTable(ByVal strIDName As String, ByVal strFilterName As String, _

                                      ByVal strTableName As String, _

                                      ByVal ctlName As Control)

    'strIDName为Where后面的条件字段名称

    'strFilterName目标字段(即要添加数据对应字段名称)

    'strTableName目标表名称(即要添加数据的对应表)

    'ctlName 控件名称，该控件中包含着将要添加的数据

    On Error GoTo Err_AddInTable

    Dim rst As ADODB.Recordset

    Dim cnn As New ADODB.Connection

    Dim strSQL As String

    strSQL = "select * from " & strTableName & " " & "where " & strIDName & "=" _

    & "" & DMax(strIDName, strTableName) & "" 'DMax函数返回目标表中最大编号对应的记录

    'Debug.Print strSQL

    Set rst = New ADODB.Recordset

    Set cnn = CurrentProject.Connection

    rst.Open strSQL, cnn, adOpenKeyset, adLockOptimistic

    rst.MoveFirst

    rst(strFilterName) = ctlName.Value

    rst.Update

    rst.Close

    Set rst = Nothing

    Set cnn = Nothing

Exit_Err_AddInTable:

    Set rst = Nothing

    Set cnn = Nothing

    Exit Sub

Err_AddInTable:

    MsgBox "错误代码" & Err.Number & ":" & Err.Description, vbCritical, "错误"

    Resume Exit_Err_AddInTable

End Sub

以上代码位于标准模块中。

附   件:

点击下载此附件