问题提出:
最近一个朋友在做一个系统,期间他提出一个问题:在一个窗体上有多个控件,且每次点击窗体上保存的按钮,必须将所有控件上的值全部保存至相关的表中,而且每次保存的时候,控件中的值只能保存在对应表中最新生成的记录中,当时的第一反应是告诉他使用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
以上代码位于标准模块中。
附 件:
点击下载此附件