Recordset Issues

[iskyline]

Hi there,

does anyone know why when opening a recordset the value is on to EOF ... i want it to stay on the first record ... whenever the recordset is opened.

[missinglinq]

If it's going to the End Of File on opening, you've probably unwittingly told it to! How are you determinig that it's going to the End Of File? Do you mean, for instance, that the record showing is the last record, alphabetically, in the record set? Is the form based on a table or a query? If based on a query, is one of the fields sorted Descending instead of Ascending?

[iskyline]

hi,

here is the code i'm using.

this code is in another loop (for loop - user defined number of times) and opens works fine the first few times ... then it skips one recordset because the IF statement is true... and then is fine again ... then maybe skips a few more ... that's basically the output ... it's not giving an EOF msg on exactly the same files, ... it just works the way it wants to or something ...

do you think there is something missing?

sometimes it also misses out one or two lines from the search reults.

txtConnection.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source =" & NetPath & dbfile 
txtRecordset.Open "SELECT " & tab35 & ".prefix, " & tab35 & ".Indexing, " & tab35 & ".extension, " & tab36 & ".Title FROM " & tab35 & " INNER JOIN " & tab36 & " ON " & tab35 & ".Indexing = " & tab36 & ".Indexing", txtConnection, adOpenStatic, adLockOptimistic
 
     If txtRecordset.EOF Then
    'msgbox "No Match in database, please make sure you have selected the right files..."
    document.write("<BR>")
    document.write ("Error Occurred While Processing the file below ... Please Process Again")
    document.write("<BR>")
     Else
    document.write("File Number ") & i+1
    document.write("<BR>")
    document.write("Output Text for file ") & textfilepath 
    document.write("<BR>")
    Set objectwriteFile = objFSO.OpenTextFile(textfilepath, ForAppending, True)
     While Not txtRecordset.EOF
 
    efix = txtRecordset.Fields("prefix")
    xing = txtRecordset.Fields("indexing")
    sion = txtRecordset.Fields("extension")
    itle = txtRecordset.Fields("title")
 
 
    document.write(efix & vbTab)
    document.write(xing & vbTab)
    document.write(sion & vbTab)
    document.write(itle & vbTab)
    document.write("<BR>")
    objectwriteFile.Writeline(efix & vbTab & xing & vbTab & sion & vbTab & itle)
    txtRecordset.MoveNext
     Wend
     End If
objectwriteFile.Close
txtRecordSet.Close    
txtConnection.Close
 
 

If it's going to the End Of File on opening, you've probably unwittingly told it to! How are you determinig that it's going to the End Of File? Do you mean, for instance, that the record showing is the last record, alphabetically, in the record set? Is the form based on a table or a query? If based on a query, is one of the fields sorted Descending instead of Ascending?

[iskyline]

Got the answer by trial and error, so just posting for anyone with the same issues in the future.

make sure you have the cursorlocation of the recordset before you open the recordset ... makes the database accessing 100 times faster as well as gives you the right results.

following is the sample code.

 
Const adUseClient = 3
 
txtRecordset.CursorLocation = adUseClient
txtRecordset.Open
 
 

Hi there,

does anyone know why when opening a recordset the value is on to EOF ... i want it to stay on the first record ... whenever the recordset is opened.