How Select an Start-Up Form in VB6

This is the basic steps on how you to select your own start-up form
or Object(s) or run your program that can read first  the Sub Main
which some programmer's store or write their main connection from
their database , so here where to start with:

                                        Fig. 1.1



































As you can  see on Figure 1.1, just go to > Project Tab then >
Project Properties.

Continue Reading with Borgy's Blog »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

How to Create a Factorial of Numbers in VB2008



































Continue Reading with Borgy's Blog »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

How to Create a Factorial of Numbers in VB6








































How done it with code?, just check the code below

Continue Reading with Borgy's Blog »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

How to Attach and Detach Database on SQL Server

This is a simple way on how to Attach and Detach Database on your SQL Server,
to work with it just follow this few step's:

here where to Detach your Database, just right-click on your database then click
Task, and hit Detach and your done like shown on the image below





























Continue Reading with Borgy's Blog »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

How to Make a MDI Child in VB 2008

Hello guy's, at this time i will show you on how to make or create a MDI child in
VB 2008 so this is a simple line of code that will saved your day on how to deal
with this, situationfirst thing to do is Add MDI Parent on the Project Tab or if you
want not to Add MDI parent, just Adding to forms, that way is fine, so the code's
will look like this:



        Form1.MdiParent = Me
        Form1.Show()


 'Me is your MDI child Container which is the mother form
'Form1 is the MDI child 


if you dealing  with two(2) forms, you must set the first Form, where you want
to become a MDI Container from Form Properties named IsMdiContainer,
you must set this to True instead of False, and then write the code above where
do want to insert

Happy Coding ^_^
The Hardest Thing to Do is to DO Nothing ^_^
Continue Reading with Borgy's Blog »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

How to Convert Text Content of TextBox into Asterisk ( * ) in VB6

This sample tutorial will demonstrate to you on how to change or convert the text
content of a text box control in VB6 on a special character like Asterisk(*) or any
special character you want to, this is method will commonly used on hiding the cha-
racter for confidential purposes, like user's Password for any computer's System,
there are two(2) ways on how to do it, the steps are shown below:,

1.) First way and without doing any codes, just go to Text box Property and find
     Passwordchar at the Properties pane, then put a (*) on it or any character you
     want like shown on the image below























Continue Reading with Borgy's Blog »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

Cannot Insert Duplicate Key in Object 'dbo.BO'

















Are you encounter this kind of error?, if you, you are in the right place at the right time, this
error says Violation of Primary key, obviously the problem is on my database, that
also indicated on the error dialog, 'dbo.BO' is my database name on my SQL Server,
so the main problem is when i'm trying to INSERT a duplicate value on a TABLE which

Continue Reading with Borgy's Blog »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

Time Calculator
































Continue Reading with Borgy's Blog »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

How to Highlight the Text Box Content in Vb6

Hello Guys, at this time i will share to you the code on how to highlight all the text box
content when you set the mouse cursor on it, like shown at the image below







at the Text Box Got-focus event just place this two basic lines of Codes

Textbox1.SelStart = 0
Textbox1.SelLength =  Len(Textbox1.Text)

and you're done, just press f5 and see the result

Happy Coding ^_^
The Hardest Thing to DO is to Do Nothing ^_^
Continue Reading with Borgy's Blog »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

How to Add MDI Form in Visual Basic 2008

This sample tutorial will demonstrate to you on how to Add MDI Form on your Visual
Basic 2008, to do that just follow this few steps below:


                                                 Figure 1.0


































Continue Reading with Borgy's Blog »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

How to Call Sql Server Stored Procedure in VB6

Hello Guys, At this time i will show to you on how to execute or call a stored procedure of
SQL Sever, here we go>>>>>>>>>>

Make sure that your Database Connection and Command, like shown at code below



Public MrCmd As ADODB.Command 'just put it on amodule
Public Conn As ADODB.Connection

i declare MrCmd as my ADODB.Command and Conn As ADODB.Connection as
Public for me to access or use it every-time i want, so you can write it like this

Set MrCmd = New ADODB.Command ' you must set MrCmd  as New 
                                                               ADODB.Command
MrCmd.ActiveConnection = Conn          ' this were your connection is being set
MrCmd.CommandType = adCmdStoredProc 'since we are dealing with stored procedure
                                                                 'let set the command type = adCmdStoredProc

MrCmd.CommandText = "Get_Products" ' this is your Stored Procedure

MrCmd.Execute 'execute your stored procedure
MrCmd.ActiveConnection = Nothing 'set your connection  close

Hope this will help

Happy Coding
The Hardest Thing to Do is to Do Nothing ^_^
Continue Reading with Borgy's Blog »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

Syntax Error or Access Violation( Run-time error '-2147217900 (80040e14)')

If you are getting trouble on this kind of error prompting
 Run-time error '-2147217900 (80040e14)' Syntax Error or Access Violation like
shown at the image below:

                                Figure 1.0













Continue Reading with Borgy's Blog »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

Could Not Open a Connection to SQL Server

If you encounter this kind of error on your SQL Server while you are attempting to connect
or logging in on your server, getting this error message shown at the image below, the only
reason of this, your Database Engine Service Status is Stopped












you are in the right place at the right time, all you have to do is go to SQL Server Surface 
Area Configuration for you fixed this error, to send you up in SQL Server Configuration
just follow the instruction image below

Continue Reading with Borgy's Blog »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

How to Configure IIS in Windows XP

To Configure your IIS, just follow this few steps and saved your day in trouble

Note: Before do this following steps you must insert first your Windows XP installer
on your DVD or CD drive

first you have to do is go to Control Panel and click the Add Remove Programs Icon as
you can see at the image above, and this is the second scenario
Continue Reading with Borgy's Blog »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

How to Load .Rtf file in Vb6

Hello guys, this is a sample tutorial on how to load or integrate a .RTF file on your VB6
program, all you have to do is to Add a Components named Microsoft Rich Textbox
Control 6.0(SP6), like shown at the image below


















Continue Reading with Borgy's Blog »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

How to Convert MS Access Database to SQL Server Database

Hello guys at this time i will show to you on how to convert your MS Access Database to
SQL Server Database, to do this, just follow those few steps below.








on your MS Access database, go to Database Tools, go to Move Data tab, then click
SQL Server

















then the Up-sizing wizard will prompt, allowing you to use an option, at this time since
i am not using Existing Database, so i select Create new Database, then Click Next
button,

Continue Reading with Borgy's Blog »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

How to Register OCX Files on your Computer

Since OCX files is little bit important to us, as  a programmer, for some reasons, so i will
show to you on how register an OCX files:

 











go to Run then type Regsvr32 













then follow by the Path or the Directory of your OCX file, then click OK

Continue Reading with Borgy's Blog »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

How to Show Hidden Files

This sample steps will show to you on how to make your hidden files or folders visible















at the figure above, you can simply open My Computer, then go to Tools Tab, then
click  Folder Options























Then Folder Options Property Pages will prompt, just select the View Tab, then find
Hidden Files and Folders, under of this just marked the two options the first is
> Do not show hidden files and Folders and the second
> Show hidden files and folders
so since this tutorial will demonstrate on how to show hidden files and folders, we can
select the 2nd option > Show hidden files and folders, then click Apply.
then you are done...

The Hardest Thing to Do is to Do Nothing ^_^
Continue Reading with Borgy's Blog »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

Run-time error '380'

If you are encounter this error, says "Run-time Error '380', "Invalid Property Value"
at my case i encounter this , when i used a List-view control, the cause is when i forgot
to create another column  for the List-view control, instead of declaring like this:

Format$(LvLoans.ListItems(ako).SubItems(2),"General Number")

i declare like this:

Tip: before you declare anything you must check it first if exist, before doing the code
to avoid this kind of typo errors

Happy Coding ^_^
"The Hardest Thing to Do is to Do Nothing ^_^"
Continue Reading with Borgy's Blog »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

How to Create Menu Bar in Vb6

This sample tutorial will demonstrate to you on how to create a Menu Bar in Vb6 and also
creating a Sub Menu on a Menu Bar:

Tip: On creating a Menu and Sub Menu, the most used transaction menu module must be
at the first line on a Menu and Sub Menu's

so we can do this like shown on the image below:






















1.) You can simply click the menu editor icon on your tool bar of your VB6.
2.) at the Caption  you  can type your Menu name, at the
3.) Name, type your desired name for your menu,this is represent as Object Name of
your Menu.
4.) the click OK.


then after clicking
the Ok button, this
will be the Output.














at this part i will show to you on how to Create the Menu's Sub Menu's




















 1.) just click next for you to the cursor move downward.
2.) then just repeat the number 2 and 3 process in the creating Menus  at the image
above.
4.) to make it the Sub Menus of a File that i created,just click Left Arrow, and it will
show the dotted before the New,
5.) if you want to Create for short-cut  just select at the short-cut combo box, and
select your desired combination.

 then the output is
look like this
















this is the sample and basic code,

Private Sub N_W_Click()
    MsgBox "Your code goes here"
End Sub

Hope you Like it ^_^
Happy Coding  ^_^
The Hardest Thing to Do is to Do Noting ^_^
Continue Reading with Borgy's Blog »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

How to Change the Printing Lay-Out of Data Report in VB6

After exploring the Visual Basic 6.0 Data Report, i found out the 3 different printing layout
so i want it to share on you on how to do this, first you must install VB6SP6, or download
it at Microsoft Website, and it will done through this following codes:

DataReport1.Orientation = rptOrientLandscape
DataReport1.Orientation = rptOrientDefault
DataReport1.Orientation = rptOrientPortrait


Hope you like it, Happy Coding ^_^
The Hardest Thing to Do is to Do Nothing
Continue Reading with Borgy's Blog »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

How to Connect Crystal Reports 8.5 to VB6 via DSN Connection

This is my sample tutorial on how you to connect your Crystal Reports on your Visual
Basic 6.0, this version of Crystal Reports is 8.5, so here we go.............


Just follow those few steps:

1.) Project >Add Crystal Reports 8.5




















 2.)  if you can't see Crystal Reports on the Project Tab, just Click Components>
       Designers, then Check the Box, for you to add Crystal Reports on your Project





















Continue Reading with Borgy's Blog »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

Insert,Update,Delete In VB 2010

Hello guys this is my sample database manipulation, using the 3 basic transaction, the
INSERT, UPDATE and DELETE like shown at the image below.









INSERT:

Dim rs As New OleDb.OleDbCommand("Insert INTO Info(F_Name,M_O
,SSS,Phic,Pagibig,Tax,Net_Inc) VALUES ('" &
StrConv(TextBox2.Text, VbStrConv.Uppercase) & "','" & (TextBox3.Text) & "','" &
 (TextBox4.Text) & "','" & (TextBox5.Text) & "','" & (TextBox6.Text) & "','" &
 (TextBox7.Text) & "','" & (TextBox8.Text) & "')", con)

UPDATE:

Dim rs As New OleDb.OleDbCommand("Update  Info Set F_Name='" & StrConv
(TextBox2.Text, VbStrConv.Uppercase) &  "',M_O='" & (TextBox3.Text) & "',
SSS='" & (TextBox4.Text) & "',Phic='" & (TextBox5.Text) & "',Pagibig='" & 
(TextBox6.Text) & "',Tax='" & (TextBox7.Text) & "',Net_Inc='" & (TextBox8.Text) 
& "'  WHERE ID_Num =" & id & "", con)

DELETE:

Dim rs As New OleDb.OleDbCommand("DELETE FROM Info WHERE
ID_Num = " & id & "", con)



Hope this will help ^_^
Happy Coding  ^_^
The Hardest Thing to Do is to Do Nothing ^_^   
Continue Reading with Borgy's Blog »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

How to Load Agent Control in VB6

Hello Guys, at this time i will show to you on how to load a Agent Control in your own
program, loading this control is to make your program entertaining specially if you are
developing games or to warn the user in animated way, so try to use MS Agent Control,
to do this just go to Project tab>Components>Microsoft Agent Control 2.0, then after
adding the control on your tool box just drag it on your form and the basic code will look
like this and you will do the rest:

MYAgent.Characters.Load "Merlin", "Merlin.Acs"
Set MyCharacter = MYAgent.Characters("Merlin")
    MyCharacter.MoveTo 400, 400
    MyCharacter.Show
    MyCharacter.Play "Announce"
    MyCharacter.Speak "Your Message goes here"


the output will look like at the image shown below:















the Agent Name is Merlin, this character is the default Agent character on Vb6, but there
are some characters, named Robbie and Genie, you can download those  character at
Microsoft site

The Hardest Thing to Do is to DO Nothing ^_^
Happy Coding ^_^
Continue Reading with Borgy's Blog »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

How to Create a New User in SQL Server 2005

Are you getting bored about your Sql Server User Log-in?, at this time i will demonstrate to
you on how to add a new User Log-In on your Sql Server,by the way the default user log-in
on the Sql Server Authentication mode is "sa", so we want to do is try something new
so to do this, just follow those few steps below and those will saved your day:

1.) Go to Security tab, just look at the hierarchical folder at the Left side pane of your Sql 
Server like shown on the image below:



































Continue Reading with Borgy's Blog »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

How to Display Data on MS FlexGrid

To do this,first you must add this control to your  form layout , just right click the tool box
pane, at the pop up menu just click components,and the Control  Dialog appear,then hunt
Microsoft FlexGrid Control (SP6),then mark check the box then hit the Apply button,finally
Microsoft FlexGrid Control (SP6) is on your tool box,just drag it on your form then lets do
the Action,

Tip: you can modify this control by simply right-click on it then
click properties,like shown on the image below


















the code will look like this:

Continue Reading with Borgy's Blog »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

Run-time Error '-21472117900(80040e14)'

" [Microsoft][OBDC SQL Server Driver][SQL Server] the normal parameter "@Status"
was not declared as an an OUTPUT parameter,but the actual parameter passed
in requested output "


This error will get you in trouble????????????????? at my own experience this error comes
out when i call a stored procedure on my SQL Server database and after compiling it this
error will appear saying those message,i double check my code then traced where  this error
came out,so my situation is i declare a  parameter on my stored procedure where does not 
declare its output parameter,the problem goes here,

i declare a parameter @Status on my stored procedure but the sad thing is i forgot the value
of this where  supposedly look like this,

MyCmd.Parameters.Append MyCmd.Create Parameter("SPLAppPos", adVarChar, 
adParamInput, 50,"Active")

so its better to declare all the parameters and declare their corresponding value to avoid
this kind of typo error

Happy Coding ^_^
The Hardest Thing to Do is to Do Nothing ^_^
Continue Reading with Borgy's Blog »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

OLEDB EXCEPTION WAS UNHANDLED

Hello guys have a good day to all who is reading this article, go back in the problem " oledb 
exception was unhandled " i encounter this type of problem when i worked at the database
this little error will prompt to me,and i wonder why this error will come out,i double check
every single of my code then i found out the only problem is the  spelling of a column name
on my database instead of ID_Num i wrote only ID, after changing the code to the respective
syntax , the program works fine and saved my day.

Note: 
         Not only Mis-Spelled variable or column name on
         your database but also when you are typing the Reserved 
         words of Visual Basic 2010 will get you on trouble like this.

Happy Coding ^_^
The Hardest Thing to DO is to Do Nothing ^_^
Continue Reading with Borgy's Blog »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

How to Connect MS Acess Database to VB 2010

Hello guys,at this time i will show to you on how to connect a MS Access Database on 
Visual  Basic 2010, make sure that your database is inside of the Debug Folder created by 
Visual Basic 2010,then the codes will look like this:

Public Class Form1

 Dim con As New OleDb.OleDbConnection
("Provider=Microsoft.Jet.OLEDB.4.0;
Data Source = |DataDirectory|\Panoy.mdb;")

End Class

first you must establish the connection and set the Provider, to Microsoft.Jet.OLEDB.4.0,
and the Data Source, this is your Database Path or Directory, 

Note: |DataDirectory|\Panoy.mdb; this is your database correct path coonection
,|DataDirectory| is the replacement of App.Path on VB 6.0;

Happy Coding ^_^
The Hardest Thing to DO is to Do Nothing ^_^
Continue Reading with Borgy's Blog »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

Run-time error '3265'

" Item cannot be found in collection corresponding to  the requested name or ordinal "

Hello Guys,if  this error will came out when  youre running your program, the cause of this
problem is on your database or on your procedure on how you to fetch the data from the
database,here a sample procedure that makes error when fetching data from database:

        With Lv1
        .ListItems.Clear
            Do While Not rs.EOF
                Set Panoy = .ListItems.Add()
                    Panoy.SubItems(1) = rs!L_Name
                    Panoy.SubItems(2) = rs!FName
                    Panoy.SubItems(2) = rs!Course
                   rs.MoveNext
            Loop
        End With

and some cause of this is,if you mis-spelled the
Continue Reading with Borgy's Blog »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

"Msg 102, Level 15, State 1, Procedure Holidays, Line 19 Incorrect syntax near '@App_By'."























This Error come out when i wrote a simple stored procedure at my

Continue Reading with Borgy's Blog »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

Search Engine in VB6 (Smart Search)












I think this simple program will saved you on your work and get an idea about the smart
searching,this will saved your day,because of its nice searching effects,like what we experience
on  Google search engine;

Download sample of Smart Search

Hope you like it ^_^
The Hardest Thing to do is to Do Nothing ^_^
Continue Reading with Borgy's Blog »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

Run-Time Error '3421'

"Application uses a value of the wrong type for the current operation"

This error will appear on your current environment specially if you are working Sql Server 
stored procedure and call it via VB6. To fixed this problem, you can double check the Data 
Type fields on your database and make it sure that you assign it on their respective data types
and also on your Stored Procedure, this is a sample,assigning on its corresponding Data Types













As you can see at the image above the data types on each field will exactly fit or accurate on
each column name, and make it sure your stored procedure will set on its corresponding data
types:

Hope this will Help ^_^
The Hardest thing to to is yo Do Nothing ^_^
Continue Reading with Borgy's Blog »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

How to create a Autogenerated ID Number

Hello guys,this is sample code on how you to generate a Auto-Generated ID Number or a
Primary Key, because many programmers like me are want the ID Number or Primary Key
become Dynamic, so we can do the basic solution like this:

In my case i put it on a Sub Procedure that i placed it on a Module,so the this is the Code:

Sub EmployeePosition_ID()
Set rs=New Adodb.Recordset
    If rs.State = adStateOpen Then rs.Close
        rs.Open "SELECT MAX (right(Position_ID,6)) _
            from EmployeePositions", Conn
        If rs.EOF <> True Then
           Employee_Positions.txtID.Text = "SPC"  + "-"
         + Right("000000" _
            & IIf(IsNull(rs.Fields(0)), 1, rs.Fields(0) + 1), 6)
        End If
End Sub

How does it Works??

Continue Reading with Borgy's Blog »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

Run-time ERROR -2147217900(8004e14)

[MICROSOFT][OBDC Sql Server Driver][Sql Server] procedure or function (Get_Emp)
expects parameter  '@empid',which was not supplied

I encounter this error when i call a stored  procedure from my SQL SERVER database,
the cause of this error is when i forgot to declare the parameters of my stored procedure
that supposedly declaring like this:

Mycmd.Parameters.Append _
Mycmd.CreateParameter("EmpID",Advarchar,AdparamInput, _
50,txtid.text)

Note: Get_Emp is my Stored Procedure Name

Happy coding ^_^
The Hardest thing to do is to do Nothing
Continue Reading with Borgy's Blog »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

How to Add Day in Date in Vb6

Hello guys,this time i will show to you, the use of  DateAdd Function, this function will use
for adding day(s) to a given date, for example i want to add 5 days on this given date  
"2/7/2011",so obviously we want the answer become "2/12/2011", to get this answer,just
simply follow this code:

DateAdd("d", 5, "2/7/2011")

since i am dealing with day(s) to add, this will represent with "d" if you want to add a
month(s), just replace "d" with "m" so its simple as counting 123.......

Happy Coding ^_^
The Hardest thing to do is to do Nothing ^_^
Continue Reading with Borgy's Blog »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

How to Subtract Minutes in Vb6

Here is the basic way on how to subtract the minutes elapsed on the given time.

for example i have a time 12:00 PM and 1:00 PM so we can solved the elapsed time by
using  DateDiff function, so supposedly the answer is 60 mins. so enough words, the code
will look like this:

DateDiff("n", "12:00 PM", "1:00 PM")

the "n" there is represent the minutes value its similar on how to get the day elapsed that
represents by "d":

Note: if you doing this procedure you must place your subtrahend first or the lesser value,
otherwise you got a negative answer.

Happy Coding ^_^
The Hardest thing to do is to do Nothing ^_^
Continue Reading with Borgy's Blog »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

How To Add an Image on a List View Control

First you must add the component named Microsoft Windows Common Control(sp6), at
the  Project Tab>Component or just simply right click the tool box then the pop-up menu
will appear.















after adding the components just drag it on your form window then right click on the list view
control,then click properties,like shown on the image above.





















Continue Reading with Borgy's Blog »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

Sales And Inventory System













This is a sample process of Sales and Inventory system that monitor the process of one
Department store,all those process in this program is a basic process of one Department
Store,if you want this system just download it Below:

Happy Coding!!!!
The Hardest thing to do is to do nothing!!!!

Continue Reading with Borgy's Blog »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

How to Add Button Menu in a Toolbar in Vb6

To do this, you must add first a component go to PROJECT>COMPONENTS>Microsoft
Windows Common Controls SP6, then add tool bar on the form, and follow the steps on the
image below:

1.) Right-click the tool bar and click properties






















at the Caption text property just write,for example Reports and at the Style: select 5 or
tblDropDown, then at the Button Menus click INSERT ButtonMenu and at Text: (your
sub menu name), and at Key: (for example "PR") declaring for a sub menu Key is very
important because this is your sub menu identification.

2.) Then during Run-Time will look like this

















a example code on this sub menu reports will look like this: place the code on
ToolBar1_ButtonMenuClick like shown in the statement Below:

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As _
MSComctlLib.ButtonMenu)
    Select Case ButtonMenu.Key
        Case "PR"
            MsgBox "(your code goes here!"
    End Select
End Sub

Happy Coding ^_^
The Hardest Thing to Do is to Do Nothing
Continue Reading with Borgy's Blog »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

How to Create a Timer in VB2010


This is the very basic way on how to code or create your own timer using VB 2010, you must
add 2 Labels Control and 1 Timer control and also a 3 command button for you Handle whether
you want to start,stop and reset
















So this is the main code for you set up and get the output shown  in the image above, i used
the very basic Nested IF structure
.
 CODE:
 Place at the Timer1_Tick Event
Dim Uno, Dos As Integer

        Uno = "00"
        Dos = "09"

If Val(Label2.Text) >= Uno And Val(Label2.Text) < Dos Then
  Label2.Text = "0" & Val(Label2.Text) + 1      
   ElseIf Val(Label2.Text) = "59" Then
     If Val(Label1.Text) >= Uno And Val(Label1.Text) < Dos Then
         Label1.Text = "0" & Val(Label1.Text) + 1
         Label2.Text = "00"
      ElseIf Val(Label1.Text) = "11" And Val(Label2.Text) = "59" Then
          Label1.Text = "00"
          Label2.Text = "00"
       Else
         Label1.Text = Val(Label1.Text) + 1
       End If
  Else
       Label2.Text = Val(Label2.Text) + 1 
 End If

Download sample


Happy Coding ^_^
The Hardest Thing to Do is to Do Nothing
Continue Reading with Borgy's Blog »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

How To Calculate the Listview Coloumns

This is a sample code on how you to easy Calculate the sum of a list-view column this is my
way on how to do this,determine the listview count, i used FOR LOOP,the most powerful
loop among the loop structures and it will show you like shown in the image below:






















so here we go,the code will look like this:

Dim Adrian, Mrhumble As Integer

'Adrian Holds for the listview count or get
'the listview  Rows

 For Adrian = 1 To LV1.ListItems.Count

'Holds for the result of calculated fields

   Mrhumble = Val(Mrhumble) + Val(LV1.ListItems(Adrian))

 Next Adrian



The Hardest Thing to Do is to Do Nothing
Happy Coding ^_^
Continue Reading with Borgy's Blog »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

Data Type Mismatch in Function Object

"Data Type Mismatch in Function Object " Solved After i encounter this error message i
found that my Data Type on my database is mismatch, because i want to display a Currency
type on a data report of my project which is a current data type is varchar(50) so obviously
Data Type Mismatch so i found my own solution by changing the Data Type to Float, for me
to display a sum of my database field on my data report through the used of a RptFunction.
So its better to declare a corresponding Data Type for your Data Field inside of Database to
Avoid this type of error.

Hope this will be Help!!
Happy Coding ^_^
Continue Reading with Borgy's Blog »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

How to Load Picture or Image in Picture Box in VB6

This code will teach you on how to load a picture or image on a Picture Box Control from
your hard drive,the basic and simple code will look like this:

Private Sub Command1_Click()
   Picture1.Picture = LoadPicture("E:\Button Cancel copy.jpg")
End Sub





Hope this will help your simple Problem!
Happy Coding ^_^
Continue Reading with Borgy's Blog »
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

Copyright @ Codes-47.Blogspot.Com. Powered by Blogger.