Visual Basic/VB6 Database


I am facing some problems while I want to connect with database,vb6;
1)I want to add data ('Name' field) to database with uppercase in VB6 and other fields in Proper case. (2)When I add a name like Pradip,the code will create automatic,e.g., the code of Pradip,Sex:Male will be P0001M, Banasree,Sex:Female, will be B0001F, then Pratap,Sex:Male, the code will be P0002M;

Please sir, help me; I am awaiting for your positive suggestions and solutions.

the data stored will conform to some types. but when you retrieve the data and display you need to use a function like

Dim Ret As String
Private Sub Command1_Click()
Label1 = UCase(Text1)
Call Prop(Text1)
Label2 = Ret
End Sub
   Public Function Prop(ByVal mString As String) As String
   If Len(Trim(mString)) > 1 Then
   Dim First As String
   Dim Rest As String
   First = UCase(Mid(mString, 1, 1))
   Rest = LCase(Right(mString, Len(mString) - 1))
   Ret = First & Rest
      Ret = mString
   End If
   End Function

make changes as needed

Visual Basic

All Answers

Answers by Expert:

Ask Experts




visual basic application programming from design to access information, sql, engineering and commercial applications. access databases, excel.(VB6) basic questions in vb 2008. Optional: 1)a large number of people want me to do work which takes some time and effort. can do projects in vb 2008. Pl.note that i would like to be paid for such work. 2) if you want me to spend quality time and do special work, i expect to be paid a reasonable price for my time. 3) if you are pleased with my reply you could consider a good amount. 4) you can visit my website


programming since the past 15 years. have completed a large number of projects in Industrial applications, finance,accounts, correspondence. excel macros etc

engineering, management degrees.

Past/Present Clients
project work for a Norway company,USA company and a Canadian company completed. Freelance Project work and Teaching. helping programmers with their work
teaching vb

©2017 All rights reserved.