468,510 Members | 1,695 Online
Bytes | Developer Community
New Post

Home Posts Topics Members FAQ

Post your question to a community of 468,510 developers. It's quick & easy.

Vb6 VS RS.EOF is true

Hello All!,

I have an applications which runs ok, in a XP machine 32 bits in combination with Bechoff 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

Expand|Select|Wrap|Line Numbers
  1. 'Read dimensions
  2.   strSQL = "Select PackDefID, LayerLength, LayerWidth From tbl_Layer " & "Where LayerID = '" & m_LayerID & "'"
  3.   rs.Open strSQL, dbsConn, adOpenForwardOnly, adLockOptimistic
  4.  
  5.   If Not rs.EOF Then
  6.    m_PackDefID = ValX(rs![PackDefID])
  7.  
  8.     LoadingDimension.LayerLength = ValX(rs![LayerLength])
  9.     LoadingDimension.LayerWidth = ValX(rs![LayerWidth])
  10.     rs.Close
  11. end if
  12.  
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
3 Weeks Ago #1
0 2572

Post your reply

Sign in to post your reply or Sign up for a free account.

Similar topics

46 posts views Thread by Scott Chapman | last post: by
3 posts views Thread by drs | last post: by
36 posts views Thread by Remi Villatel | last post: by
14 posts views Thread by Walter Dnes (delete the 'z' to get my real address | last post: by
48 posts views Thread by Skybuck Flying | last post: by
30 posts views Thread by Jason | last post: by
90 posts views Thread by John Salerno | last post: by
71 posts views Thread by David T. Ashley | last post: by
2 posts views Thread by Ultrak The DBA | last post: by
40 posts views Thread by nufuhsus | last post: by
reply views Thread by NPC403 | last post: by
3 posts views Thread by gieforce | last post: by
1 post views Thread by fmendoza | last post: by
By using this site, you agree to our Privacy Policy and Terms of Use.