Codes-47

How Select an Start-Up Form in VB6

2011-07-28T10:22:00.000-07:00

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.

then Project Properties Window will look like on Figure 1.2

Fig. 1.2

go to General Tab > then Start-Up Object > then just click combo box
drop down event, as you see the list Objects on your program, and select
your desired Start-Up and your DONE !!!

The Hardest Thing to Do is to Do Nothing ^_^

How to Create a Factorial of Numbers in VB2008

2011-07-13T21:54:00.000-07:00

Download File Here

Hope you like it

Happy Coding ^_^

How to Create a Factorial of Numbers in VB6

2011-07-12T18:47:00.000-07:00

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

as you can see the result will display on the List-view Control
and if you have notice that X and Wow variables are declared as a
Single Data Types, because if you declared it those Variables into
Integer,Double or Long you got an error which is an Overflow,
if you input a huge number, so for avoiding this error i declare it
by Single, Hope this will help you

download File Here

Happy Coding

The Hardest Thing to Do is to Do Nothing

How to Attach and Detach Database on SQL Server

2011-06-30T16:30:00.000-07:00

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

and secondly here where you to Attach or get back your database on your SQL
Server,

on you Object Explorer, under your SQL Server name, right click on Database
and hit Attach

a new window or the Attach Database will prompt it to you like shown on the
image below

just hit the Add button for you to browse your Database on your drives and will
look like this, the Locate Database Files window

just locate your database it can only read a .mdf file not a .ldf file provided by
the SQL server

after selecting your database on your drive, as you can see it will provide the
Selected path with my database path on my drive E then hit the OK button

then after hitting the OK button, the Attach Databases window will prompt like shown
on the image below, listing the Database to be Attach and hit OK button

then your done

then the database will successfully and completely Attached

have a good day

The Hardest Thing to Do is to DO Nothing ^_^

How to Make a MDI Child in VB 2008

2011-06-22T19:56:00.000-07:00

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 ^_^

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

2011-05-21T04:05:00.000-07:00

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

2.) the second way on how to do that in a simple code is look like this

              Text1.PasswordChar = "*"

    for this code to take effect when you press (f5) or run you system just put it
    on the Form_Load() event of a form, and it will look like at the image below

Hope this will Help.....................
Happy Coding ....................
The Hardest Thing to Do is to Do Nothing ^_^

Cannot Insert Duplicate Key in Object 'dbo.BO'

2011-05-10T01:06:00.000-07:00

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

there is a one(1) column on my database that i assign as a PRIMARY KEY that are trying
to be duplicated, so, to resolved this problem, just remove the PRIMARY KEY assigned
on it:

TIP: to avoid this error you must do the basis of DATABASE NORMALIZATION

"The Hardest Thing to DO is to DO Nothing"
Happy Coding ^_^

Time Calculator

2011-05-09T01:22:00.000-07:00

This is my sample Time Calculator which you can enter 4 different time for time IN for
AM and PM and time Out for AM and PM also, this will show on how to subtract
time via DTPicker Value and how to display data on List-view Control, and it can
total the number of days and hour
Hope you Like it,,,,,
Happy Coding ^_^

Download Projects

How to Highlight the Text Box Content in Vb6

2011-05-03T00:26:00.000-07:00

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 ^_^

How to Add MDI Form in Visual Basic 2008

2011-04-25T05:22:00.000-07:00

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

As you can see at the figure above, just go to Project Tab>then hit the Add New Item or
just Simply press Ctrl+Shift+A for you to show the Add New Item Dialog like shown at
the Figure 1.1 below:

Figure 1.1

just find the MDI Parent Form on the Add New Item Dialog like show at the figure above
then Hit the Add button:

Figure 1.2

did you notice after hitting the Add Button the MDI Parent form will automatically add on
the Project window, and its your time to do your code ^_^

Happy Coding ^_^
The Hardest Thing to Do is to Do Nothing ^_^

How to Call Sql Server Stored Procedure in VB6

2011-04-21T02:35:00.000-07:00

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 ^_^

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

2011-04-14T02:24:00.000-07:00

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

at my experience, this error come up when i call a stored procedure from my SQL Server
2005 database, and i declare my code look like this

Figure 1.1

at the codes shown at the figure 1.1, if you trace it thouroghly you found out my error,
so the only error on this is my Command Text, where i forgot to declare, supposedly it
will come up with

MrCmd.CommandText = "Update_Products"

this code will placed under the Call New_Cmd

Happy Coding ^_^
The Hardest Thing to Do is to DO Nothing ^_^

Could Not Open a Connection to SQL Server

2011-04-01T20:05:00.000-07:00

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

then after doing that, just click this icon below, at your SQL Server Configuration Wizard

then follow by this

at the image above go to Database Engine>Service then as you will see the Service
Status is Stopped, all you have to do is hit the Start button and click Apply button

then if you done perfectly those procedures, the wizard will attempting to start the Service
of you SQL Server, if you are running on your server, you just simply re-start it to configure
the changes, and that's all.

Happy Coding ^_^
The Hardest Thing to Do is to Do Nothing ^_^

How to Configure IIS in Windows XP

2011-03-30T23:23:00.000-07:00

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

at the Left side pane just click the Add/Remove Windows Components icon to prompting

the Windows Component Wizard, then find the Internet Information Services (IIS) and

marked checked the square box button then hit the Next button,

if you completely the two steps above, the wizard will automatically copying files from

your CD/DVD drive, after a few minutes your reward will look like this

Hit the Finish button and lets cheers

The Hardest Thing to Do is to Do Nothing ^_^

How to Load .Rtf file in Vb6

2011-03-30T07:57:00.000-07:00

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

just marked checked the square box the click Apply

just drag Rich Text box control on your form, like shown above

and the simple and basic code will look like this

Private Sub Form_Load()
RichTextBox1.LoadFile "E:\Projects\Thesis Backup\

SPC_Payroll System thesis final\help me.rtf", rtfRTF
End Sub

Note: Make sure that you can specified the correct Path or the folder Directory of
your .RTF file, to avoid hassle and errors on your side.

at this code i placed the code on the Form_Load event,but its up to you where do you
want to placed it.

Happy Coding ^_^
The Hardest Thing to Do is to Do Nothing ^_^

How to Convert MS Access Database to SQL Server Database

2011-03-28T16:49:00.000-07:00

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,

since i am converting to SQL Server, if you do this, you must enter your current SQL
Server name, since i am using Developer Edition of SQL Server, the server name
is only my computer name, not like if i am using Express, my server name will look like
this MRHUMBLE\Express, that is the one differences of Express and Dev. Edition
and for more knowledge about their differences i will tackled those later,but now let focus
on this tutorial, then Enter Database name, but now i am using the Default

then it will look like this, select the table you want up-size, then click the Left Arrow button
for you to Export on SQL Server, then follow the next step below,

this is the default up-sizing

then here you go,,,,

after hitting the OK button, you will came out with up-sizing Report

as you can see at the image above, the default Database Name, create by the Wizard
is on my SQL Server, and together with the Table.

Note: the Sql Server Database that i am using is SQL Server 2005 Dev. Edition and
MS Access 2007

The Hardest Thing to Do is to Do Nothing ^_^

How to Register OCX Files on your Computer

2011-03-28T00:30:00.000-07:00

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

if you meet those steps your rewards is looks like this

you see that Registration Succeeded

and the second way on how to this is on your Vb 6.0 workspace, to do that, check it out

at the Tool Box pane, just simply press ctrl + t, or go to Project Tab,then click
Components the Components Pages prompt to you, Click Controls Tab, then press
Browse Button for you select or search the correct path of your OCX files, then select
the OCX you want to integrate on your VB6 then click Open:

After doing that steps, the OCX is already on your Controls Pages tab, all have to do is
just simply mark the Controls/Components then click OK button,

as you can see, new component is in your Tool box pane.

Happy Coding
The Hardest Thing to Do is to Do Nothing ^_^

How to Show Hidden Files

2011-03-28T00:04:00.000-07:00

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 ^_^

Run-time error '380'

2011-03-24T12:34:00.000-07:00

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 ^_^"

How to Create Menu Bar in Vb6

2011-03-24T05:01:00.000-07:00

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 ^_^

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

2011-03-09T00:16:00.000-08:00

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

How to Connect Crystal Reports 8.5 to VB6 via DSN Connection

2011-03-07T20:59:00.000-08:00

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

3.) Choose the Using the Report Expert>Press OK

4.) press Project>select you existing DSN or OBDC Connection>pres OK

5.) then at the Object Type>Select Table or View,but this time i want to print a
Database Table

6.) at the Object > Select your Table List on your Database you want to Print
Press OK

7.) as you can see at the image below the Ado, this is your connection of your data
to interact with your database press Next

8.) then the Table Field will show on a hierarchical form, just simply choose the fields on
your database that you want to print or to view on your reports

9.) then to used it by default press OK

10.) and this is the design view of your reports

11.) and this your Reports During Run-time

Hope you Like it ^_^
The Hardest Thing to Do is to DO Nothing

Insert,Update,Delete In VB 2010

2011-03-04T06:31:00.000-08:00

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)

Download sample

Hope this will help ^_^
Happy Coding ^_^
The Hardest Thing to Do is to Do Nothing ^_^

How to Load Agent Control in VB6

2011-02-27T04:37:00.000-08:00

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 ^_^

How to Create a New User in SQL Server 2005

2011-02-22T19:25:00.000-08:00

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:

2.) Then at the Logins Folder just right-click on it and press New Login

3.) After doing on that, the Log-In Page or Log-In Dialog will pop-up like a pop-corn
on to you, ohhh just kidding hehhehe, this will look like this:

just complete the required fields for the new user log-in at the example above, the New
user is Adrian, and at this time i choose Sql Server Authentication Mode, but its up to
you what would you like,and i put a Password on it, the default database is Master and
click OK:

4.) then if you completely done those easy steps, you can look on your Logins folder,
and it will look like this:

and at this time just disconnect on your connection and try to log-in as a new user
good luck :)

Hope this will Help ^_^
The Hardest Thing to Do is to Do Nothing ^_^