devxlogo

Tip Bank

SQL and Using Text and Combo Boxes

Question: I write a statement such as frmStatistics.datStatistics.RecordSource = “SELECT * FROM tblSpecialGroup Where Sex = ‘M’ AND Date BETWEEN ‘” & “051099” & “‘” & ” And ” &

Migration from FOCUS 6.0 to SQL Server 7.0

Question: Are there any tools coming with SQL Server 7.0 for this migration from FOCUS 6.0? If not, what is the best way to accomplish this migration? Answer: Yes, DTS

Business Rules and Semantic Object Models

Question: What are business rules in relation to a DBMS. Do you have any posssible examples for a university database? Also: Do you have any hints to drawing a Semantic

BitClear – Clear a bit in a value

‘ Clear a bit in a value” NOTE: requires Power2()Function BitClear(ByVal value As Long, ByVal bit As Long) As Long ‘ simply AND with the negation of the bit mask

ShiftRight – Shift a Long to the right

‘ Shift to the right of the specified number of times” NOTE: requires Power2()Function ShiftRight(ByVal value As Long, ByVal times As Long) As Long ‘ we need to create a

ShiftLeft – Shift a Long to the left

‘ Shift to the left of the specified number of times” NOTE: requires Power2()Function ShiftLeft(ByVal value As Long, ByVal times As Long) As Long ‘ we need to create a

RotateLeftI – Rotate an Integer to the left

‘ Rotate an Integer to the left the specified number of times” NOTE: requires Power2()Function RotateLeftI(ByVal value As Integer, ByVal times As Long) As Integer Dim i As Long, signBits

RotateRightI – Rotate an Integer to the right

‘ Rotate an Integer to the right the specified number of times” NOTE: requires Power2()Function RotateRightI(ByVal value As Integer, ByVal times As Long) As Integer Dim i As Long, signBits