I'm using a string connection, 'strDBPath = "S:\space2003.mdb"' I had no
errors when in the general declaration of the form and can confirm that it is
opening the database and running the query I am requesting it to. BUT I left
out rs.movelast, movefirst statements. SMALL over sight. I have it in a
module now and get a Rowset Does Not Support Fetching backward or Operation
not available Error if I rem it out. the code is below, I'm missing a step
somewhere.
Public NRTCC As ADODB.Connection
Private Sub cmbRoomList_Click()
On Error GoTo RoomListClickErr
Dim qryRoom As String
Dim RoomIDrs As ADODB.recordset
Dim i As Integer
' Set string path to DB
strDBPath = "\\bach\Center Space\space2003.mdb"
'opens connection
Set NRTCC = New ADODB.Connection
With NRTCC
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Open strDBPath
End With
Set RoomIDrs = New ADODB.recordset
With RoomIDrs
.CursorType = AdOpenForwardOnly
.locktype = adLockReadOnly
.ActiveConnection = NRTCC
End With
' qryRoom declareation and execution
qryRoom = "select * from qryConfRooms"
RoomIDrs.Open qryRoom
RoomIDrs.MoveLast
RoomIDrs.MoveFirst
' ****breaks at this point****
' Set combobox data source
cmbRoomList.Clear
For i = 0 To RoomIDrs.RecordCount - 1
cmbRoomList.AddItem RoomIDrs.Fields("fldBuilding" & "/"
& "fldRoom")
RoomIDrs.MoveNext
Next i
RoomListClickErr:
'basic errmessage
pstrMessage = "Cannot perform operation" & _
Chr(vbKeyReturn) & " Error # '" & _
Err.Number & ": " & Err.Description
MsgBox pstrMessage, vbExclamation, _
"NRTCMS Property & Support Services - Database Error"
End Sub
"Ken Slovak - [MVP - Outlook]" wrote:
Are you getting any errors when you set up your connection? How are you
doing it, a connect string or a DSN?
--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm
"Weatherman" wrote in message
...
Thanks Ken, it's something in my connection string. I am opening a
recordset
but it has a 0 count. I see that the query and table in access have
record
locks and I am not getting any errors in VBA. Outlook can pull data from
access so I can eliminate that a possable cause.