Guys I need some opinion, which of the two codes is best to use, or if you have a suggestion on how to do it..
vb Code:
Private gcnRIS As ADODB.Connection
Private pstConnStr As String
Private mvarErrDesc As String
Public Property Get ErrDesc() As String
ErrDesc = mvarErrDesc
End Property
Public Property Let Connection(ByVal vData As ADODB.Connection)
Set gcnRIS = vData
End Property
Public Function SearchSQL(sQuery As String) As ADODB.Recordset
Set SearchSQL = New ADODB.Recordset
SearchSQL.Open sQuery, gcnRIS, adOpenStatic, adLockReadOnly, adCmdText
End Function
Public Function ExecuteSQL(sQuery As String) As Boolean
On Error GoTo ExecuteSQLErr
gcnRIS.Execute sQuery, adExecuteNoRecords
ExecuteSQL = True
Exit Function
ExecuteSQLErr:
mvarErrDesc = Err.Description
ExecuteSQL = False
End Function
vb Code:
Public Function SearchSQL(gcnRIS as ADODB.Connectnon, sQuery As String) As ADODB.Recordset
Set SearchSQL = New ADODB.Recordset
SearchSQL.Open sQuery, gcnRIS, adOpenStatic, adLockReadOnly, adCmdText
End Function
Public Function ExecuteSQL(gcnRIS as ADODB.Connectnon, sQuery As String) As Boolean
On Error GoTo ExecuteSQLErr
gcnRIS.Execute sQuery, adExecuteNoRecords
ExecuteSQL = True
Exit Function
ExecuteSQLErr:
mvarErrDesc = Err.Description
ExecuteSQL = False
End Function