{"id":295,"date":"2004-08-18T02:26:52","date_gmt":"2004-08-17T18:26:52","guid":{"rendered":"http:\/\/foxpro.ntsl119.com\/scr\/?p=295"},"modified":"2007-11-02T13:30:32","modified_gmt":"2007-11-02T05:30:32","slug":"old-vb6-application-of-ours","status":"publish","type":"post","link":"https:\/\/foxpro.ntsl119.com\/scr\/archives\/295","title":{"rendered":"Old VB6 Application of ours&#8230;"},"content":{"rendered":"<p>I received an e-mail from one of my college classmate who was also my officemate when I was still working in Davao. He told me that the database project we created <font face=\"Tahoma, Verdana, sans-serif\">6<\/font> years ago was still pretty much alive.<\/p>\n<p>Although I was only an assistant programmer in that project and it was Jerry who did most of the job, still&#8230; it is nice to know that the project we dubbed as BRAINS (Budget Resource Allocation Information System) is still being used.<\/p>\n<p>It was also the first database application we developed after being freed from the cruel college un-ending digital chains and thorns. You know&#8230; the kind of situation that resembles the code below:<\/p>\n<pre><font face=\"Tahoma, Verdana\"><br \/>\r\nFunction GrindThemMore(Project)<br \/>\r\n     for i = 1 to nInfinity<br \/>\r\n          Assign(Project[i])<br \/>\r\n          SetComplexity(i*val('1'+replicate('0',17)))<br \/>\r\n          SetDeadline(nTime = short, lRidiculous = .T., lMovable = .F.)<br \/>\r\n          SetMind('They will work on the last minute anyway... so...')<br \/>\r\n          AddLoad(tracks(Philo, 16) + tracks(Theo, 16) + tracks(English, 24))<br \/>\r\n          lEyeBugs(cExtreme)<br \/>\r\n          nToxicityLevel(Smell, 7*77)<br \/>\r\n          if lStillBreathing<br \/>\r\n               GrindThemMore(Project[i*42])<br \/>\r\n          else<br \/>\r\n               Deport.Student(aPool(OtherCourses))<br \/>\r\n               **' Exit statement removed<br \/>\r\n          endif<br \/>\r\n     endfor<br \/>\r\nEndFunc<br \/>\r\n<\/font><\/pre>\n<p>\nBRAINS was developed in <a href=\"http:\/\/www.microsoft.com\/vbasic\" target=\"_blank\">VisualBasic<\/a>. <\/p>\n<p>Yes, I know <a href=\"http:\/\/en.wikipedia.org\/wiki\/Visual_Basic\" target=\"_blank\">lambasting VisualBasic<\/a> is one of my favorite past times but I do have great respect for it when it is properly and intricately woven.<\/p>\n<p>My friend, Jerry Flores knows this language very well. <\/p>\n<p>He breathes VB. <\/p>\n<p>He handles database normalization to the core.<\/p>\n<p>How about we hear a blog from you, Mr. Jerry &#8216;VB Guru&#8217; Flores?<\/p>\n<p><a href=\"http:\/\/maks.ebloggy.com\" target=\"_blank\">Beakman<\/a> also uses VisualBasic with ADO and SQL very well. The works he&#8217;s been putting on his Digital Nervous System is quite remarkable.<\/p>\n<p>The <a href=\"http:\/\/www.sybex.com\/sybexbooks.nsf\/2604971535a28b098825693d0053081b\/b108c5077bf564c388256bca0062ae3a!OpenDocument\" target=\"_blank\"> Sybex book I&#8217;m currently reading<\/a> holds a lot of VB<font face=\"Tahoma, Verdana, sans-serif\">6<\/font> samples too&#8230; focusing on SQL Server and ADO programming. Here&#8217;s the <a href=\"http:\/\/www.amazon.com\/exec\/obidos\/tg\/detail\/-\/0782129749\/ref=ase_sybex\/102-3711609-6436143?v=glance&#038;s=books\" target=\"_blank\">amazon.com link to that book<\/a> in case you&#8217;re interested.<\/p>\n<p>Although it was mentioned countless of times already that VB.NET != VB<font face=\"Tahoma, Verdana, sans-serif\">6<\/font> and it is not even fully backward compatible, VB.NET addresses most of the issues that were used to criticize the Visual Basic language.<\/p>\n<p>But still, VisualFoxpro is my main artillery; there are just some matters that pushed me to delve more into SQL Server and ADO programming.<\/p>\n<p>Something which I would probably share later.<\/p>\n","protected":false},"excerpt":{"rendered":"<p>I received an e-mail from one of my college classmate who was also my officemate when I was still working in Davao. He told me that the database project we created 6 years ago was still pretty much alive. Although I was only an assistant programmer in that project and it was Jerry who did [&hellip;]<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[10],"tags":[],"class_list":["post-295","post","type-post","status-publish","format-standard","hentry","category-workblog"],"_links":{"self":[{"href":"https:\/\/foxpro.ntsl119.com\/scr\/wp-json\/wp\/v2\/posts\/295","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/foxpro.ntsl119.com\/scr\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/foxpro.ntsl119.com\/scr\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/foxpro.ntsl119.com\/scr\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/foxpro.ntsl119.com\/scr\/wp-json\/wp\/v2\/comments?post=295"}],"version-history":[{"count":0,"href":"https:\/\/foxpro.ntsl119.com\/scr\/wp-json\/wp\/v2\/posts\/295\/revisions"}],"wp:attachment":[{"href":"https:\/\/foxpro.ntsl119.com\/scr\/wp-json\/wp\/v2\/media?parent=295"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/foxpro.ntsl119.com\/scr\/wp-json\/wp\/v2\/categories?post=295"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/foxpro.ntsl119.com\/scr\/wp-json\/wp\/v2\/tags?post=295"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}