Vehicle RC Renewal after 15 years|vehicle rc renewal | RC Renewal online 2024 | 15 year old vehicle re registration| Renew RC 2024 | How to renew Rc| RC Renew कैसे करें|Full Process in Hindi | Renew RC online | Renewal of rc online |Vehicle registration certificate re-registration online after 15 year | How to Renew Vehicle registration certificate of old car or Bike .
How to Renew your Vehicle RC online through Parivahan website while sitting at home.
In this video , i have cover following points:
1. How to Access Parivahan website for RC Renewal .
2. How to Generate CMV Form 25 for Vehicle Registration Certificate Renewal.
3. What are the documents required for vehicle registration
4. How to prepare file for vehicle registration renewal
5. How to pay taxes and fees for RC renewal
6. How to get ready your vehicle for inspection by MVI.
7. How to upload form duly signed by MVI on Parivahan Portal.
8. How to check the status of RC Renewal Application.
Online Vehicle RC Renewal after 15 years ,re registration of vehicle after 15 years,CMV Form 25 for Vehicle Registration Certifcate Renewal,15 year old vehicle registration fees,15 year old vehicle re registration process,re registration of 15 year old vehicle,old vehicle registration renewal online,status of RC Renewal Application,latest news on 15 year old vehicle registration,,new rules for reregistration of old vehicles,re registration of vehicle,old vehicle registration,re registration of car after 15 years,How to Renew Vehicle registration certificate of old car or Bike,vehicle registration renewal,
How to print content of a RichTextBox Control in Visual basic | Printing RichTextBox |Print to a pdf
in this video, we will demonstrate how to print content of a RichTextBox Control in Visual basic 6. Printing RichTextBox Control content to a Pdf file . Step by step tutorial. In Visual basic 6, we can print content of a richtextbox control using printer and software to print data to a pdf file as well.
This application will demonstrate
Part:1 "How to Load data from a text file (RTF) to Richtextbox using Common Dialog Control and Richtextbox Control in Visual Basic"
and How to Clear Rich Text Box Control.
Link : https://youtu.be/32ITifBWJUI
Part:2 How to Save Richtextbox data to a file using Common dialog control in Visual basic
Link : https://youtu.be/oBJE3j2JJ1w
Part :3 How to Print Richtextbox content in visual basic and Print to a PDF file in visual basic .
How to save richtextbox data to a text file in visual basic | Export data to a text file or RTF file | How to save richtextbox content to a file in visual basic |Visual Basic 6 Step by Step Tutorial
In the Part:1, we have demonstrated "How to Load data from a text file (RTF) to Richtextbox using Common Dialog Control and Richtextbox Control
in Visual Basic" and How to Clear Rich Text Box Control.
In Part:2, we have discussed about "How to save Richtextbox data to a Text File or RTF file".
All steps are explained in detail,no step is skipped while making this video tutorial.
Step by Step Tutorial
Code
Dim data As String
Dim check As Integer
Dim filename As String
Private Sub Command1_Click()
opendialog.Filter = "Text Files (*.txt)|*.txt|RTf Files (*.rtf)|*.rtf|"
opendialog.ShowOpen
data = opendialog.filename
''check = Len(data)
If opendialog.filename = "" Then
MsgBox "You click on Cancel!! Kindly Select the file you want to load", vbOKOnly + vbCritical
Else
RichTextBox1.LoadFile (data)
End If
End Sub
Private Sub findbtn_Click()
opendialog.Filter = "Text Files (*.txt)|*.txt|RTf Files (*.rtf)|*.rtf|"
opendialog.ShowSave
filename = opendialog.filename
RichTextBox1.SaveFile filename, rtfText
End Sub
How to Load data from Text (.txt) and RTF (.rtf) file to Richtextbox control using Common Dialog control in Visual Basic 6 .Also Clear the richtextbox control.Visual Basic Tutorial-Step by step Tutorial,No Step skipped.
In the Part-1 of this Video, we will discuss following points
1.How to add Richtextbox and Common Dialog Control in the Visual Basic Project.
2.How to Use Richtextbox and Common Dialog Control and set their properties.
3.How to load data from a text file to Richtextbox using Open Dialog control and Command Button.In open Dialog, we will select any text file from the PC and Open that file content into the richtextbox control.
4.How to clear the richtextbox.
All steps are explained in detail,no step is skipped .
Next Part-2 ,we will discuss about Saving data from a richtextbox to a text .txt file and RTF .rtf file and store in PC.
How to install visual basic 6.0 on windows 7,8 &10 (32 bit & 64 bit operating system)-Step by step tutorial.
in this video ,you can easily find the way to install visual basic 6.0 on windows operating system.
Visual Basic 6.0 Tutorial | Search Records between Two dates using DataGrid and DTPicker Control
Visual Basic 6.0 Tutorial:Search Records between Two dates using DataGrid and Datepicker Control | Extract Records between two dates in Visual Basic 6.0 |Show Data between two dates-Visual Basic Database Application
In this video,following features are discussed:
1.How to add datepicker(DTpicker) control into the form.
2.How to format DTPicker Control and change the look of the control.
3.How to make the necessary changes in the properties of DTPicker control for effecient data searching.
4.How to Extract records between Two dates using DTPicker Control.
for more Visual Basic tutorials,please visit
Youtube Channel:https://www.youtube.com/user/sandydehrian
Computer Gyan Blog:http://selfcomputerlearning.blogspot.in/
Visual Basic 6.0 Tutorial :How to Connect Listview control with Microsoft Access Database and Load data into the Listview control-Step by Step Guide.
STEP:1
Create a Database Using Microsoft Access.
I have already created a database named"Logindataappmdb"and Table "Log".
STEP:2
1.Add ADO Library for database Connectivity
2. Add Listview Control onto VB Project.
STEP:3
Add ColumnHeaders to the Listview.
(For Rollno,Name,Class,Section,Stream)
STEP:4
Create Objects for Database Connection and Recordset in General Declaration Section
Code.
Dim connect As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Form_Load()
With ListView1.ColumnHeaders
.Add , , "RollNo", Width / 5, lvwColumnLeft
.Add , , "Name", Width / 5, lvwColumnCenter
.Add , , "Class", Width / 5, lvwColumnCenter
.Add , , "Section", Width / 5, lvwColumnCenter
.Add , , "Stream", Width / 5, lvwColumnCenter
End With
loaddata
End Sub
Sub dbconnection()
connect.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=D:\Database Folder\Logindataapp.mdb"
End Sub
Sub loaddata()
Dim list As ListItem
ListView1.ListItems.Clear
dbconnection
rs.Open "Select * from Log", connect, adOpenDynamic, adLockOptimistic
Do Until rs.EOF
Set list = ListView1.ListItems.Add(, , rs!RollNo)
list.SubItems(1) = rs!Name
list.SubItems(2) = rs!Class
list.SubItems(3) = rs!Section
list.SubItems(4) = rs!Stream
rs.MoveNext
Loop
End Sub
Listview and its properties-Add,Delete,Search and Sort Listitems in the Listview-Visual Basic 6-Quick and Easy Working with Columnheaders (Add Column Headers,Add Images to Listview's CoumnHeaders ,Adjust ColumnHeader's Width,Align ColumnHeaders,Adding Images to columnHeaders) Working with Listitems (Add Listitems,Add Images to Listitems of the Listview,Delete Listitems from Listview ,Seacrh Listitems in The Listview and Sort Listitems in Ascending or Descending Order) STEP:1
Add Listview Control and ImageList Control on to the form. STEP-2
Set Properties of the Listview Control
and Add Images to the Imagelist Control.
(In ImageList,I am using index 1 Pic for ColumnHeader,Index 2 Pic for Male ,Index 3 Image for Female) STEP:3
How to add Column Header to the List View.
A. Add Column Headers to the Listview
B. Align Columns Left,Right,Center
C. Adding Images to Column Headers using ImageList. STEP:4
How to add Listitems to the Listview
A. Declare Listitem Object Variable.
B. Add Listitems to the Listview.
C. Add Images to the Listitem added to the Listview using ImageList. STEP:5
How to Reorder Column Headers,Show/Hide ScrollBar, HoverSelection. STEP:6
How to Select Full Row Listitem of the Listview. STEP:6
For Delete and Search a particular Listitem from the Listview.
Add Command Buttons and Textbox Controls on to the form. STEP:7
How to Delete Selected Listitem from ListView. STEP:8
How to Search a Particular Listitem from Listview by highlighting that Item. STEP:9
How to Sort Listitems in Ascending and Descending Order in the Listview. STEP:10
How to Change Background,Apply Font Size,Font Face,Font Style,Forecolor to Listview.
Code: Delete Listems: Private Sub Command1_Click()
ListView1.ListItems.Remove (ListView1.SelectedItem.Index)
End Sub
Find Listitem from the Listview: Private Sub Command2_Click()
Dim itmx As ListItem
Set itmx = ListView1.FindItem(Text1.Text, lvwText, , lvwPartial)
If itmx Is Nothing Then
MsgBox "record not found", vbCritical
Else
ListView1.ListItems(itmx.Index).Selected = True
ListView1.SetFocus
End If
End Sub
Private Sub Form_Load()
Dim list As ListItem
Set ListView1.ColumnHeaderIcons = ImageList1
With ListView1.ColumnHeaders
.Add , , "RollNo", Width / 4, lvwColumnLeft, 1
.Add , , "Name", Width / 4, lvwColumnCenter, 1
.Add , , "Class", Width / 4, lvwColumnCenter, 1
.Add , , "Section", Width / 4, lvwColumnCenter, 1
End With
Set ListView1.SmallIcons = ImageList1
Set list = ListView1.ListItems.Add(, , "101", , 2)
list.SubItems(1) = "Sandeep Kaundal"
list.SubItems(2) = "MCA"
list.SubItems(3) = "A"
Set list = ListView1.ListItems.Add(, , "102", , 2)
list.SubItems(1) = "Ajay Kaundal"
list.SubItems(2) = "MBA"
list.SubItems(3) = "B"
Set list = ListView1.ListItems.Add(, , "103", , 3)
list.SubItems(1) = "Savita Kaundal"
list.SubItems(2) = "BCA"
list.SubItems(3) = "C"
Set list = ListView1.ListItems.Add(, , "104", , 2)
list.SubItems(1) = "Rajesh Kumar"
list.SubItems(2) = "MA"
list.SubItems(3) = "A"
Set list = ListView1.ListItems.Add(, , "105", , 2)
list.SubItems(1) = "Bhubnesh Kumar"
list.SubItems(2) = "MBA"
list.SubItems(3) = "C"
Set list = ListView1.ListItems.Add(, , "106", , 3)
list.SubItems(1) = "Kamlesh Kumari"
list.SubItems(2) = "BA"
list.SubItems(3) = "A"
ListView1.AllowColumnReorder = True
ListView1.FlatScrollBar = True
ListView1.HoverSelection = True
Set list = ListView1.ListItems.Add(, , "107", , 2)
list.SubItems(1) = "Dharmesh Kumar"
list.SubItems(2) = "MCA"
list.SubItems(3) = "B"
ListView1.TextBackground = lvwOpaque
ListView1.BackColor = vbYellow
ListView1.Font.Size = 15
ListView1.Font.Name = "Arial"
ListView1.ForeColor = vbBlue
ListView1.Font.Bold = True
End Sub
Sort Listitems in Ascending and Descending Order: Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
ListView1.Sorted = True
If ListView1.SortOrder = lvwAscending Then
ListView1.SortOrder = lvwDescending
Else
ListView1.SortOrder = lvwAscending
End If
End Sub
How to Reset Forgot Password in Visual Basic 6 0/MS Access Login Application-Step by Step-Visual Basic 6.0 Database Tutorial.
In this tutorial, following features are discussed
First, I am using my earlier Login Application https://youtu.be/s-BU03egpWA
*How to make database connectivity with access database for Reset Form.
* How to check the existing User of the application, Whether User credentials are available in the database or not. It gives message according to the availability user.
*How to verify or authenticate the user by entering the date of birth which is registered while registration of the account using Login System.
*Once Date of birth is verified with the database.it generates message accordingly showing Full name of the user and Reset Password option is available where you can enter your new password.
* if Date of Birth is not verified ,then You cannot see the Reset Password option on the form and not able to change the password anymore.
*When you see the password reset option, Here you have to provide New Password and retype to confirm the same password.
if New and confirm password matches with each other ,then you will be able to change the password by clicking Change Password button otherwise it gives warning msg:Password not matched.
*Once you successfully change the password, now you can Login into the system with your New Password.
For more information and Demo, Please watch the video and Note down each step.You can also make the same application without any error.
for more Visual Basic tutorials,please visit
Youtube Channel:https://www.youtube.com/user/sandydehrian
Computer Gyan Blog:http://selfcomputerlearning.blogspot.in/
Private Sub Form_Load()
registerado.Recordset.AddNew
End Sub
________________________________________
RESET FORM
________________________________________
Change Password code:-
Private Sub changepassbtn_Click()
If txtnew.Text = txtconfirm.Text Then
forgetado.Recordset.Fields("Password") = txtconfirm.Text
forgetado.Recordset.Update
MsgBox "Password Changed Successfully", vbInformation, "Password Change: Success"
reset.Hide
Login.Show
Else
MsgBox "Password Does not matched,Please Enter Correct Details", vbExclamation, "Change Password:Failed"
txtnew.Text = ""
txtconfirm.Text = ""
End If
End Sub
Check User code:-
Private Sub checkbtn_Click()
forgetado.RecordSource = "Select * from Logintb where username='" + txtuserid.Text + "'"
forgetado.Refresh
If forgetado.Recordset.EOF Then
lblmsg.Caption = "User ID Not Found ..Sorry Can't ReSet the password!!!! "
lblmsg.ForeColor = &HFF&
Else
lblmsg.Caption = "User ID Found in the database"
lblmsg.ForeColor = &H8000&
End If
End Sub
Form Load:-
Private Sub Form_Load()
txtnew.Visible = False
txtconfirm.Visible = False
changepassbtn.Visible = False
Label3.Visible = False
Label4.Visible = False
End Sub
Verification Code:-
Private Sub verifybtn_Click()
Dim str As String
str = StrComp(forgetado.Recordset.Fields("DOB").Value, txtdate.Text, vbTextCompare)
If str = True Then
lblmsg1.Caption = "Account not verified ,Can't reset the password"
lblmsg.Caption = "Sorry .. Date of Birth Not Matched !! "
lblmsg.ForeColor = &HFF&
lblmsg1.ForeColor = &HFF&
Else
lblmsg.ForeColor = &H8000&
lblmsg1.ForeColor = &H8000&
lblmsg.Caption = "Congratulations !!"
lblname.Caption = forgetado.Recordset.Fields("Name")
lblname.ForeColor = &HFF&
lblmsg1.Caption = "Account is verified Now,Set your new Password"
txtnew.Visible = True
txtconfirm.Visible = True
changepassbtn.Visible = True
Label3.Visible = True
Label4.Visible = True
End If
End Sub
__________________________________________
Option for Login or Registration
__________________________________________
Private Sub Command1_Click()
Registration.Show
End Sub
Private Sub Command2_Click()
Login.Show
End Sub
_________________________________________________________________________________
Please Share and Subscribe to my youtube channel.
Don't fogot to hit LIKE button if you like my work.
Visual Basic 6 :How to connect DataGrid control with Access database without using ADODC (ADO data control) and display data in the datagrid control-Visual Basic 6.0 Tutorial -Step by Step
Code:
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Form_Load()
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Database Folder\Student Database.mdb;Persist Security Info=False"
rs.CursorLocation = adUseClient
rs.Open "Select * from Student_Info", con, adOpenKeyset, adLockPessimistic, adcmdtxt
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
Set rs = Nothing
End Sub
If you like my work ,Please hit LIKE button and Subscribe to my channel
How to Install Wordpress locally using Wamp Server on Windows-Error Free Installation-Step by Step
How to download and Install Wordpress locally using Wamp server on Windows 7/Windows 8/Windows 10 PC-Step by Step-Error Free Installation.
In this tutorial,you will be able to see the following :
1.How to download and Install the Wamp Server on Windows PC.
2.How to fix the problems which are encountered while installation of wamp server.
3.How to launch localhost and myPhpadmin using wamp.
4.How to download and Install Wordpress locally on the wamp server.
5.How to Create databases for wordpress,make database connection with Wordpress.
6.How to work with the wordpress themes after installation of Wordpress.
All steps are explained very precisely.You will be able to Install wordpress on Wamp server after watching this video.
Don't forget to like my videos if you like my work. SHARE and SUBSCRIBE..
for more tutorials,please visit
Youtube Channel:https://www.youtube.com/user/sandydehrian
Computer Gyan Blog:http://selfcomputerlearning.blogspot.in/
How to make installer (Setup.exe) for VB6 Database project and create your own software package for installation or distribution.
Create Visual Basic Installer in easy step using Package and Deployment wizard.
In this video,I have created installer or Installation Package (Setup exe files) for your visual basic database project with simple and easy step.Also i have demonstrated about installation of Application as well.
How to download and install wamp server on windows 7 ,8 and 10 Pc (Error Free Installation)-Step by Step-Complete Tutorial
In this video ,I am installing Wamp server 3 (32 bit) on windows.
After installing Wamp Server: you will be able to do the following
How to start and Stop the services of Wamp server.
How to launch the wamp server Homepage through localhost.
How to launch myPhpAdmin using Username and password.
All it is done without any error and problem..
For Clean or Error Free installation,Following Pre-requisite Visual C++ Redistributable packages must be installed.
Visual C++ 2008 SP1: https://www.microsoft.com/en-us/download/details.aspx?id=5582
Visual C++ 2010 :http://www.microsoft.com/en-us/download/details.aspx?id=8328
Visual C++ 2012 :http://www.microsoft.com/en-us/download/details.aspx?id=30679
Visual C++ 2013 :https://www.microsoft.com/en-us/download/details.aspx?id=40784
Visual C++ 2015 :http://www.microsoft.com/fr-fr/download/details.aspx?id=48145
Wampserver download : http://www.wampserver.com/en/
If you like my work,then don't forget to like my videos and subscribe to channel.
Learn Visual Basic 6.0 Tutorial-Working with ImageCombo and Image List-Display Image with Combo items in the Combobox-Step by Step STEP-I
Add Microsoft Windows Common Control 6.0 .
Add ImageCombo onto the form from Toolbox.
Use ImageCombo Add Method
Syntax:
Imagecombo1.ComboItems.Add(INDEX,KEY,TEXT,IMAGE,SELECTEDIMAGE,IDENTATION)
I am using Only Two Parameter of add method i.e TEXT and IMAGE for displaying the Image in the combobox. STEP:2
To display Image Left to Comboitems in the Combobox
*Add Imagelist Control onto form.
* Add Images into the Imagelist.
* Assign the Index value of Pictures in the Imagelist to the IMAGE parameter of the Add Method of the ImageCombo Control.
its done!!!!.
Code: Private Sub Form_Load()
Set ImageCombo1.ImageList = ImageList1
ImageCombo1.ComboItems.Add , , "Administrator", 1
ImageCombo1.ComboItems.Add , , "Staff", 2
ImageCombo1.ComboItems.Add , , "Office Assistant", 3
ImageCombo1.ComboItems.Add , , "Librarian", 4
ImageCombo1.ComboItems.Add , , "Store Keeper", 5 End Sub
Private Sub ImageCombo1_Click()
Text1.Text = ImageCombo1.Text End Sub
Here is my updated List of Tutorials.
Create,Save,Update,Delete and Search Student Profile https://youtu.be/bL03PrGt8WY
Advance Login System (Splash Screen with Progress Bar,User Registration,Login system,WElcome ) https://youtu.be/s-BU03egpWA
Add Delete Update Search https://youtu.be/K8jq2H3aamk
Data Report in VB6 https://youtu.be/vjQDtKMUCKk
Data Manager in VB6 https://youtu.be/27IrMsEXlBc
Create Tool Bar,Status Bar and Menu Bar https://youtu.be/3l6bciTAC7Q
Common dialog control- Font and Color Dialog https://youtu.be/4DBy2ghmu7U
Search Records in Database (By Name or ID) https://youtu.be/1yNScTVAqZ4
Login Form using Visual Basic 6.0 https://youtu.be/XXKjfta5kkg
Add Delete Update and Clear records https://youtu.be/tYS7uncH8Ds
Simple Visual Basic Database Application https://youtu.be/PldGe0-FnI8
Design Font Dialog Box in VB 6 https://youtu.be/C0CMtoXIFY4
Road Traffic lights Animated system https://youtu.be/74Zvl0bXeAY
ListBox Control( Advanced) https://youtu.be/Q6NYtmH7z9Q
ListBox Control -Add,Delete and Clear items https://youtu.be/YlmKSyk0l2k
Custom Progress Bar with percentage completed on Splash Screen https://youtu.be/jGSxrhYZAbE
Frame Control,Check Box and Option Buttons https://youtu.be/9x9dmM0V4CU
Picture Viewer+Browser in Visual Basic https://youtu.be/POd1Kmpvc0M
Splash Screen with Progress Bar- https://youtu.be/95hw5z7lq4A
Create Menus,Drop Down Menus ,Nested menus in Menu Barhttps://youtu.be/fNtJaQgnuEs
for more about Visual Basic tutorials,please visit Youtube Channel:https://www.youtube.com/user/sandydehrian Computer Gyan Blog:http://selfcomputerlearning.blogspot.in/
How to create ,Save,Update ,Delete and Search Student Profile information using Visual basic and Ms Access-Step By Step
VB6 Control used are Textbox, OptionBox,Combobox,Picturebox,DatePicker ,Common Dialog controls Features of Application are: 1.How to design the VB form and add various controls i.e Textbox, OptionBox,Combobox,Picturebox,DatePicker ,Common Dialog controls onto the form. 2.How to create database object at run time and do the database connectivity. 3.How to load the image onto the form using commondialog control and also Save /Retrieve the Image or Picture from the database. 4.How to save the values selected from Optionbox and Combobox into the database and retrieve them when required. 5.How to Use datepicker control and Save the Date into the Database. 6.How to Save ,Delete,Update and Search the Student profiles. 7.How to navigate between the profiles (First/Next/Previous/Last).
if you like my work,Please hit like button and SUBSCRIBE to my channel.
CODE FOR THIS APPLICATION:
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim str As String
Dim confirm As Integer
CODE FOR ADD NEW PROFILE Private Sub addnew_Click()
rs.addnew
clear
End Sub
Sub clear()
Text1.Text = ""
Text2.Text = ""
DTPicker1.Value = "10/05/2005"
Option1.Value = False
Option2.Value = False
Combo1.Text = "Select Department"
Combo2.Text = "Select Course"
Combo3.Text = "Select Semester"
Text3.Text = ""
Text4.Text = ""
Picture1.Picture = LoadPicture("")
End Sub CODE FOR COMBOBOX SELECT OPTIONS
Private Sub Combo1_Click()
Combo2.clear
If Combo1.Text = "Computer Science" Then
Combo2.AddItem "M.C.A"
Combo2.AddItem "B.C.A"
Combo2.AddItem "B.Sc(IT)"
ElseIf Combo1.Text = "Electrical Engineering" Then
Combo2.AddItem "B.TECH (EE)"
Combo2.AddItem "M.TECH (EE)"
ElseIf Combo1.Text = "Civil Engineering" Then
Combo2.AddItem "B.TECH (CE)"
Combo2.AddItem "M.TECH (CE)"
Else
End If
End Sub CODE FOR DELETE BUTTON
Private Sub deletebtn_Click()
confirm = MsgBox("Do you want to delete the Student Profile", vbYesNo + vbCritical, "Deletion Confirmation")
If confirm = vbYes Then
rs.Delete adAffectCurrent
MsgBox "Record has been Deleted successfully", vbInformation, "Message"
rs.Update
refreshdata
Else
MsgBox "Profile Not Deleted ..!!", vbInformation, "Message"
End If
End Sub
Sub refreshdata()
rs.Close
rs.Open "Select * from ProfileTBL", con, adOpenStatic, adLockPessimistic
If Not rs.EOF Then
rs.MoveNext
display
Else
MsgBox "No Record Found"
End If
End Sub CODE FOR SEARCH PROFILE:
Private Sub findbtn_Click()
rs.Close
rs.Open "Select * from ProfileTBL where RollNo='" + Text1.Text + "'", con, adOpenDynamic, adLockPessimistic
If Not rs.EOF Then
display
reload
Else
MsgBox "Record Profile not found ..!!", vbInformation
End If
End Sub
Sub reload()
rs.Close
rs.Open "Select * from ProfileTBL", con, adOpenDynamic, adLockPessimistic
End Sub Database Connectivity under FORM LOAD
Private Sub Form_Load()
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Database Folder\ProfileDB.mdb;Persist Security Info=False"
rs.Open "Select * from ProfileTBL", con, adOpenDynamic, adLockPessimistic
Combo1.AddItem "Computer Science"
Combo1.AddItem "Electrical Engineering"
Combo1.AddItem "Civil Engineering"
Combo3.AddItem "SEMESTER-I"
Combo3.AddItem "SEMESTER-II"
Combo3.AddItem "SEMESTER-III"
Combo3.AddItem "SEMESTER-IV"
Combo3.AddItem "SEMESTER-V"
Combo3.AddItem "SEMESTER-VI"
Combo3.AddItem "SEMESTER-VII"
Combo3.AddItem "SEMESTER-VIII"
display
End Sub
Sub display()
Text1.Text = rs!Rollno
Text2.Text = rs!Name
DTPicker1.Value = rs!DOB
If rs!Gender = "MALE" Then
Option1.Value = True
Else
Option2.Value = True
End If
Combo1.Text = rs!Dept
Combo2.Text = rs!Course
Combo3.Text = rs!Semester
Text3.Text = rs!Address
Text4.Text = rs!phone
Picture1.Picture = LoadPicture(rs!photo)
End Sub CODE FOR RECORD NAVIGATION
Private Sub Firstbtn_Click()
rs.MoveFirst
display
End Sub
Private Sub lastbtn_Click()
rs.MoveLast
display
End Sub
Private Sub nextbtn_Click()
rs.MoveNext
If Not rs.EOF Then
display
Else
rs.MoveFirst
display
End If
End Sub
Private Sub Previousbtn_Click()
rs.MovePrevious
If rs.BOF Then
rs.MoveLast
display
Else
display
End If
End Sub CODE FOR SAVE PROFILE
Private Sub savebtn_Click()
rs.Fields("RollNo").Value = Text1.Text
rs.Fields("Name").Value = Text2.Text
rs.Fields("DOB").Value = DTPicker1.Value
If Option1.Value = True Then
rs.Fields("Gender") = Option1.Caption
Else
rs.Fields("Gender") = Option2.Caption
End If
rs.Fields("Dept").Value = Combo1.Text
rs.Fields("Course").Value = Combo2.Text
rs.Fields("Semester").Value = Combo3.Text
rs.Fields("Address").Value = Text3.Text
rs.Fields("Phone").Value = Text4.Text
rs.Fields("Photo").Value = str
MsgBox "Data is saved successfully ..!!!", vbInformation
rs.Update
End Sub CODE FOR UPDATE PROFILE
Private Sub updatebtn_Click()
rs.Fields("RollNo").Value = Text1.Text
rs.Fields("Name").Value = Text2.Text
rs.Fields("DOB").Value = DTPicker1.Value
If Option1.Value = True Then
rs.Fields("Gender") = Option1.Caption
Else
rs.Fields("Gender") = Option2.Caption
End If
rs.Fields("Dept").Value = Combo1.Text
rs.Fields("Course").Value = Combo2.Text
rs.Fields("Semester").Value = Combo3.Text
rs.Fields("Address").Value = Text3.Text
rs.Fields("Phone").Value = Text4.Text
MsgBox "Data is updated successfully ..!!!", vbInformation
rs.Update
End Sub CODE FOR LOADING PICTURE
Private Sub uploadbtn_Click()
CommonDialog1.ShowOpen
CommonDialog1.Filter = "Jpeg|*.jpg"
str = CommonDialog1.FileName
Picture1.Picture = LoadPicture(str)
End Sub
Visual Basic 6.0 Tutorial -Create Data Report using Data Environment (Print and Export data report)-Step by Step-From Scratch
In this Video tutorial,Following Features are discussed
1.First,Create Database ,Store Data in it using MS Access.Also,Display the data in Datagrid Using ADODC and Data Grid Control In Visual Basic 6.0 .
2.Before Creating data report in Vb6,First Create Data Environment Which is used to connect your database with Data Report and tells the data report what is stored in the database..
3.Once,Data Environment has been created ,Now Create Data Report with Data Environment just by dragging different fields from Data Environment to Data Report..
4.How to display all records in one Page or One Record in One Page.
5.How to print the data report.
6.How to export contents of data report to text files or other format files.
7.Use various Controls and functions in the different Sections of Data Report in order to make data report more readable and understandable.With functions,You can do the calculations about the records and values.
8.How to make this data report attractive and more effective,with Logos,Text and tabular representation of data using controls.
You can also create the same data report ,just watch this video.
if you like this tutorial,Please Hit Like button and Share -SUBSCRIBE.
for any query,leave a comment in comment section.
Thanks .
for more Visual Basic tutorials,please visit
Youtube Channel:https://www.youtube.com/user/sandydehrian
Computer Gyan Blog:http://selfcomputerlearning.blogspot.in/
Learn VB 6-Working with Visual Data Manager-Create Database,Add Index to table, perform operations on Database (Add,Delete ,Update,Refresh,Close) without coding.
Using Visual Data Manager,.Create Database and table,Add Index to table,Create form using Data Form Designer and performs Add,Delete,Refresh,Update ,Close operations without any coding.
In this tutorial,following features are demonstrated.
1.How to use visual Data manager,Create database and then create a new Table along with fields.
2.Create a form using data form designer and connect it with database's table.
3.Perform Add,Delete,Update,Refresh ,Close Operations on the database without any coding.
for more Visual Basic tutorials,please visit Youtube Channel:https://www.youtube.com/user/sandydehrian Computer Gyan Blog:http://selfcomputerlearning.blogspot.in/
If you have any query or issue with VB6 ,let me know.
Just leave a comment in the comment section.
Thanks for watching.Don't forget to hit like button,if you like my work .
Create Tool Bar,Status Bar and Menu Bar Using Visual Basic 6.0-Step By Step.
In this tutorial,following features are demonstrated :
1. How to Create a Status Bar at the bottom of form ,Display Date And time,Status of CAPS LOCK/INSERT/NUM LOCK Enabled or Disabled.
2. How to use Image List control ,store images into the control and Use them in toolbar later on.
3. How to Create a Toolbar and place images in the menus using imagelist control,to make your toolbar more interactive.
4.How to create Menu Bar,as discussed in my earlier tutorials.
Link for more information.
If you have any query,please leave comment.
if you found my tutorial more informative and useful then Hit like button and share it with your friends. for more Visual Basic tutorials,please visit Youtube Channel:https://www.youtube.com/user/sandydehrian Computer Gyan Blog:http://selfcomputerlearning.blogspot.in/
Visual Basic 6.0 Tutorial:Working with Common Dialog Control and its different Dialogs i.e Open,Save,Color,Font,Print and Help.
Video tutorial is focused on following points:
1.How to add Common Dialog Control 6.0 into VB form.
2.How to use different dialogs (Open,Save,Color,Font,Print and Help) with this control.
3.How to use different methods /Actions to invoke a particular dialog.
4.How to work with Font Dialog and its different flags in detail.
(How to add specific fonts and Style,effects .colors ,Help to font dialog and how to make them functional with code.)
5.How to work with Color Dialog and its different flags in detail.
(How to add different color options (Custom colors,Full Colors,Disable custom color)onto the color dialog and use them with text and background etc)
Source Code: For Color Dialog Button
Private Sub colorbtn_Click()
On Error GoTo errorfix
dialogtest.Flags = &H1
dialogtest.ShowColor
Form1.BackColor = dialogtest.Color
errorfix:
End Sub For Font Dialog button Private Sub fontbtn_Click()
On Error GoTo errorfix
dialogtest.Flags = &H3 Or &H100 Or &H4
dialogtest.ShowFont
txtsample.FontName = dialogtest.FontName
txtsample.FontBold = dialogtest.FontBold
txtsample.FontItalic = dialogtest.FontItalic
txtsample.FontSize = dialogtest.FontSize
txtsample.FontStrikethru = dialogtest.FontStrikethru
txtsample.FontUnderline = dialogtest.FontUnderline
txtsample.ForeColor = dialogtest.Color
errorfix: End Sub
for more Visual Basic tutorials,please visit Youtube Channel:https://www.youtube.com/user/sandydehrian Computer Gyan Blog:http://selfcomputerlearning.blogspot.in/
How to search records in the database by entering either Name or Roll No/ID -Visual Basic 6.0 and MS Access Database Application. In my earlier tutorial,I demonstrate-How to Add,Delete,Update and Clear Records.,https://youtu.be/tYS7uncH8Ds Now ,I am going to Add one more feature to this Application. So
In this tutorial,I demonstrate-How can you search a particular record in the database by entering either Roll No/ID or Name in the Textbox on the form. Following features covered: 1.How to make necessary changes in database connection (ADODC) for searching records in the database. 2.How to search records by Roll No/ID in the Database. 3.If Record is not available in the database,Then A warning Message box (Record Not Found-search for any other Roll No/ID) Appears. 4.How to search existing records by Name in the database
Source Code: Double click on Go Button and Write the following code. Private Sub gobtn_Click() Studentdb.RecordSource = "select * from Student_Info where RollNo ='" + rollsearch.Text + "'or Name ='" + rollsearch.Text + "'" Studentdb.Refresh If Studentdb.Recordset.EOF Then MsgBox "Record Not Found ,Please Try any other Rollno", vbInformation Else Studentdb.Caption = Studentdb.RecordSource End If End Sub
If you have any queries,suggestions or problems,please leave comments. for more Visual Basic tutorials,Visit Youtube Channel:https://www.youtube.com/user/sandydehrian Computer Gyan Blog:http://selfcomputerlearning.blogspot.in/ Do share and Subscribe to my channel :-)
