Results for "Author: brian battles ws1o"
This is just an update to the nice piece of code submitted by VF-fCRO on 1/12/2002. I simply added some small features (elapsed time, a different way to loop, minor text edits, etc). Doesn't really change the purpose of the original, just adds a few touches to it. the original is at http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=30734&lngWId=1 I wouldn't really entitle VF-fCRO's submission a "mistake"; he/she actually submitted a demonstration of a better way to handle concatenating strings with a far faster technique, and it doesn't use and API calls or weird, esoteric methods.
Silly, fun animated About Box for your applications (use your own pictures!) Even plays dopey sound effects!
If you're ever wondering what's contained in a recordset you currently have open, here's a quick and dirty way to dump all the data you could want to the Immediate window, which you can view there, or copy and paste into a notepad document or other textfile for printing, etc. I like to keep this somewhere I can quickly copy and paste it into any module or routine that uses a recordset in case I lose track of which field is which. (I've only tried this with VB 6.0 and AO 2.6, but I imagine it would work with other versions.) --Brian Battles WS1O Middletown, CT USA
** UPDATED ** SUPER easy all-in-one Web page hit counter using ASP, takes seconds to paste into any ASP page, tracks hits, site statistics for as many pages as you have, multiple sites on one server etc. Free and so simple to use...WOW!
Create a download page for your files, and log who downloads them (by capturing their IP address/DNS Host name), and count the downloads by day, week, etc
CompactAllMDBs is a Microsoft Access 2000/2002 (XP) application that will (1) Search for all specified files (default is .MDB and .MDA files) in a specified directory (and optionally, in all subdirectories below it) (2) Display all such files found in a listbox with their sizes (3) Compact all the files it found or only the ones selected from the list by the user (4) Search for the same files it found the first time and compare their size as compacted with their original size, to see how much disk space has been reclaimed It's handy to keep your ever-inflating MDB files of a manageable size, and it works nicely on networks. This can't really eb smoothly ported to MS Access 97 because it uses ENUMs in the code, which isn't supported by VBA in Office 97, to my understanding. Also included: (1) A simple routine for calculating and displaying elapsed time for the process down to milliseconds. (2) A "Browse For Folder" routine, based on a Windows API call (I originally wanted to make this start with a specified default folder, but I haven't had a chance to figure out how to do that yet) (3) Uses the Access (2000/2002) routine to Compact and ReCompile the application when it's closed down. In your VBA code, this application requires a Reference to MS DAO 3.6 library If you have any comments or questions, drop a note to brianb@battleszone.com
VBRSGen is a handy VB 6.0 Add-In that creates formatted ADO/DAO recordset and SQL code from Access database tables and queries. Generates variables, sets objects, etc. Also includes a simple "Where" clause creator tool and a results preview grid. Code is ready to paste from the Clipboard or Notepad. Some SQL statements aren't parsed properly, but these can be easily edited; this still saves a lot of time in repetitive ADO/DAO database coding. I'm making this available elsewhere as shareware for $20, but because the PSC community has provided so much invaluable support and helpful code, feel free to download the open source code here for your own personal use at no charge! This was originally posted in early April 2002 and received amazing feedback and dozens of "5-Globe" votes, until the PSC database had some problems. So please vote and leave feedback to let me know what you think!
Small app sits in SysTray and lets user maximize or minimize all running instances of Internet Explorer, handy when you've been popping links open in separate windows all over the place. Uses API calls so it's quick.
Allows users to select any DSN-less ODBC data source, or an MS Access database, to display the tables in it, and select a table, which is automatically loaded into an Excel spreadsheet, complete with column headings (field names). Based on project submitted by Ian Mitchell: http://www.planetsourcecode.com/xq/ASP/txtCodeId.25934/lngWId.1/qx/vb/scripts/ShowCode.htm I just changed it to use ADO instead of DAO, and DSN-Less ODBC data sources, instead of just MS Access. Slight modifications (error handling etc) on august 9, 2001
Allows users to select any DSN-less ODBC data source, or an MS Access database, to display the tables in it, and select a table, which is automatically loaded into an Excel spreadsheet, complete with column headings (field names). Based on project submitted by Ian Mitchell: http://www.planetsourcecode.com/xq/ASP/txtCodeId.25934/lngWId.1/qx/vb/scripts/ShowCode.htm I just changed it to use ADO instead of DAO, and DSN-Less ODBC data sources, instead of just MS Access. Slight modifications (error handling etc) on august 9, 2001
I just took Todd Herman's project and added a simple search form to let you pick your own .ANI file. Check out Todd's original project at http://www.planetsourcecode.com/xq/ASP/txtCodeId.26016/lngWId.1/qx/vb/scripts/ShowCode.htm
Silly, fun animated About Box for your applications (use your own pictures!) Even plays dopey sound effects!
This is just an update to the nice piece of code submitted by VF-fCRO on 1/12/2002. I simply added some small features (elapsed time, a different way to loop, minor text edits, etc). Doesn't really change the purpose of the original, just adds a few touches to it. the original is at http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=30734&lngWId=1 I wouldn't really entitle VF-fCRO's submission a "mistake"; he/she actually submitted a demonstration of a better way to handle concatenating strings with a far faster technique, and it doesn't use and API calls or weird, esoteric methods.
If you're ever wondering what's contained in a recordset you currently have open, here's a quick and dirty way to dump all the data you could want to the Immediate window, which you can view there, or copy and paste into a notepad document or other textfile for printing, etc. I like to keep this somewhere I can quickly copy and paste it into any module or routine that uses a recordset in case I lose track of which field is which. (I've only tried this with VB 6.0 and AO 2.6, but I imagine it would work with other versions.) --Brian Battles WS1O Middletown, CT USA
Very simple, almost useless code! Shows all "printable" ASCII characters. I needed this for something else, so I thought I'd post it here for beginners' benefit
A simple project that lets you display, edit, add and delete entries in your Microsoft Outlook "Junk Senders" list. If you've used the Outlook Rules Wizard to create a list of Junk Senders, this gives you a more flexible interface to maintain them. The neat thing is that this all fits easily into the code behind one very basic form.
Extracts the contents of a "child" substring from a "parent" string between 2 additional specified substrings. For example, if you called it like this: GetStringBetween("Fourscore and seven years ago, our fathers", " and ", " our ") It will return "seven years ago,"
Generate string containing current time rounded to the nearest N minutes (eg, set it for 5-minute intervals and 3:15 to 3:20 PM are displayed as 15:15). Could be used to fire events every N minutes, or whatever.
Compares a string to a list of items in another string, and returns how many matches are found
Finds SQL Servers on your LAN