首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

求懂VB和delphi的

2012-02-26 
求懂VB和delphi的高手指点Public Function ExeRecordset(ByVal sql As String, m_con As ADODB.Connection

求懂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该怎么写...求教;

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

热点排行