Tracking Forums, Newsgroups, Maling Lists
Home Scripts Tutorials Tracker Forums
  HOME    TRACKER    Visual Basic

Rowset Not Available On Datagird... Help Pls...

hi to all.

when i click the command button my error is rowset not availabe.... i have a 2 textbox in my form.

what's wrong with my code?

Private Sub Command1_Click()
with datagird
   .columns(1) = text1.text
   .columns(2) = text2.text
end with
End Sub

View Complete Forum Thread with Replies

See Related Forum Messages: Follow the Links Below to View Complete Thread
Abt Datagird
IS it possible to enter data into database using the datagrid . If possible i want the code??

DataGird Not Refreshing.

In my form I have a datagrid, textboxes and command button. I want that as the user enters a new record in a text box and clicks the command button the datagrid should be updated immediately.

In my following code the datagrid is not refreshing. Why ?

Private Sub cmdSave_Click()
s = Val(txtsno.Text)
c = Val(txtcost.Text)
i = txtitem.Text
f = txtfirm.Text
b = txtbno.Text
d = txtdate.Text
r = txtRemark.Text

'On Error GoTo Errhandler
rs.Open "select * from chemical where status = 'contract'", cn, adOpenStatic, adLockOptimistic
With rs
rs!sno = s
rs!Date = d
rs!billno = b
rs!firm = f
rs!itemname = i
rs!remark = r
rs!cost = c
rs!Status = "construct"

End With

Set DataGrid1.DataSource = Adodc1.Recordset
MsgBox "Record Successfully Added. List Updated", vbOKOnly, "Successful"

End Sub

I have even used ADODC1.Refresh but it is not working. Actually, at first I connected the datagrid with the dataenvironment. Then, how to refresh the datagrid with the dataenvironment.

I Have A Problem With The Datagird
what is the easiest way to put a combobox in a datagrid
i would be very thankful, if somebody help me

DataGird - Focus - HotKeys
When my DataGrid has focus - my menu shortcut keys will not function. The Form Keypress Event does not "fire" at all. ???? The Datagrid KeyPress event will "fire" if I press a normal Key(a, b, etc) but not any of the function Keys (F1-F12). Any Ideas how to solve or get around this. Thanks in Advance


Datagird And Drop Down Column
I've been working on a datagrid that attempts to use dropdowns for several columns that are tied to related tables in the database. Focus moves to the column, a drop down appears, the user selects an item from the list, and moves on to the next field. Pretty standard stuff.

I know I'm supposed to use a Combo control, and hide and show it as needed when a column that is supposed to be a dropdown gets focus. However, I've never gotten the code quite right.

Does anyone have a simple working example of this, or can they point me to a tutorial.

Thanks in advance.

Refreshing Datagird In Vb Using Recordset Object

I am trying to refresh the datagrid value as soon as it is edited
i.e. I want the edited values to be displayed in the datagrid as soon as I save them.
To do this I have to refresh the recordset object.
Since there is no refresh method associated with the recordset object, how shud i do it (I am not using ADODC)
Everything is being done thru code.

Needed Urgently

Add/Update Records In Datagird Through ADODB
Hi all, I have a query, i have collected records from two table andshown in a datagrid, now I want to Update a particular colum in datagridI'm using ADODB . plz help me in this context .thanx

Oxid Arc,

Handle Errors / Insert Record / Datagird
Hi everyone,
I'm using VB.NET. I use a datagrid for updating DB but I couldn't handle error when use adding new record. When error occurs, the default error message shown although I use try...catch statement.
Who know how to handle error before the default error hanlder, please tell me.


How To Show The Content Of A Recordset Of ADODB In A Datagird...???
If there is a ADODB.Recordset named rs, how could I show its content in a Datagird? Should I set the datasource of datagrid be rs? But I have any tried this way several times, it doesn't work. I hope someone could help me. Any help is much appreciated.

Hi ppl,

I'm just having a problem with a random code. I have an error message coming up that says "Rowset does not support fetching backward" I'm just wondering if anyone knows what that means, and how I could fix it. It comes from the following piece of code:

TotalRecords = MyRecSet.RecordCount
ReDim PKey(TotalRecords - 1)
ReDim UsedIt(TotalRecords - 1)
k = 0
PKey(k) = MyRecSet.DataMember
k = k + 1
Loop Until MyRecSet.EOF


Rowset Not Available
Hello All:

I have written a program for time entry into an SQLBase database in VB 6.0. I am using ADO and the datagrid.

My problem is that my program works on my station but not on anyone else station. I have put all the support files in the folder with the exe and saved them on the network.

What could I be missing? I mean is there some reason besides missing support files that would cause a program to work on one computer but not another (with the same operating system) ??

I'm not sure what to try next. Any suggestions would be greatly appreciated.



Vb6 Datagird Control "how Can I Reperesnt Records In Vrtical Order"!
hi again guys

i have a datagrid attached to an ado data contorl, what i have is when i run the condetion the data grid length gose in the right direction for ofcourse cos tere many columns, what i want to is to represnt the cells in vertical direction is that possible!

becouse the cells are paths or links to executable files for a speific job_no and what i want to do i want to ive as many path as i can which is 244 cell in access i guess or less ofcourse as i dont want it to crash, but if the cells are in horizntal diection nobody will use it..

Rowset Error
I am getting the following error:

Run-time error'-2147217884(80040e24)':
Rowset does not support fetching backward.

My delcarations are:

Private db As ADODB.Connection
Dim rs As ADODB.Recordset

My Form load code is:

Private Sub Form_Load()

Set db = New Connection

'Dim rs As ADODB.Recordset
Set rs = New Recordset

db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:gentestGen_Cards.mdb;"
rs.Open "SELECT * FROM Cards", db, dbOpenKeyset

End Sub

The code causing the error:

Private Sub Command2_Click()
On Error GoTo ErrLabel
Exit Sub

MsgBox Err.Description
End Sub

I get the error on the rs.MoveLast command.
Does anyone know what this error is and why I'm getting it?

Thank you.

Rowset Not Available Message
Visual BAsic 6 enterprise edition.

I am displaying the contents of an access database table in a datagrid based upon user input.
dbgItems is the name of the datagrid

Private Sub GetGridInfo()
Dim lCol As Integer
Dim lRow As Integer
Set dbgItems.DataSource = Nothing
lCol = 0
lRow = 0
Call OpenOriginalItemTable
SQL = "Select * "
SQL = SQL & " from ItemTable where dbItemPONumber = '" & HoldPO & "' "
SQL = SQL & "order by dbItemItemNumber "
Call GetTableData(rstOriginalItem, SQL)
If rstOriginalItem.RecordCount = 0 Then Exit Sub
Set dbgItems.DataSource = rstOriginalItem
' Here I am copying the value in column(2) to column(3)
Do Until lRow = dbgItems.ApproxCount
dbgItems.Row = lRow
dbgItems.Columns(3) = dbgItems.Columns(2)
lRow = lRow + 1
dbgItems.Row = 0
End Sub
The datagrid is populated correctly.

I then select one of the entries by clicking on it. (this is where I may be going wrong). I put the code into the datagrid's Got focus event. I want the data from the row I select by using the mouse.

Private Sub dbgItems_GotFocus()
fraInvMsg.Visible = False
SQL = "Select * from PartStatus where dbPSPONum = '" & frmReceived.cboPONumber.Text & "' and "
SQL = SQL & "dbPartNumber = '" & dbgItems.Columns(0) & "';"
Call GetTableData(rstPartStatus, SQL)
If rstPartStatus!dbIsThisNonInv = "N" Then
INVDisplay = "Non Inventory"
INVDisplay = "Inventory"
End If
lblQuestion.Caption = "This item is currently an "
lblQuestion.Caption = lblQuestion.Caption & INVDisplay & " item. Do you want to change it?"
End Sub
Following this code, there is code for a "Yes" and "No" command button. Assuming I want to make a change to dbIsThisNonInv, I will click the "Yes" command button.
Private Sub cmdYes_Click()
SQL = "update PartStatus set "
If INVDisplay = "Non Inventory" Then
SQL = SQL & "dbIsThisNonInv = '" & "N" & "' "
SQL = SQL & "dbIsThisNonInv = '" & "Y" & "' "
End If
SQL = SQL & "where dbPSPONum = '" & frmReceived.cboPONumber.Text & "' and "
SQL = SQL & "dbPartNumber = '" & frmReceived.dbgItems.Columns(0) & "';"
pconInventory.Execute SQL
Call GetGridInfo
fraInvQuestion.Visible = False
End Sub
After doing this update command, note--I call GetGridInfo to re-establish the datagrid. I may want to change the value of dbIsThisNonInv in another record within this recordset. As soon as I click on the datagrid, I get an error message "Rowset not available". Can you please tell me what I am doing wrong. The error is occurring in dbgItems_GotFocus on the SQL = SQL & "dbPartNumber = '" & dbgItems.Columns(0) & "';" statement.

Thank You,

The Rowset Is Not Bookmarkable
On one of the project form's, I have a datagrid that is only used for displays. NO updating is allowed to it. I am using Microsoft DataGrid Control 6.0 (SP6) (OLEDB)
The name of the grid is: dbgAltPart
Here is the code I'm using. As you can see, the first sql populates the recordset (rstAlternatePart). After that, based upon the value of rstPartStatus.Fields.Item("dbIsThisAnAlt").Value, I need to display the grid.

The Problem: When I execute the SET statement (Set dbgAltPart.DataSource = rstAlternatePart) I am getting an error message: "The Rowset is not bookmarable". Is there a way around this problem so that the grid will display?

SQL = "Select * from AlternatePart where dbAltPart = '" & HoldPN & "';"
Set rstAlternatePart = pconInventory.Execute(SQL)

If rstPartStatus.Fields.Item("dbIsThisAnAlt").Value = "Y" Then
Set dbgAltPart.DataSource = rstAlternatePart
dbgAltPart.Visible = True
GoTo GetPartStatus
Set dbgAltPart.DataSource = Nothing
dbgAltPart.Visible = False
End If

RowSet Not Bookmarkalbe
I am getting this error with regard to a datagrid control in VB 6. Can anyone explain what this means and how I could solve this problem??

Thanks so much for you help

Rowset Not Bookmarkable
I am getting runtime error 7004 Rowset Not bookmarkble. whats not being done right. i am reading an excel sheet and trying to load the data into a DataGrid

code below

VB Code:
Private Sub cmdbrowse_Click()    frmODBCLogon.Show vbModal, frmmain       Dim strQuery As ADODB.Recordset    sADOConnect = "PROVIDER=MSDASQL;" & sDSN & sConnect    sDAOConnect = "ODBC;" & sDSN & sConnect    Set gConnection = New Connection    gConnection.Open sADOConnect    Set strQuery = New ADODB.Recordset    strQuery.Open "SELECT * FROM [Sheet1$]", gConnection, adOpenDynamic, adLockOptimistic    Set DataGrid2.DataSource = strQuery

Problem With Rowset
i have this error when i try to movefirst on a recordset reading from command obj.

error is
rowset does not support fetching backward

can anyone help

Rowset Is Not Bookmarkable
when this line is executed:

Set dtgBeheer.DataSource = rs

I get the following error:

"the rowset is not bookmarkable"

Does anyone know how to solve this problem?


Rowset Is Not Bookmarkable ?? Why
I AM HAVING A TEXTBOX [Text1], a COMMAND BUTTON [Command1] & a MSHFlexGrid [fgrdTable] on a Form.
When a user enters a few characters and presses the command button i am calling the MSHflexGrid and filling it with the CUSTOMER NAME AND CUST_CD..This is basically a lookup help for the user to enter the CUST_CD in the text box..

IN THE CLICK EVENT of the BUTTON i am using this CODE which works perfectly..

Dim rsTableContents As ADODB.Recordset
Dim sSQL As String

xText = Trim(Text1.Text)
Set rsTableContents = New ADODB.Recordset
rsTableContents.Open sSQL, cn

fgrdTable.Visible = True
Set fgrdTable.DataSource = rsTableContents

** PROBLEM: The only problem here is the MSHFlexGrid which is not compatible, i mean no good features are present in this..Like adding captions, resizing the columns etc..I tried using the other GRIDS but none work..When i use a MS data Grid control 6.0 [OLEDB] using the same code i get a error " THE ROWSET IS NOT BOOKMARKABLE " Error 7004. i think this is not a big Error and can be solved very easily...CAN U GUYS PL HELP ME IN SOLVING THIS PROBLEM SO THAT I CAN DROP THE MSHFlexGrid and Use the more flexible Data Grid Control...??? AWAITING YOUR RESPONSES ...

The Rowset Is Not Bookmarkable
can someone help me wit this error..."the rowset is not book markable" where am i wrong?


Option Explicit

Public cnConnection As ADODB.Connection
Public rsRecordset As ADODB.Recordset
Public rs As ADODB.Recordset
Public strConnectionString As String

Private Sub cmdGenerateReport_Click()

Dim strSQL1 As String
Dim i As Integer
Dim oConnStr As String
Dim cnConnection As New ADODB.Connection
Dim rsRecordset As New ADODB.Recordset

'connect to the database
oConn.Open "Driver={Microsoft ODBC for Oracle};CONNECTSTRING="";uid="";pwd="";"

strSQL1 = "SELECT * FROM fact_ei_shift_indices WHERE mach_id = '" & Combo1.Text & "' and shift_id = '" & Combo2.Text & "' and fisc_date = '" & Combo3.Text & "' "

rsRecordset.Open strSQL1, oConn, adOpenDynamic, adLockOptimistic, adCmdText
'the error is in the below line
Set DataGrid1.DataSource = rsRecordset
rsRecordset.CursorLocation = adUseClient

'enable first combo box, don't want others until selection is made from combo1
Combo1.Enabled = True
Combo2.Enabled = False
Combo3.Enabled = False

'dereference recordset and connections

End Sub

Private Sub cmdExit_Click()
End Sub

Private Sub Form_Load()

Dim strSQL3, strSQL4, strSQL5 As String
Dim i As Integer
Dim cnConnection As New ADODB.Connection
Dim rsRecordset As New ADODB.Recordset
Dim mydate As String
Dim fisc_date As String

'connect to database
oConn.Open "Driver={Microsoft ODBC for Oracle};CONNECTSTRING=KLMPTRP;uid=genstage;pwd=gen877stage;"

'SQL statement
strSQL3 = "SELECT DISTINCT mach_id FROM fact_ei_shift_indices"
rsRecordset.Open strSQL3, oConn, adOpenDynamic, adLockOptimistic, adCmdText

'load the combobox
Do While Not rsRecordset.EOF
Combo1.AddItem rsRecordset!mach_id


'SQL statement
strSQL4 = "SELECT DISTINCT shift_id FROM fact_ei_shift_indices"
rsRecordset.Open strSQL4, oConn, adOpenDynamic, adLockOptimistic, adCmdText

'load the combobox
Do While Not rsRecordset.EOF
Combo2.AddItem rsRecordset!shift_id


'SQL statement
strSQL5 = "SELECT DISTINCT fisc_date FROM fact_ei_shift_indices"
rsRecordset.Open strSQL5, oConn, adOpenDynamic, adLockOptimistic, adCmdText

fisc_date = mydate & Format(mydate, "dd-MMM-yy")

'load the combobox
Do While Not rsRecordset.EOF
Combo3.AddItem rsRecordset!fisc_date


End Sub

The Rowset Is Not Bookmarkable

I tried to connect to a mySQL database using adodc and displayed the result set using datagrid and it worked.

But this one doesn't. Can anyone please explain to me why the result set isn't bookmarkable? Thanks..

Here's my source code.

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset

conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=pos;UID=root;PWD=;"
conn.Open "select * from users", conn

set datagrid1.datasource = rs

Rowset Not Bookmarkable
i've been trying all day to fill my dbgrid with a recset but cannot it tells me rowset is not bookmarkable. here is my code any answers

Dim cnn as new ADODB.Connection
Dim cmd as new ADODB.Command
Dim rst as new ADODB.Recordset

private Sub Command2_Click()
Form1.MousePointer = vbHourglass
MsgBox rst.Fields(3).Value
If rst.EOF then
MsgBox "No Record for Employee"
set DataGrid1.DataSource = rst
End If
Form1.MousePointer = vbDefault
'MsgBox rst.Fields(2).Value
End Sub

private Sub Form_Load()
EDate.Value = date
SDate.Value = DateAdd("ww", -2, date)
End Sub

private Sub ConnectDb()
Dim strName as string

strName = "SELECT * from SCP_XLog WHERE SCP_XLog.Occurance Between #" & SDate.Value & "# And #" & EDate.Value & "# AND SCP_XLog.Detail = '" & Combo1.Text & "'"
'strName = "SELECT * from SCP_XLog"
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=R:SwipeCardSwipeData.mdb;Persist Security Info=false"
cmd.ActiveConnection = cnn
rst.Open Source:=strName, _
ActiveConnection:=cnn, _
CursorType:=adOpenForwardOnly, _

'rst.CursorType = adOpenDynamic

End Sub

Failed Getting Rowset(s) From Current

I am developing a software which includes data reports. Setup files are
created using Package and Deployment wizard which includes MDAC 2.5 also.

The problem is when I install this package to a new system which is not a VB
installed system, it will work fine except the report. When I try the report
part it will show the error message "Failed getting Rowset(s) from current
data source". Could any one here help me?

Thanks in advance.


'Failed Getting Rowset(s)' Message. What Does This Mean?
I'm trying to run a data report using 3 levels of commands. When the program is executed and I want to display the DataReport the only thing I get is a 'Failed getting Rowset(s) from current data source' message. What does this mean and what I am doing wrong?

Error 7005 - Rowset Not Available
Everything in this code runs perfectly except the bold text
The data grid is changed as a result of a simple search and the last line gives
this error:
error 7005 - Rowset not available

Dim MyConn As ADODB.Connection
Dim MyRecSet As ADODB.Recordset
Set DataGrid1.DataSource = Nothing
Set MyConn = New ADODB.Connection
Set MyRecSet = New ADODB.Recordset
MyConn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};Dbq=DB.mdb;Uid=Admin;Pwd=;"
MyRecSet.Open Ssql, MyConn, adOpenKeyset, adLockPessimistic
Set DataGrid1.DataSource = MyRecSet
Call flightsNumber
If MyRecSet.EOF Then
MsgBox "לא נמצאו טיסות"
End If
End If
FlightID = DataGrid1.Columns("FID").CellValue(DataGrid1.Bookmark)
How do I fix this?

Copy Table Or Rowset
how can i copy an existing table in eVB and safe it under a new name or just copy some recordsets from one table and copy them to another table ???????

Thanks But Still Error - The Rowset Is Not Bookmarkable
I dont know how to display the CMD result at DATAGRID, pls help

With Cmd
    .ActiveConnection = fConn
    .CommandText = "rp_get_final_point"
    .CommandType = adCmdStoredProc
    .Parameters.Item("@id") = calHrsID
    .Parameters.Item("@key") = calJockey
Set result = .Execute
End With

Set frmRaceCard.DGRaceCard.DataSource = ???????

Edited by - kelvinfun on 8/27/2002 3:40:19 AM

Report Error : Failed Getting Rowset(s)
I too am having a hard time getting my data reports to show on certain machines. (Re: this thread)

I have created a VB 6.0 application that accesses an Access97 database. My problem is with displaying data reports. Just as the previous poster stated, everything works fine on the development pc, however when I distribute the app. (using package and deployment wizard) SOME other machines will not display the data reports. (Failed getting rowset(s) from current data source)

Having experimented with this issue for quite some time now I've gathered a few other bits of information. If I distribute to machines running Windows 2000 everthing seems work. Distributing to Win XP machines the error returns. Distributing to a Win XP machine with VB Studio installed seems to eliminate the problem.

My DataEnvironment uses Jet 4.0 and I open the report with the following code

Private Sub CmdSignup_Click()
End Sub

Every other aspect of the application works fine on all machines. It's just the data report that's causing me headaches.

Does anyone have any advice??? Thanks

Runtime Error 7005 - Rowset Not Available
Hi everyone,

I've been doing an app on my work pc, and decided to bring it home during the holidays. I've done this before without a hitch, by basically just putting the whole directory onto cd and transfering it. This time though, I'm getting problems due to a datagrid that's in the app. As the title implies, I get this runtime error 7005 when trying to access the datagrid.

I've searched through the forums and have come to the conclusion that the problem is probably a file that's not registered correctly. (MDAC 2.8 on both PCs, and the connection strings are correct).

So my question is this: how do I find out which file I need to register and how do I do it? regsvr32?

Report Error : Failed Getting Rowset(s)
Dear All

I've been trying to crack this problem for a while but with no joy. And I also see it has beset a few others in the past but I couldn't glean a solution from those postings so if anyone can help....

I've got a report that accesses data from an Access97 database using DAO3.51. I'm using VB6 Servive Pack5. Everything works fine on the development pc but when I distribute it I get 'Failed Getting Rowset(s) from data source'.

Other parts of the app access the db and they all work fine. It is only the report that falls over.

I have tried using Mdac 2.5 and Mdac 2.6....

Rowset Does Not Support Fetching Backward
Hi ppl,

I'm just having a problem with a random code. I have an error message coming up that says "Rowset does not support fetching backward" I'm just wondering if anyone knows what that means, and how I could fix it. It comes from the following piece of code:

TotalRecords = MyRecSet.RecordCount
ReDim PKey(TotalRecords - 1)
ReDim UsedIt(TotalRecords - 1)
k = 0
PKey(k) = MyRecSet.DataMember
k = k + 1
Loop Until MyRecSet.EOF


Rowset Does Not Support Fetching Backwards ????
What does this mean?
It pops up when I do this:

And when I try MyRecSet.MovePrevious, it says:
Operation not allowed in this context.

MoveNext seems to work fine for me.

Ideas ????

Rowset Does Not Support Fetching Backwards
I'm having this problem. Here's the code:

Do Until MyRecSet.EOF

SGID = MyRecSet.Fields.Item("SpawnGroupID").Value

If SGID = NewSGID Then
Spawn2ID = MyRecSet.Fields.Item("ID").Value
StrX = MyRecSet.Fields.Item("X").Value
StrY = MyRecSet.Fields.Item("Y").Value
StrZ = MyRecSet.Fields.Item("Z").Value
Heading = MyRecSet.Fields.Item("Heading").Value

Set CurrentFileData = lstcurrent.ListItems.Add(, , Spawn2ID)
CurrentFileData.SubItems(1) = SGID
CurrentFileData.SubItems(2) = StrX
CurrentFileData.SubItems(3) = StrY
CurrentFileData.SubItems(4) = StrZ
CurrentFileData.SubItems(5) = Heading

End If

There's something wrong with the MyRecSet.Movelast command. The reason i put it in there is because i want it to move to the last record so it can end the loop, instead of running through the rest of the database.
Hope I'm explaining this correctly, any help is appreciated. Thanks in advanced. BTW I'm new to vb coding that's why it probably looks noobish and sloppy.

Once again thanks

CR 9 Failed To Open A Rowset After Upgrade
I recently upgraded a client from crystal 7 to 9 (sp3). Well all seemed well until he opened one of his reports (connects to an HP3000 datasource via ODBC). Whenever this happens I get the "Failed to Open a Rowset" then a 3kodbc error. Not sure what it could be, report used to work before upgrade. One strange thing is that after the upgrade, we opened the report and it said "Proceeding to fix up report, data may have changed"

And I know for a fact that the data structure is EXACTLY the same.

Rowset Does Not Support Scrolling Backward
if have open a record set

VB Code:
If Rec.State = 1 Then Rec.Close    Rec.Open "SG_PurchRetItms '" & Rep(cmbVendor) & "','" & Rep(cmbBill) & "'", Con, adOpenDynamic    While Not Rec.EOF        Combo1.AddItem Rec.Fields(0).Value        Rec.MoveNext    Wend

by chaging the value in the combo1 i used to diplay it in a grid...

VB Code:
Rec.MoveFirst            Rec.Find "ProdItemName='" & Rep(Combo1) & "'"                ' got error in above line            flxView.TextMatrix(flxView.Row, 1) = Rec.Fields(1).Value            flxView.TextMatrix(flxView.Row, 2) = Rec.Fields(2).Value

but it is giving error in rec.find and i got the msg like .....

Failed Getting Rowset(s) From Current Datasource
Incorrect syntax and Methor or Data Member not found for my Report form after i convert it to SQL Server.Below is my coding in the properties of the SQL statement.Please advise:-

VB Code:
SELECT * FROM MainQuery WHERE Program = ? Program ORDER BY Program

Rowset Does That Support Fetching Backward
Query = "SELECT Top " & NumberOfTips & " * from Tip "

Set rstTip = New ADODB.Recordset

rstTip.CursorType = adOpenForwardOnly
rstTip.LockType = adLockReadOnly

rstTip.Open Query, g_DatabaseConnection


With rstTip
lblTipText.Caption = .Fields("TipMessage")
End With


On the code above when I hit rstTip.MoveLast I get the following error:

"Rowset does that support fetching backward"

Any ideas why?

Rowset Does Not Support Fetching Backward

I'm trying to use a simple....

VB Code:
RS.Open SQL, connect    RS.MoveLast        While Not RS.BOF        ...        RS.MovePrevious    Wend    ...

To do this, i'm using the Microsoft Activex Data Object 2.7 Library reference with an Access database in the 97 format.
When i debug the program it keeps on saying this:

Run-time error '-2147217884 (80040e24)':

Rowset does not support fetching backward.

Any ideia?


Run Time Error 7005 : Rowset Not Available.

I"ve just added a Datagrid on my form now i want via code to add it into the datagrid. Problem is i always get an error Rowset is not available but i did allowaddnew = true .

problem is i did in my code :

With dtaBestellingen
.Columns(0).Text = BestelNR
.Columns(1).Text = Label15.Caption
.Columns(2).Text = txtCode.Text
.Columns(3).Text = txtNaam.Text
.Columns(4).Text = txtPrijsExcl.Text * txtAantal.Text
.Columns(5).Text = txtPrijsExcl.Text * txtBTW.Text
.Columns(6).Text = txtAantal.Text
.Columns(7).Text = txtBTW.Text
End With

I hope someone can helps me with this problem:
Run time error 7005 : Rowset not available.
But the problem is how can i add a rowset via code for the datagrid?


Rowset Does Not Support Fetching Backward
Hi all,
I have a problem which I thought I had overcome a long time ago, but it has come back to visit me again
I have the following code, and the line that says rs.MoveLast is giving an error that says:
Rowset does not support fetching backward. I thought setting the cursor type to adOpenKeyset or to adOpenDynamic would solve it, but it is not. If anyone has an me out here.


Private Sub Form_Load()

Set conn = New ADODB.Connection
sConnString = "Provider=SQLOLEDB;Server=xxxxxxxx;Uid=XXXX;Pwd=XXXX;Database=xxxxx"
conn.Open sConnString

Set rs = conn.Execute("SELECT * FROM tblNames")
Do While Not rs.EOF
xxxxx.AddItem rs("xxxxx") 'adding item to a combo box
rs = nothing
conn = nothing
End Sub

Rowset Does Not Support Fetching Backward
Dear All,

Im using VB 6.0 and ORCALE 9i Lite Data base. I am getting the above mentioned error while try to Move backupward or Last record.

I have created the DSN=VBSIP (Oraclite ODBC Driver) which refers to my oracle lite database.

Here is the code.

Set sDBconn = New ADODB.Connection
sDBconn.Open sConnstring

This how i open my recordset.

RS.Open "select br_code, vou_curr_code, cv_serial_no, cv_date, max(amend_no) as amend_no from fom_cash_vou group by br_code, vou_curr_code, cv_serial_no, cv_date Order by br_code, vou_curr_code, cv_serial_no ", sDBconn, adOpenDynamic, adLockBatchOptimistic

I am able to move forward and move first record.


Run-time Error '7005': Rowset Not Available
This is a program which developed by other person and I'm trying to install into new Win2K PC. The program has been successfully installed into win2K PCs before (actualy 1 year ago) but now I'm facing some problem when do installation into new Win2K PC (I think the PC has same specs).

The program was written in VB6.0, using ADO2.1 + Jet 3.51, Ms Access 97, DataGrid. When do installation on the new Win2K PC an error has occured - Provider not found. So, I changed the program to be ADO2.5 + Jet 4.0 the previous problem solved but another run-time error came when to view the datagrid which said rowset not available.

I don't want actually to change the coding/form. So hope somebody can guide me to solve this.

Data Reports & Rowset Error
I am using a VB data report to display information from an oracle database, connected using ADO and a data environment. The problem occurs when I try to run the report. I get the following error message " Failed getting rowset(s) from current data source!"
Can anybody tell me what causes this error?

Failed Getting Rowset(s) From Current Data Source
I get the above error when trying to run reports made with VB's DataReport. I'm using an access database. Doesn't happen everytime, but when it does happen, I'll try and access the report by doing a and then a window pops up with the title 'Please enter ms jet ole db initialization information'.
The data source, username and openmode are always already set correctly, I click OK, then the above error pops up.

Failed Getting Rowset(s) From Current Data Source
failed getting rowset(s) from current data source

I get this error when I try to open a data report linked to a command based on
SELECT * FROM `session` WHERE (SessionNumber="222")

I am unsure of why this is generated.
There is a rowset where SessionNumber = 222 so it should work..

thanks if you can help

Failed Getting Rowset With Current Data Source
I keep on getting this error everytime I click my Print button. The thing is, I'm pretty sure it's not because of my codes since this exact application was working before I had to reformat my computer. I'm probably missing out on a Reference or something. This are my current references by the way:

Visual Basic for Applications
Visual Basic runtime Objects and procedures
Visual Basic Objects and Procedures
OLE Automation
Microsoft ActiveX Data Objects 2.0 Library
Microsoft Data Environment Instance 1.0
Microsoft DAO 3.5 Object Library
Microsoft Data Binding Collection
Microsoft Data Formatting Object Library
Idautomation LinearBarcode 1.3
Microsoft Data Report Designer v6.0

Oh, and another thing, where can I find the Data Link Properties dialog box?

Failed Getting Rowset(s) From Current Data Source
In some of my applications I have included an Access database report. I have installed these applications onto a new Windows XP computer. When I press the command button to show the report I get the message 'Failed getting Rowset(s) from current data source'. I do not get this problem on my old Windows 98 PC. I do not think it is anything to do with the Windows version. I have re-installed MSOffice. Any Ideas?

Rowset Does Not Support Fetching Backward Error
Can someone help me please ? I get this run time error in the title rowset does not support fetching backwards.

I am trying to have a previous button work so that it looks at all the records before the current one its looking at.

My code looks like this:

Sub cmdPrev_Click()

Hold = "exec sp_TRVLD_select_tbl_MMA_TRVLD_TRIP_DATA2_lookup " & sValues
Set rs = Nothing
rs.Open Hold, sADOConnect, adOpenDynamic, adLockPessimistic

If rs.EOF = False Then
Do While rs.BOF <> True
If rs(0) <> sAuthNum Then

rs.Move -1
sAuthNum = rs(0)
Call Edit_Travel

Exit Sub

End If


End If

End Sub

Copyright © 2005-08, All rights reserved