|
-
Sep 2nd, 2004, 01:27 PM
#3
Thread Starter
Hyperactive Member
Pretty much figured it out...auto syntax check wasn't working for a MSFlexgrid "msfg90DayQueue" sitting on my form (couldn't see the properties and methods), so I had to code this way:
Public Sub Retrieve90Days()
Dim cmd As ADODB.Connection
Dim rs As ADODB.Recordset
Dim ctrl As MSFlexGridLib.MSFlexGrid 'Create a Grid instance
Set cmd = New ADODB.Connection
With cmd
.ConnectionString = sConn
.Open
End With
Set rs = New ADODB.Recordset
With rs
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.ActiveConnection = cmd
.Open ("EXEC Check_90Days_TransDBOnly")
Set .ActiveConnection = Nothing
Debug.Print .RecordCount
End With
Set ctrl = Me.msfg90DayQueue.Object 'Set a reference to the form grid.
Call PopulateGrid(ctrl, rs) 'Pass the control and recordset to the Subroutine
Set rs = Nothing
Set cmd = Nothing
End Sub
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|