Dim AddRecNeedClose As Boolean
Dim AddRec As ADODB.RecordsetIf AddRecNeedClose Then
If datebase.TextMatrix(LastRow, 0) <> "" Then
AddRec.Fields(1).Value = datebase.TextMatrix(LastRow, 0)
AddRec.Update
AddRec.Close
AddRecNeedClose = False
Set AddRec = Nothing
ElseIf EnsureF1UnNull(AddRec) Then
AddRec.Close
AddRecNeedClose = False
Set AddRec = Nothing
Exit Function
Else
Exit Function
End If
End If其中,datebase是数据库的名字 EnsureF1UnNull是一个函数名,这个函数也不太明白谢谢大家,非常感谢了
Dim AddRec As ADODB.RecordsetIf AddRecNeedClose Then
If datebase.TextMatrix(LastRow, 0) <> "" Then
AddRec.Fields(1).Value = datebase.TextMatrix(LastRow, 0)
AddRec.Update
AddRec.Close
AddRecNeedClose = False
Set AddRec = Nothing
ElseIf EnsureF1UnNull(AddRec) Then
AddRec.Close
AddRecNeedClose = False
Set AddRec = Nothing
Exit Function
Else
Exit Function
End If
End If其中,datebase是数据库的名字 EnsureF1UnNull是一个函数名,这个函数也不太明白谢谢大家,非常感谢了
解决方案 »
- 如何用VB生成1个占磁盘的空文件?
- 夜深了,但我的心还未平静!在中文环境下开发的软件,到了英文系统下,出现“can not open database,it maybe .."
- 寻找vb辅助dll
- 请问哪里有《使用Visual Basic和XML开发应用程序》这本书下载
- 怎样在报表中显示数据库中的图片?
- 今天我生日,散分......为了逝去的年华,为了远走的爱人,自己干杯!
- 请教连接Oracle远程数据库的问题???
- 如何将数据库中的数据输出到word文档,急急急急急!!!!!!!!!!在线等待
- 用SQLDMO的oBCP导出数据
- 不使用窗口的状态条,如何使窗口最小化?
- 关于数据库的问题
- fpspread6.0能否与Oracle objects for OLE连接方式进行记录集绑定?
估计是判断这个记录集是否有记录.