sarahjane28
IS-IT--Management
Hi,
I am trying to move through a recordset and keep getting the error "Microsoft OLE DB Provider for SQL Server: Rowset does not support fetching backwards"
Here is my code,
Dim myconn, rs, SQL
Dim MyPage
Dim String
MyPage = Item.GetInspector.ModifiedFormPages("CustomerInformation"
Set myconn = CreateObject("ADODB.Connection"
myconn.Open "Provider=SQLOLEDB;Data Source=Sutherland3;UID=sa;PWD=;DATABASE=cmf"
Set rs = CreateObject("ADODB.Recordset"
SQL = "SELECT * FROM Incident"
rs.Open SQL, myConn, adOpenDynamic,, adCmdText
rs.MoveLast
rs.MoveFirst
For i = 1 to rs.RecordCount
MyString = rs("IncidentID" & ";"
rs.MoveNext
Next
MyPage.ComboBox1.PossibleValues = MyString
Can anyone help me?
Thanks!,
Sarah
I am trying to move through a recordset and keep getting the error "Microsoft OLE DB Provider for SQL Server: Rowset does not support fetching backwards"
Here is my code,
Dim myconn, rs, SQL
Dim MyPage
Dim String
MyPage = Item.GetInspector.ModifiedFormPages("CustomerInformation"
Set myconn = CreateObject("ADODB.Connection"
myconn.Open "Provider=SQLOLEDB;Data Source=Sutherland3;UID=sa;PWD=;DATABASE=cmf"
Set rs = CreateObject("ADODB.Recordset"
SQL = "SELECT * FROM Incident"
rs.Open SQL, myConn, adOpenDynamic,, adCmdText
rs.MoveLast
rs.MoveFirst
For i = 1 to rs.RecordCount
MyString = rs("IncidentID" & ";"
rs.MoveNext
Next
MyPage.ComboBox1.PossibleValues = MyString
Can anyone help me?
Thanks!,
Sarah