Don't miss this guys coz' this is a corporate code that i developed before using ADO with complete Login Entry,Masterfiles,Transactions such as Sales Order, Purchase Order,Receiving Order, Reports such as Inventory Report,Sales Report,Critical Report and Backup/Restore/Password Security features. Using this example you can learn a lot about how ADO really works without using any data controls. This is the best contribution of mine in PSC so far so you better not miss this coz' this code really rocks. PLEASE DON'T FORGET TO VOTE FOR THIS CODE COZ' THIS CODE REALLY ROCKS!!!
Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. Afterdownloading it, you will need a program like Winzip to decompress it.Virus note:All files are scanned once-a-day by Planet Source Code for viruses, but new viruses come
out every day, so no prevention program can catch 100% of them. For your own safety, please:
Re-scan downloaded files using your personal virus checker before using it.
NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.
Scan the source code with Minnow's Project Scanner
If you don't have a virus scanner, you can get one at many places on the net
including:McAfee.com
Terms of Agreement:
By using this code, you agree to the following terms...
You may use
this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
You may link to this code from another website, but ONLY if it is not wrapped in a frame.
You will abide by any additional copyright restrictions which the author may have placed in the code or code's description.
Message to all: This Login Entry is encrypted so you better use this username: "admin" and the password is: "admin" also, you can change the Login Entry after you have entered the program and go to the Password Security Menu and change it if you want. GOOD DAY TO ALL OF YOU !! HAPPY LEARNING!! DON'T FORGET TO VOTE FOR THIS CODE.. (If this comment was disrespectful, please report it.)
Hi, I thought crystal report was with VB5 and VB net. I did not see any library for crystal report. Pardon my ignorance , how do I get crystal report?. (If this comment was disrespectful, please report it.)
I have included all the reports in my code and the extension name is "*.RPT" . The Crystal Report 7 OCX control is not a shareware you have to buy it just like what you did to your Visual Basic unless your Visual Basic is a pirated copy. (If this comment was disrespectful, please report it.)
hi walter i just saw your code , it realy worths voiting. it really is something clear and clean?? i always wished that my project were like this one??? wish you best of luck. roseta (If this comment was disrespectful, please report it.)
Excellent program! I'm still a bit of a newbie and your code has helped understand a lot. I had trouble with Crystal reports at first but found information on MS's site,I would like to share that info with other "newbies" "To install Crystal Reports, run Crystl32.exe. The location of Crystl32.exe depends on which version of Visual Basic or Visual Studio you own. In all cases, it is in the following relative path: \Common\Tools\VB\CrysRept\Crystl32.exe Use the following table to determine which CD to use:
Product Disk ----------------------------------- Visual Basic Professional 1 Visual Basic Enterprise 1 Visual Studio Professional 2 Visual Studio Enterprise 3
(If this comment was disrespectful, please report it.)
I intended the database itself to be password protected to demonstrate how to connect to a password protected database in which i included in the code itself. Anyways, thank you very much for all the people who vote for me. (If this comment was disrespectful, please report it.)
Nice Code, i have cryst report version is 4.6, so its not working properly, is their any way to rectify the problem....any how accept my vote.....The code helps me a lot... (If this comment was disrespectful, please report it.)
This code rocks man!! If you want the code to run properly you have to have the Crystal Report Version 7. What an excellent job Walter!!! Keep it up dude!! (If this comment was disrespectful, please report it.)
What can i say....this code is simply the best and most of all the most complete code ever sent here at PSC. I gave you man a rate of "Excellent" for a well done job. (If this comment was disrespectful, please report it.)
Excellent bit of coding and really clear screen design. I am in the middle of a similar project for Pubs & Nite Clubs here in Ireland and couldn't resist having a peek at the code. Class Stuff !! (If this comment was disrespectful, please report it.)
To all: This program simply demonstrates all the distribution of ingredients according to it's recipe and from there it will automatically adjust the inventory according to sales (If this comment was disrespectful, please report it.)
Hi, Excellent Job Done. Question: When running the progtam, it prompt Compile error: User-defined type not defined. and move to line under:Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Please advise. Regards, DT
(If this comment was disrespectful, please report it.)
DT, There is no error in my code. Probably you have an incomplete VB6 Components that's why you encountered such problems. If anyone is curious where to look for the Crystal Report Website...this is it. http://www.seagatesoftware.com/homepage/ I am not endorsing thier product i just want to help others. And thanks for the compliments.
(If this comment was disrespectful, please report it.)
Outstanding effort Dude!!!, I have tested your program and it really works. This is the most professional and useful code ever sent in PSC. Keep up the good work and more power. (If this comment was disrespectful, please report it.)
Now, I was just looking for some example on how to use Crystal Report inside VB. So I am very happy to discover out your code. I have not seen it yet, but I give you 5 globes on believe it will solve some matters I have with passing parameters to the OCX. See you in the net. (If this comment was disrespectful, please report it.)
How can this code be changed to work with ACESS 2000? I wanted to be able to use ACESS 2000 to edit the database, but when I converted it the program crashed. Also I have problems with the password. I am certain that I enter admin, but it does not accept it. I am using VB6 with SP5
(If this comment was disrespectful, please report it.)
This looks very good. However, I can crash the menu information screen. I get the message "Row cannot be located for updating. Some values may have changed since it was last read." This message has been the bane of my life for a while in the ADO databases that I write. Does anyone know what this means and how to fix it. It always seems to happen on forms that have a parent/child format. Thanks. (If this comment was disrespectful, please report it.)
The database password is "MFSC" and to convert the SQL Connection to Access 2000 just follow this line -> db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDB (If this comment was disrespectful, please report it.)
Hi there..excellent job man.. but, i get problems whenever i want to add something.. the PO, or receiving note or menu.. i can edit and save .. but, i can't add (create a new) .. say create a new PO.. or new Menu.. i get the following error..
(If this comment was disrespectful, please report it.)
Steve Dude, Hey man...listen to me!! I think Walter is right on what he is doing coz' he just want us to learn some of his coding or enhancement regarding the Comic Pagemaker. Anyways, Walter is a database programmer and he just try to do some experiments with some of codes here in PSC but most of his submissions that i haved already checked are all original especially the database programs. So, i gave Walter (If this comment was disrespectful, please report it.)
Walter <====RULES!!! 5/5 What a perfect code. I haved checked the program and reviewed it and i don't find any problems. Walter, your code is original and clean!!! So, Steve Dude get out in PSC coz you are one hell of a looser!! And Steve Dude don't bother to destroy Walter's reputation coz' he already earned his rights here in PSC. More Power Walter!! I'm one of your biggest fan. (If this comment was disrespectful, please report it.)
Steve Dude...you are one hell of a looser. In fact, you are the one who have no morals because you judge a person as if you are (If this comment was disrespectful, please report it.)
I agree James. Mr. Steve Dude!! Get a life and stop destroying my reputation because no one believes on your accusations. This code is originally made by me only without the help of anyone so stop your jealousy about my code ok. And get a life Steve Dude! (If this comment was disrespectful, please report it.)
If you guys think I am full of it, take a look at a new posting from the actual author of the code Walter CLAIMS is his under Comic PageMaker...Who is the real looser here, Walter? :) The proof is in the pudding. If you are right about anything, it's the fact that this is good award winning code, too bad Walter didn't do it. How would you guys like it if someone ripped you off and claimed it was theirs? I have just shown you the FACTS! Grow up and get a life children. (If this comment was disrespectful, please report it.)
Steve Dude is not a programmer but a COMPLETE M O R O N,I D I O T,E M B I C I L E,B A S T A R D & R E T A R D E D ever lived in this planet!! Everyone!! don't ever listen to this Steve Dude for he himself is a THIEF!! (If this comment was disrespectful, please report it.)
To Childish Steve Dude: For your information, this award winning code of mine has been reviewed and tested by PSC officials so there's no way that this code will be noted as stolen. This award winning code of mine will not win if this is stolen so you better think of your childish accusations Steve Dude. Better do some productive way of living than doing this malicious accusations. (If this comment was disrespectful, please report it.)
Walter, your code is an excellent aid for learning for newbies like mysef...however, i have encountered an error while trying to load it..i have crystal report installed with vb6.0 yet when it loads it says :-crystal32.ocx not found...could you tell me where i am going wrong??? rgds fatima (If this comment was disrespectful, please report it.)
dude your code is sweet. only one person has a problem with it, you have talent and nevermind someone being jealous of your work. (If this comment was disrespectful, please report it.)
Excellent works!!! I can use your code's for my new study project in university here... Malaysia student. TQ!!! (If this comment was disrespectful, please report it.)
I have 3 books on ADO and numerous others. Using this project I've managed to learn more in a night of working with it, than I've learned in using the books. Well done man. You got my votes. TC (If this comment was disrespectful, please report it.)
when I tray to load the project I get the following error message: "..\\CODE_UPLOAD14534242001\MFSC\crystl32.ocx could not be loaded" while crystal report is alrady installed in my system and also I have Trying to copy this ocx file in the specified directory but the problem still. (If this comment was disrespectful, please report it.)
The version of Crystal Report that i used in this project is Version 7 so you better update your Crystal Report. (If this comment was disrespectful, please report it.)
When I try to run program I am getting compile error "Object does not source automation events" for line "WithEvents adoPrimaryRS2 As Recordset". I am new in VB and don't know what I should do...:(
(If this comment was disrespectful, please report it.)
Elena, Open the MFSC.VBP using notepad and cut and paste this ff. line to MFSC.VBP and save it afterwards Start here => Reference=*\G{00000200-0000-0010-8000-00AA006D2EA4}#2.0#0#..\PROGRAM FILES\COMMON FILES\SYSTEM\ADO\msado20.tlb#Microsoft ActiveX Data Objects 2.0 Library Reference=*\G{00025E01-0000-0000-C000-000000000046}#4.0#0#..\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\DAO\DAO350.DLL#Microsoft DAO 3.51 Object Library
(If this comment was disrespectful, please report it.)
Hi Walter, I tried your code. Excellent Work Man! But when I tried to add a new S/O, P/O or R/O it gave me this error message: (If this comment was disrespectful, please report it.)
Hi Walter, I tried your code. Excellent Work Man! But when I tried to add a new S/O, P/O or R/O it gave me this error message: "Can not find the row". And the debug focused to Public Sub xTransfer_Timer()section. I can't understand why is that? Can you help me to solve? (If this comment was disrespectful, please report it.)
Great Stuff but I have some problems; a) before it loads it says errors during loading. refer to c:\ FrmMain.log for details and if I press yes it msg box 10 times syaing VB error
and then when I finally run it again prompts me of error FrmMain.log and then if i edit anything in PO or SO it gives this run time error 7009 can not find the row please help me. Anyway your code and effort deserves a big five votes from me.
(If this comment was disrespectful, please report it.)
Walter, Thanks for writing this code. However, I run into the same error that Peter posted a message about on 3/7/2001 : "Row cannot be located for updating. Some values may have changed since it was last read." This message has been the bane of my life for a while in the ADO databases that I write.
Do you have any advice? -Jonathan (If this comment was disrespectful, please report it.)
When I tried to add a new sales order, it gave me an error - 'Can not find the row'. Can somebody help me (If this comment was disrespectful, please report it.)
I was interested in your code because I wanted to learn about creating reports.But I have had the same error msg as others re : Crystal32.ocx not found. I have installed Crystal Reports from VB Prof cd so what next ? Please advise. Also after creating a new user and password it says that the passwords do not match even tho' it accepts it. (If this comment was disrespectful, please report it.)
Walter your code is very nice it helped me a lot in learning VB But I'm not being able to add records in forms that uses the datagrid Error is:No.7009 -Cannot find the row Please help (If this comment was disrespectful, please report it.)
Hi, when I try to open your report I got Error 20533 Unable to open database error. Please help. (If this comment was disrespectful, please report it.)
I think that the code is helpfull, but I haven't time enough to read it now. Probably I'll vote it excellent when I read it. Congratulations and thank for your help ! (If this comment was disrespectful, please report it.)
Wow, verry nice code u got there man... it helps me a lot. Thanks and keep up the good work!!! I'm a fan of no one but let just say that I like u'r work.
(If this comment was disrespectful, please report it.)
u better write a book, man! wag mo na lang pansinin si Steve dude, KSP lang yon (Kulangot Sa Pader). U rock! (If this comment was disrespectful, please report it.)
I too have a problem that I cannot access the program as the password admin or even ADMIN will not be accepted... what am i doing wrong? (If this comment was disrespectful, please report it.)
"corporate code"?? What kind of corporation codes with global database variables? Not a very good coding style to use global database vars... A better design would be a 3 step process Open Database, Write/Read, Close Database....I dont' even think you have code in your project that actually closes the db. This is a joke. (If this comment was disrespectful, please report it.)
I think atleast 6 others have already sent this same message that there is a prob in S/O, P/O etc that when u try to add a record it gives 'runtime error 7009 cannot find a row' in xtransfer_timer module please help if u can walter. also fantastic code, thank you for posting it (If this comment was disrespectful, please report it.)
7/7/2002 5:51:08 PM:
Hi, Good programme I learn a lot...but why the database password is protected....I like to see the database can U send me the password for it. thank's (If this comment was disrespectful, please report it.)
I cant run the program, i opened it & theres a error message appear "CRYSTL32.OCX cannot be loaded", "Error during load: refer FRMMAIN.log for details", what will i do? Anyway Mabuhay ka pare, Pinoy Rules!!! (If this comment was disrespectful, please report it.)
Hi..i could not download your code due to restriction here in my college. I hope you can let me know about what your program is..in detail, how it works, how is it usefull to other ppl, you know something like a briesf descrition of what your program really does. Thank you in advance. (If this comment was disrespectful, please report it.)
9/21/2002 1:57:36 PM:
vb info-i was strict to use this module,any clue? (If this comment was disrespectful, please report it.)
9/24/2002 6:37:00 AM:
pangit ng program mo (If this comment was disrespectful, please report it.)
10/6/2002 9:05:06 PM:
great code! mabuhay (If this comment was disrespectful, please report it.)
11/11/2002 11:52:30 PM:
Hi, From the look, the code seems to be good. I have error as stated below and Please provide me solution to it. Run-time Error '3704' and this error stops at all WithEvents adoPrimaryRS3 As Recordset statements. What could be the problem and how can I solve the problem. (If this comment was disrespectful, please report it.)
11/11/2002 11:57:11 PM:
Hi, I have problem with the following statement... run-time error '3704' and this stops at all the statement written in code adoPrimaryRS3 As Recordset at every place. Please help me to look at what you have designed that looks good to learn and cherish. (If this comment was disrespectful, please report it.)
3/12/2003 3:28:14 AM:
If anyone has found the fix or has updated this code to work properly with the ROW BUG and the DATABASE access bug, especially during the sales transaction - can you please email me the fix or if you have updated or fixed this code in anyway can you please send me the code so I can get it working properly? I love this code and wish I could get it working, thanks for your help everyone.
My email: burfordj@mailcity.com
Cheers.
(If this comment was disrespectful, please report it.)
3/19/2003 3:37:08 PM:
bro try clicking add, click undo and see the result. (If this comment was disrespectful, please report it.)
if you guys want to get in touch with me email me at customized_programming@yahoo.com (If this comment was disrespectful, please report it.)
4/29/2003 11:29:08 AM:
Greetings from Zimbabwe. 5 gloves from me Ja. Woltez. You simply don't know the amount of value I have derived from your two submissions thats is the Point of Sale and Sales & Inventory prog. But I am looking forward to seeing more on VB and Oracle Connectivity. You seem to be concentrating more on the Access Database. God bless. It is pple like you who keep Planet Source Code humming and those of us in the remote third World where a VB book is the equivalent of Gold learning. (If this comment was disrespectful, please report it.)
5/7/2003 5:51:19 PM:
Agree with this thread on most accounts... code is great for learning i also get the same error on cant find row
for the crystl32.ocx problem - get a small prog called "dependency walker" - it will check the dependant files for crystl32.ocx and give a report on the status of the ocx. theres also a patch for crystal called "crystl32-ocxpatch.exe" that might help. both are free for download.
hope it helps...
fred fenster
(If this comment was disrespectful, please report it.)
5/28/2003 4:52:13 AM:
THANK FOR THIS CODE BUT CAN YOU SEND PASSWRD PLS THANKS (If this comment was disrespectful, please report it.)
6/5/2003 12:15:31 PM:
very good, (If this comment was disrespectful, please report it.)
7/28/2003 8:56:04 PM:
username: admin password does not match please Re-enter password
(If this comment was disrespectful, please report it.)
Great Code. You rock man. (If this comment was disrespectful, please report it.)
7/26/2004 3:40:43 PM:
hi martin ,this is the second time i'm writing to u .. pls help me in solving the "error7009 cannot find the row" problem.it would b very kind of u ..my mail id is sting_ray143@hotmail.com (If this comment was disrespectful, please report it.)
7/26/2004 3:42:07 PM:
hi walter ,this is the second time i'm writing to u .. pls help me in solving the "error7009 cannot find the row" problem.it would b very kind of u ..my mail id is sting_ray143@hotmail.com (If this comment was disrespectful, please report it.)
11/14/2004 8:32:17 PM:
this is posted long before and im glad i've found it. elow... thanks for the codes, im currently working on the same project for my finals at school....it would really help me alot.... (If this comment was disrespectful, please report it.)
12/18/2004 1:56:55 AM:
Hi I am thinking to make an accounting program in VB, I felt this coding may be proved beneficial for me. This is my first project in VB. Earliar I have been prepared my program in MS Access. Regards
Rahul (If this comment was disrespectful, please report it.)
12/20/2004 2:10:35 AM:
I was just trying to execute ur codings but i could not since it asks for the password.Can u pls send me the password to execute it. (If this comment was disrespectful, please report it.)
12/20/2004 2:36:03 AM:
the password is working but still it ends with an error message saying that it "Cannot load control PrintIt".What is the problem with this? (If this comment was disrespectful, please report it.)
2/26/2005 9:49:58 PM:
this kode is very very good, this helpull for my first program (If this comment was disrespectful, please report it.)
thats good i need that programme can u give me full version of programme send my on my id thank you (If this comment was disrespectful, please report it.)
I need some help master. My project is doing about the inventory. I have been stucked on the stock cut in the inventory. Because the condition I have to cut the stock by any products come first, I have to cut it first. (my project can not use weight system cutting because it is a food). Therefore, the project also use jet 4 ole to connect the access. Please recommend the code. Thank you for you help in advance (If this comment was disrespectful, please report it.)
hello, please am working on my project, i need to send contents of textboxes in my program to email address. please mail to dfunk4real@yahoo.com. Thanks (If this comment was disrespectful, please report it.)
hi Mr Walter! Do u have any documentation or further explanation about this program because i need to insert some fact into my documentation regarding this program. Thank you. my email is mayachoy@yahoo.com (If this comment was disrespectful, please report it.)
I downloaded your code and ran it using VB6 with a couple of groans about crystal report, I quit coding after VB4 and just restarted with my old friend VIsual Basic and to browse this code was a real treat, the tool bar was a real effort I am sure and I would tell everyone that seems to have problems with run errors or other follow the code hand excute flow chart the program or modules of it and don't copy if you find a problem come up with the fix that's how you learn also by asking questions but above all this is your code and your solution someone else might solve the problem using other controls (DAO)which is sugeted by MS for Access DB's However I give you a vote of 10 if there is such a thing because you shared it with the world knowing that people might rip it.
Thanks and again an excellent job and the remark about Corp code and Global variables is sour grapes I think in MHO
Charles Denton BSEE Custom Engineering (If this comment was disrespectful, please report it.)
You must select admin Username first (highlight admin) then enter the admin password... Im sure it'll work (If this comment was disrespectful, please report it.)
excellent code.. thanx for ur code. how can i get crystl32.ocx n how to load this file? please e-mail me rudyg_gunawan@yahoo.co.id (If this comment was disrespectful, please report it.)
hello, i found your codes quite good, but i am more concerned with the grids....i found some bugs "row not found!",,,,i do really need this code to be fixed b cuz this is the i like the most, edit add in the grids itself....nice job... (If this comment was disrespectful, please report it.)
Wow... very very very NICEEE code i'm newbie but ur code help me a lot dim walter as godlike coder walter = simple,clean,clear and complete features code execellent from me regards (If this comment was disrespectful, please report it.)
I am getting the bugs mentioned previously by other people, the one on "row not found" when trying to add a new record into the database...Please advise...thank you brothers (If this comment was disrespectful, please report it.)
When I am going to Run Reports It gives an error saying "Unable to Open Database" . Pls Give me a Solution to solve this problum. Thanks (If this comment was disrespectful, please report it.)
5 globes, so that you know I am not being too negative. Use Option Expicit to force declaration of all variables, etc.
'KISS' (Keep It Simple) I would try to minimise your use of dependencies. They will haunt you with 'DLL Hell' etc. May not haunt you, as you appear to code faster than Superman, but it will haunt others using the code.
I applaud you for sharing. (If this comment was disrespectful, please report it.)
This program uses Crystal 7 Ignore advice above telling you how to install the free one that came with VB6, as it won't work with this program. Would it have killed the author to mention this in the description at the top of the page. With a WARNING that you must BUY Crystal 7, if you want to use this program. (If this comment was disrespectful, please report it.)
Add Your Feedback
Your feedback will be posted below and an email sent to
the author. Please remember that the author was kind enough to
share this with you, so any criticisms must be stated politely, or they
will be deleted. (For feedback not related to this particular code, please
click here instead.)
By 184 Users
Download code
2/4/2001 4:38:32 PM: 
