VB Forum / Database Access / August 2008

Hi,

I am getting different behavior between running my code in VB6 IDE and after
creating an EXE.

In the LostFocus code given below, I have two messages being displayed,
namely, Msg-1 and Msg-2.

When I run it in IDE, I get same messages for Msg-1 and Msg-2.

But when I create an EXE and run it, Msg-1 shows RecordCount = 1 and .Source
as what was set and Msg-2 shows RecordCount = 198 and .Source = SELECT ...
FROM Client. Yes I do have table named Client with 198 rows in my database
and I do use this SELECT ... FROM Client in a GotFocus event after finishing
with the given LostFocus event But how can this happen?

The database I am using is Sybase ASE 15.0.2

I open the ADODB connection in the Form_Load as follows:

 Set oConn = New ADODB.Connection
 Set rs = New ADODB.Recordset

 'make connection with DBMS
 With oConn
   .ConnectionString = "DSN=ASE15_MY_DB;UID=sa"
   .CursorLocation = adUseClient
   .Mode = adModeReadWrite
   .Open

   If .State = adStateOpen Then
     .Execute "USE MY_DB", , adCmdText
   End If
 End With

Then in a LostFocus event, I have the following code:

       With rs
         If .State = adStateOpen Then
           .Close
         End If

         .ActiveConnection = oConn
         .CursorLocation = adUseClient
         .CursorType = adOpenForwardOnly
         .LockType = adLockReadOnly
         .Source = "SELECT ... FROM Project WHERE ProjectCode = '" +
txtProjectCode.Text + "'"
         .Open

         If .State = adStateOpen And .RecordCount > 0 Then
           MsgBox "Msg-1: The RecodCount = " + Format$(.RecordCount, "#") +
"  .Source = " + .Source
           iAns = MsgBox("The entered project code already exists." +
vbNewLine + vbNewLine + "Do you want to add a NEW INSTANCE of the same
project?", vbYesNo + vbQuestion, "Entering Project Code")
           If iAns = vbYes Then
             MsgBox "Msg-2: The RecodCount = " + Format$(.RecordCount, "#")
+ "  .Source = " + .Source

               --- some more code ---

           EndIf  'end of iAns = vbYes
         EndIf  'end of .State = adStateOpen And .RecordCount > 0

       End With