Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
VB6.0 ADO question
Most of the following code was obtained from Microsoft. (Unsure what I've
changed.) However, it does not work correctly. I'm hoping someone can tell me why. It actually works until the "GetObjectContext.SetComplete" line us unremarked. It also bothers me that neither the recordset nor the connection are closed/terminated nicely. Public Function ListAll() As ADODB.Recordset Dim strSQL As String Dim rs As ADODB.Recordset Dim conn As ADODB.Connection On Error GoTo ErrorHandler 'Form the SQL SELECT statement strSQL = "SELECT CategoryId, Name, ModifiedDate, CreatedDate " & _ "FROM Categories ORDER BY Name" set rs = new ADODB.Recordset rs.CursorLocation = adUseClient 'Execute the SQL command to the database, using the recordset Open method. rs.Open strSQL, "FILEDSN=" & fileDSN, adOpenKeyset, adlLockReadOnly, adCmdText GetObjectContext.SetComplete Set ListAll=rs Exit Function ErrorHandler: If Not rs Is Nothing Then Set rs=Nothing End If 'Roll back MTS transaction set. Err.Raise Err.Number, SetErrSource(modName, "ListAll"), Err.Description GetObjectContext.SetAbort Err.Raise Err.Number, SetErrSource(modName, "ListAll"), Err.Description End Function Thanks in advance, Christmas May |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel 2007 Macro/VB Question DDE Question | Excel Worksheet Functions | |||
where can I see my question and answer? Yesterday I ask a question | Excel Discussion (Misc queries) | |||
Newbie Question - Subtraction Formula Question | Excel Discussion (Misc queries) | |||
The question is an excel question that I need to figure out howto do in excel. | Excel Worksheet Functions | |||
Question | Charts and Charting in Excel |