HELLO WORLD
CODE
Private Sub cmdClear_Click()
txtShow.Text = ""
End Sub
Private Sub cmdExit_Click()
If MsgBox("Are you sure you want to close the application?", vbQuestion + vbYesNo, "Confirm") = vbYes Then
End
Else
cmdShow.SetFocus
End If
End Sub
Private Sub cmdShow_Click()
txtShow.Text = "Hello World!"
End Sub
========================================================================
SIMPLE LOGIN / SECURITY IN VB 6.0
CODE
Option Explicit
Dim user As String
Dim pass As String
Public LoginSucceeded As Boolean
Private Sub cmdExit_Click()
If MsgBox("Are you sure to close this Application?", vbQuestion + vbYesNo, "System") = vbYes Then
End
End If
End Sub
Private Sub cmdLogin_Click()
user = "admin"
pass = "12345"
If txtUserName.Text = user Then
If txtPassword.Text = pass Then
MsgBox "Username and Password Accepted!", vbInformation, "Login"
'You may change this line here. call the form rather than displaying a message box!
ElseIf txtPassword.Text = "" Then
MsgBox "Password Field Empty!", vbExclamation, "Login"
Else
MsgBox "Username and Password not Matched!", vbExclamation, "Login"
End If
ElseIf txtUserName.Text = "" Then
MsgBox "Username Field Empty!", vbExclamation, "Login"
Else
MsgBox "Invalid Username, try again!", , "Login"
txtPassword.SetFocus
End If
End Sub
==================================================================
ADD, EDIT, UPDATE, DELETE, SEARCH AND NAVIGATION IN VB 6.0 TO MS ACCESS USING ADO
ADD, EDIT, UPDATE, DELETE,PROGRAM DESCRIPTION
This program is capable of the following functionality:
-Add record
-Delete record
-Search and Filter record
-Edit and Update record
-Navigate into record
with Status bar using ADO connection to connect to Microsoft Access Database.
SCREENSHOT
CODE
MODULE
Option Explicit
Public conn As ADODB.Connection
Public rs As ADODB.Recordset
Sub connect()
Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\myDatabase.mdb;Persist Security Info=False"
Set rs = New ADODB.Recordset
rs.ActiveConnection = conn
rs.CursorLocation = adUseClient
rs.CursorType = adOpenDynamic
rs.LockType = adLockOptimistic
rs.Source = "SELECT * FROM MyTable"
rs.Open
End Sub
Sub main()
connect
frmMain.Show
End Sub
FORM 1
Private Sub cmdDelete_Click()
On Error Resume Next
If MsgBox("Data is not recoverable!", vbExclamation + vbOKCancel, "Confirm Delete") = vbOK Then
rs.Delete
End If
End Sub
Private Sub cmdFirst_Click()
rs.MoveFirst
Call stat
End Sub
Private Sub cmdLast_Click()
rs.MoveLast
Call stat
End Sub
Private Sub cmdNext_Click()
If rs.EOF = True Then
rs.MoveFirst
Call stat
Else
rs.MoveNext
Call stat
End If
End Sub
Private Sub cmdPrevious_Click()
If rs.BOF = True Then
rs.MoveLast
Call stat
Else
rs.MovePrevious
Call stat
End If
End Sub
Private Sub Command1_Click()
rs.Filter = adFilterNone
rs.Requery
End Sub
Private Sub Command2_Click()
If MsgBox("Close Applect?", vbQuestion + vbYesNo, "Confirm") = vbYes Then
End
End If
End Sub
Private Sub Form_Load()
Set DataGrid1.DataSource = rs
End Sub
Sub stat()
StatusBar1.Panels(1).Text = "Record " & rs.AbsolutePosition & " of " & rs.RecordCount
End Sub
Private Sub mnuAdd_Click()
frmAdd.Show
End Sub
Private Sub cmdSave_Click()
If txtid.Text = "" Or txtFn.Text = "" Or txtMi.Text = "" Or txtLn.Text = "" Then
MsgBox "Some fields are still empty!", vbExclamation, "Input Error"
Else
rs.AddNew
rs("studId") = txtid.Text
rs("FirstName") = txtFn.Text
rs("MI") = txtMi.Text
rs("LastName") = txtLn.Text
rs.Update
MsgBox "Record Added Successfusly!", vbInformation, "Add Record"
Call clear
End If
End Sub
Sub clear()
txtid.Text = ""
txtFn.Text = ""
txtMi.Text = ""
txtLn.Text = ""
txtFn.SetFocus
End Sub
Private Sub txtSearch_Change()
If txtSearch.Text = "" Then
Call Form_Load
Me.Show
Else
rs.Filter = "FirstName LIKE '" & Me.txtSearch.Text & "*'"
Set DataGrid1.DataSource = rs
End If
End Sub
=================================================================
CHECK BOX AND OPTION BOX ACTIVITY
CODE
Private Sub chkBlue_Click()
lblDisplay.Caption = "Blue"
End Sub
Private Sub chkGreen_Click()
lblDisplay.Caption = "Green"
End Sub
Private Sub chkRed_Click()
lblDisplay.Caption = "Red"
End Sub
Private Sub chkYellow_Click()
lblDisplay.Caption = "Yellow"
End Sub
Private Sub cmdDefault_Click()
lblDisplay.Caption = "Default"
lblDisplay.BackColor = &H0&
lblDisplay.ForeColor = &H8000000F
End Sub
Private Sub cmdExit_Click()
If MsgBox("Close Application?", vbQuestion + vbYesNo, "Confirm") = vbYes Then
End
End If
End Sub
Private Sub Form_Load()
lblDisplay.Caption = "Default"
lblDisplay.BackColor = &H0&
lblDisplay.ForeColor = &H8000000F
End Sub
Private Sub optBlue_Click()
lblDisplay.BackColor = &HFF0000
End Sub
Private Sub optGreen_Click()
lblDisplay.BackColor = &HC000&
End Sub
Private Sub optRed_Click()
lblDisplay.BackColor = &HFF&
End Sub
Private Sub optYellow_Click()
lblDisplay.BackColor = &HFFFF&
End Sub
====================================================================