Check if a RecordSet has Data

Before you can query for a recordset, you need to make sure it has data in it. Public Function EmptyRS(ByRef adoRS As ADODB.Recordset) As Boolean    ‘Checks for an EMPTY RecordSet    On Error GoTo ErrHandler    EmptyRS = True    If Not adoRS Is Nothing Then        EmptyRS = ((adoRS.BOF = True) And (adoRS.EOF = True))    End IfExit FunctionErrHandler:    EmptyRS = TrueEnd Function

Read Excel and Text Files Using ADO

Read Excel File Using ADO. Public Function Read_Excel _         (ByVal sFile _          As String) As ADODB.Recordset       On Error GoTo fix_err      Dim rs As ADODB.Recordset      Set rs = New ADODB.Recordset      Dim sconn As String       rs.CursorLocation = adUseClient      rs.CursorType = adOpenKeyset      rs.LockType = adLockBatchOptimistic       sconn = “DRIVER=Microsoft Excel Driver (*.xls);” & “DBQ=” & sFile      rs.Open “SELECT * FROM [sheet1$]”, sconn      Set Read_Excel = rs      Set rs = Nothing      Exit Functionfix_err:      Debug.Print… Read More »

Faster Recordset Searching

This really can make your database searching much faster if you implement this to a big database. In normal search: Do While Not record.EOF   [search criteria]   record.MoveNextLoop To improve the search process, you can use this method: Record.MoveLastintCount=Record.RecordCountRecord.MoveFirst For i=1 To intCount   [search criteria]   Records.MoveNextNext i It can improve arround 40% faster. Try it!!

Menu-Related APIs Collection

This is a great collection of all Menu-Related API Functions with perfect examples. Attachments File Uploaded Size 1035-20190913-075959-MenuRlatedAPIFunctions.zip 9/13/2019 7:59:59 AM 24445

Show Modal Forms in Taskbar

This is a simple way to force MODAL FORMS show in TaskBar. By default, modal forms aren’t show in taskbar. This method uses ShowWindow API to hide the form and show it again after change WS_EX_APPWINDOW attribute of form (a clever way to do this is define the caption of form). Note if you use Visible property of… Read More »

Animating windows in VB

Try out this cool API function, by which you can make your window animate in any way. Through your VB code. Don’t know whether you guys have found it earlier or not, but those who doesn’t know about it yet…please do check out this stuff! Function Name : animatewindow() Library : user32 If you guys come up with… Read More »

Centipede

An attempt to remake the Arcade game of 1980, by Atari. Written in DX7 Attachments File Uploaded Size 94-20190912-092920-Centipede.zip 9/12/2019 9:29:20 AM 37189

Wild Waters

In essence, WILD WATERS, an adventure game which requires some imagination. A fair bit of it actually. You’re in a rowboat, at all times, your objective is to jump through quotas of hoops within given time frames. Easy enough? Well, there’s also many surrounding dangers in it which can very quickly end all the fun. Extremely dangerous waters,… Read More »

Christmas Cards

A card matching game with a holiday theme. Attachments File Uploaded Size 1033-20190912-092221-ChristmasCardsv.zip 9/12/2019 9:22:21 AM 117198