读书人

求懂VB和delphi的

发布时间: 2012-02-26 20:19:45 作者: rapoo

求懂VB和delphi的高手指点
Public Function ExeRecordset(ByVal sql As String, m_con As ADODB.Connection, Optional nCursorLocation As CursorLocationEnum = adUseClient, Optional nCursorType As CursorTypeEnum = adOpenDynamic, Optional nLockType As LockTypeEnum = adLockOptimistic) As ADODB.Recordset
Dim mRs As ADODB.Recordset
Set mRs = New ADODB.Recordset
mRs.CursorLocation = nCursorLocation
mRs.Open sql, m_con, nCursorType, nLockType
Set ExeRecordset = mRs
End Function

这个函数翻译成delphi该怎么写...求教;

[解决办法]
可以不写的,你不写的话,连接就会用默认的类型~~~~

读书人网 >VB

热点推荐