1000 Projects
<<<Classroom & Online Training's on android, Java, .Net, C, C++, Big Data Hadoop, SAP, SQL, Oracle, Sales Force>>>

Online Database Manager VB Project with Source Code

July 16, 2012

This Online Database Manager Visual basic Web application introduces a new way of making a database, which provides a grasped environment to all to create a rich data sector in an easiest way.  Through this final year project users can easily make a new database, which provides a way to create a table structure. For accessing this site users have to register their identity to the corresponding page. After that this site verify the authentication of the respective user, if he/she is an authenticated person then they can easily make their visualization into this site. This allow the users to make a new table, creating many rows, altering the row which we are inserted, drop the row if it’s not required, and many more. Database tables stored in Microsoft Access database.

VB Source Code for New User Entry to the System:

 Protected Sub CmdSubmit_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CmdSubmit.Click
Dim Str As String = ""
If Trim(TxtName.Text) = "" Then
Str += "Enter The Name" &amp; vbLf
End If
If Trim(TxtUN.Text) = "" Then
Str += "Enter The UserName" &amp; vbLf
End If
If Trim(TxtPwd.Text) = "" Then
Str += "Enter The Password" &amp; vbLf
End If
If Trim(TxtMail.Text) = "" Then
Str += "Enter The Mail-ID" &amp; vbLf
End If
If Trim(TxtContact.Text) = "" Then
Str += "Enter The Contact Address" &amp; vbLf
End If

If Str = "" Then
Dim S As String
S = "Insert Into NewUser Values(" &amp; TxtUID.Text &amp; ",'" &amp; TxtName.Text &amp; "','" &amp; TxtUN.Text &amp; "','" &amp; TxtPwd.Text &amp; "','" &amp; TxtMail.Text &amp; "','" &amp; TxtContact.Text &amp; "')"
Cmd = New OleDbCommand(S, Cn)
Cmd.ExecuteNonQuery()
Cmd.Dispose()
Clear()
MsgBox("Successfully Saved", MsgBoxStyle.Information, "Online Database Manager :")
Private Sub CmdFind_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmdFind.Click
If Trim(TxtDB.Text) &lt;&gt; "" Then
CmbTN.Items.Clear()
CmbTN.Items.Add("-------------------Select--------------------------------------")
Dim S As String
S = "Select * From SysObjects Where Type='U'"
Cmd = New SqlCommand(S, Cn)
dr = Cmd.ExecuteReader
While dr.Read
CmbTN.Items.Add(dr.GetString(0))
End While
Cmd.Dispose()
dr.Close()
Else
MsgBox("Invalid Database Name...", MsgBoxStyle.Information, "Online Database Manager :")
End If
End Sub

Private Sub CmdSearch_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmdSearch.Click
If CmbTN.Text &lt;&gt; "-------------------Select--------------------------------------" Then
Dim S As String
S = "Delete From " &amp; CmbTN.Text &amp; ""
Cmd = New SqlCommand(S, Cn)
Cmd.ExecuteNonQuery()
MsgBox("Successfully Remove The Table...", MsgBoxStyle.Information, "Online Database Manager :")
Cmd.Dispose()
Else
MsgBox("Select The Table...", MsgBoxStyle.Information, "Online Database Manager :")

Download Online Database Manager VB Project with Source Code.


posted in .Net Projects, ASP.Net Projects, C# Projects, CSE Mini Projects, CSE Projects with Source Code, Ms-Access projects, MSC MCA Projects, VB projects by Ramesh Gavva/Kasarla shanthan

Follow comments via the RSS Feed | Leave a comment | Trackback URL


‹‹‹ Go Inventory Project Report

3g &4g Technologies and Their Evaluation Seminar Topic ›››

Custom Search

1 Comment to "Online Database Manager VB Project with Source Code"

  1. kumar wrote:

    i want to mlm software

Leave Your Comment

 
Copyright 2014 | Powered by 1000Projects.org | Developed by WikiHands.