46,304 questions
VB6 versus RS.EOF is true in windows 10
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(57.599999999999994, 55.00000000000001%, 15%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EFD%3C/text%3E%3C/svg%3E)
Ferry den Boesterd
1
Reputation point
Hello All!,
I have an applications which runs ok, in a XP machine 32 bits in combination with Beckhoff Twincat plc and the PC(IPC) is from Beckhoff.
The application uses a acces mdb file for to save machine settings
Recently we swapped IPC machine into a IPC in Windows 10(Enterprise 2016 LTSB) environment, 32 bits , X64 processor
The application is made in VB6 version 9782 and we have recently changed some issues concerning colors is some text field, This new version is running in combination with the twincat plc but as soon as I want to read some machine settings from the database (mdb) in to a field then the values stays on zero but in real there are values in the database.
After logging , I found out that for some reason the RS.EOF condition is true, while in XP it is false
'Read dimensions
strSQL = "Select PackDefID, LayerLength, LayerWidth From tbl_Layer " & "Where LayerID = '" & m_LayerID & "'"
rs.Open strSQL, dbsConn, adOpenForwardOnly, adLockOptimistic
If Not rs.EOF Then
m_PackDefID = ValX(rs![PackDefID])
LoadingDimension.LayerLength = ValX(rs![LayerLength])
LoadingDimension.LayerWidth = ValX(rs![LayerWidth])
rs.Close
Xp is using jetengine 4.0 and framework 2.0
win 10 is .net framwork 4.8 installed, Miacces database engine 2010
Anyone any idea's?
Please feel free to comment.
If some info is missing please et me know
Kind regards,
Ferry
Community Center | Not monitored
{count} votes
-
Viorel 122.8K Reputation points2021-05-25T12:55:49.287+00:00 Do you get some layers if you temporarily remove the Where condition?
-
MotoX80 36,411 Reputation points2021-05-25T14:19:49.26+00:00 Maybe write a little VB script with that code so that you can run the test that Viorel suggested. and also try different values for m_LayerID.
With a .VBS you should be able to run the same test on other PC's that have different versions of the database engine.
Or put a message box in the VB6 code to display the value of m_LayerID before the call.
Did the datatype of m_LayerID change?
Sign in to comment
Sign in to answer