|
This ought to be simple, but it's kicking me....
I want to test the result of a division operation and return True IFF the division results in a whole integer.
Example Code (that hasn't worked so far)
Ticks +=1
If Ticks \2 Then
Do this
End If
If Ticks /2 Then
Do This
End if
The problem is, if I use \, once the result is >1, it always evaluates True. If I use /, the value always evaluates true.
Perhaps this isn't the most efficient way to do it. I'm using a time that Ticks once per minute, and I want to do some things every minute, some every 2, some every 3, and so forth. I'm open to any suggestions!
Thanks for your help!
Best,
Scott
|
|
|
|
|
Okay, I finally found my own solution...Googled a bit more 
It would probably help if I have a solid background in mathematics....
It took the form of a "double negative," to use grammar-speak...
If Not CBool(Ticks Mod 2) Then
Do This
End If
For anyone else who doesn't get the Mod function, as I didn't...it returns the remainder of the division operation. So when the remainder = 0, CBool returns False. Then the If Not reverses that...so you have "if there is no remainder, do this..."
Like I said, basic math....
Best,
Scott
|
|
|
|
|
Why waste the time doing the conversion when this will work just as good:
If Ticks Mod 2 Then
' The Mod resulted in a non-zero value...
DoSomething()
Else
' The Mod result was 0 (evenly divisible)
DoSomethingElse()
End If
The expression returns True if the result is a non-zero value.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
My application is written in VB .Net on Windows XP. A part of my program provides a System Configuration Dialog where user can pick a time zone, specify the date (MM/DD/YY) and time (HH:MM:SS AM/PM). Whenever a user changes any of the above fields and selects save, the specified information is saved as followed:
'Save the selected time zone
Shell("RUNDLL32.EXE SHELL32.DLL, Control_RunDLL TIMEDATE.CPL,,/Z" & StandardName)
where StandardName is the Std value at the
HKLM\Software\Microsoft\Windows NT\Current Version\Tim Zones\<the zone="" key="">
'Save the specified date
Today = CDate(StringValue(DateFieldName))
'Save the specified time
TimeOfDay = CDate(StringValue(TimeFieldName))
where Today and TimeOfDay are the members of the Microsoft.VisualBasic.DateAndTime
Testing Senario:
1) DayLight saving testing worked fine
At the System Configuration Diaglog, enter the following data:
- Time Zone: Pacific Standard Time
- Specified Date: 3/11/07
- Specified Time: 01:59:40 AM
When the time got to 2AM, the system clock was adjust forward to 3AM as expected.
2) Standard time testing NOT WORKING
The same selections as above except the date was set to 11/04/07
When the time got to 2AM, the system clock did not fall back to 1AM as expected. It stayed at 2AM and continued on!
I use the shell command to set the time zone because i could not get the SetTimeZoneInformation API to work. It created garbages in my registry setting for the daylight saving information.
Please help asap since the daylight saving is approaching fast.
Thanks a bunch in advance.
- Jewel
|
|
|
|
|
I'm having a bit of trouble trying to understand what you're doing with this. Are you trying to change the current state of Daylight Savings Time yourself? You know Windows handles this automatically, right?
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Interesting question. Perhaps, your program is working correctly (without regard to the "garbages in my registry"). How do you test the time change? What should happen?
The logistics of making the clock jump forward are straightforward. Advance the clock when you hit 2am. What happens when it is time to jump backwards. Obviously, MS has had this function working correctly for years. How should the system clock behave on the switch in November when you are watching it? Should it jump back to 1am when it reaches 2am? This poses a problem when it hits 2am the next time.
Dave do you know how to test this function?
|
|
|
|
|
Windows keeps track of a switch, if it's currently DST or not. The 2AM rollback only occurs if the switch current says it's DST. If it's NOT currently DST, the 2AM rollback doesn't occur.
Test it?? I don't even know what the point of all his code is! What's he trying to do with this that Windows doesn't already do?
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Hi Dave,
I know that Windows handles daylight saving automatically. Our application just provides the testers a function to change the time zone and time/date. The time should sync up with the OS for daylight saving automatically if it's selected from the OS datetime control panel (ie; there is no logic in my program that calculates the daylight saving). The testers need to test that functionality of the program and it did not work when they changed the time/date to 11/4 2AM to test for the fall back time (standard). We converted our program from VB6 to VB .Net. The one from VB6 used all the API calls (ie; RegQueryValueEx, MultiByteToWideCard..) and it worked fine when we tested the same scenario. In the VB .Net program I tried marshalling all the structures (SYSTEMTIME, TIME_ZONES_INFORMATION, OSVERSIONINFO..) I used but still could not get the SetTimeZoneInformation to work every time the date/time changed on my test dialog. My TimeZoneInformation registry contained garbages (StandardName, DaylightName, DaylightStart, StandardStart) whenever I called that API to update the datetime info. I finally gave up and used the Shell command to update the info instead of API's. The data looked correct in the registry now everytime the users modify the zone/date/time from the dialog. However, I could not fall back from daylight to standard time using our test program!!
- Jewel
|
|
|
|
|
How can I change this insert statement to insert 3 rows at a time?
Dim MyCommand As New Odbc.OdbcCommand("INSERT INTO ls_orderitems (OrderDate, OrderCustomer, OrderAcctNum, OrderType, OrderSoNum, OrderItemPartNum, OrderItemPartDesc, OrderItemQty, OrderItemQtyRec, OrderItemQtyDtRec, OrderItemBO, OrderItemBODt,OrderItemCanceled, OrderItemCanceledDt, OrderItemNotes, OrderItemPONum, OrderItemRetailPrice, OrderItemSalePrice, Status, InsertDate) VALUES('" & OrderDate & "','" & OrderCustomer & "','" & OrderAcctNum & "','" & OrderType & "','" & OrderSoNum & "','" & OrderItemPartNum & "','" & OrderItemPartDesc & "','" & OrderItemQty & "','" & OrderItemQtyRec & "','" & OrderItemQtyDtRec & "','" & OrderItemBO & "','" & OrderItemBODt & "','" & OrderItemCanceled & "','" & OrderItemCanceledDt & "','" & OrderItemNotes & "','" & OrderItemPONum & "','" & OrderItemRetailPrice & "','" & OrderItemSalePrice & "','" & Status & "','" & InsertDate & "')")
jds1207
|
|
|
|
|
Have you also thought about parameterised queries? The code as you've shown it contains security risks because you inject data into the SQL.
Depending on the back end database:
* you can create three INSERT statements in the one string.
* Or you may be able to artificially generate a result set containing 3 rows and insert that.
But, since you don't say what the database is, it is difficult to say.
|
|
|
|
|
Colin Angus Mackay wrote: Have you also thought about parameterised queries?
I've told him about it a half-dozen times. He refuses to listen...
Colin Angus Mackay wrote: Depending on the back end database:
* you can create three INSERT statements in the one string.
* Or you may be able to artificially generate a result set containing 3 rows and insert that.
But, since you don't say what the database is, it is difficult to say.
He's using Access, so batch queries are out of the question.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
|
My mistake. That's what I get for making an assumption because of the object you were using.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Actually you can't do it! You can use a loop and store different rows at each time. Therefore, you should carry the values with an array like OrderType(I).
What a curious mind needs to discover knowledge is noting else than a pin-hole.
|
|
|
|
|
JUNEYT wrote: Actually you can't do it!
Are you saying that because you know he is using MS Access? Or is this a general statement about SQL?
|
|
|
|
|
I assumed that he was using Access. Moreover, in development and programming it is not appropriate approach to insert 3 rows at same time with a single string because of readability and troubleshooting purposes.
If he was talking about the possiblity, yes you are right he can. 
What a curious mind needs to discover knowledge is noting else than a pin-hole.
|
|
|
|
|
You can create a result of three records and insert in the table, as Colin suggested.
Here's a short example:
insert into some_table (some_field, another_field)<br />
select 'Some data', 42<br />
union all<br />
select 'Some more data', -1<br />
union all<br />
select 'Even more data', 38745982
(I am not certain that a union works when creating a result for an insert this way. You might have to put the select statements in parentheses to make it a result, and select from that.)
---
single minded; short sighted; long gone;
|
|
|
|
|
I am not selecting anything, I am just inserting text files into a MySQL database. I am trying to increase the speed of my application because the data is being inserted very slow. However, when I run the program on my computer it will insert the files pretty quick but when ran on the computer in which I installed the application it will run slow. Any other ideas on how to increase the speed?
|
|
|
|
|
jds1207 wrote: I am not selecting anything
If you want to add more than one record with an insert query, you have to. There is no other way to make an insert query add more than one record.
---
single minded; short sighted; long gone;
|
|
|
|
|
Could you send me a sample using the code I provided?
|
|
|
|
|
jds1207 wrote: I am not selecting anything
The SELECT is to create a result set with three rows in it. You will also notice that it is part of the INSERT statement (you may wish to look up a SQL reference to see what you can do with an INSERT statement - including inserting data based on the result of a SELECT)
|
|
|
|
|
I have a home grown dll (written in VB6) that I suddenly cannot register on one of my machines Until now I could). I get error 0X80004005 when I try to register or unregister the dll using regsrv32. I also get a Permission Denied error when I compile it. The compile creates the dll file.
I have tried researching this elsewhere to no avail.
Thanks in advance for any assistance!;)
|
|
|
|
|
The problem appears to be that your component is dependant on the existance of another .DLL or COM component, which is not registered or could otherwise not be found. When you compile the .DLL code, VB6 automatically tries to register the new component. If a dependacy is missing, the registration can fail. Another possibility is that you're not part of the PowerUsers or Administrators group, so you don't have the permissions to register components.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Dave- Thanks for your quick response. I should have mentioned that I am a member of the Administrators group. As for missing another .dll or .com, my component uses MSAccess and Microsoft ADO 2.0 Library is a reference in the project.
Gerry Kopelman
|
|
|
|
|
ADO 2.0? That's going back in time!
Well, it's probably not a dependancy issue, unless you start installing it on Windows 2000 and higher. In that case, you'll probably have to update the code to use ADO 2.6 or better.
Another possibility I didn't think of is that an older version of the .DLL that is being built is already in use by another app somewhere and the new build can't be written to the disk.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
