Techno.com: Make A Simple Database Program using vb.net 6.0 Miscrosoft Access database

Creating a simple database program using Microsoft Access Database Vb.net . input Delete
techno.com now will create a simple program using vb.net 6.0 Miscrosoft Access database

Number
Name:
Age :
Status :

let's get started :
- Open the visual program basic.net 6.0

- Select the new tab , select standard exe click open

Drag the Textbox tools into the program window
Drag the Label tools into the program window
Drag a CommandButton tools into the program window
Drag tools ADODC into the program window
DataGridView Drag tools into the program window

Give the title on the label tools
Typing the title on the label , label1 on the properties tab , give the contents of the caption " Name "
In label2 , label2 properties tab , give the contents of the Caption " Status "

Giving the title to the textbox dan Buttons :
Textbox1 , the Properties tab , locate the " ( Name ) " fill in " number.txt "

Textbox2 , the Properties tab , locate the " ( Name ) " fill in " nametxt "
Textbox3 , the Properties tab , locate the " ( Name ) " fill in " agetx "
Textbox4 , the Properties tab , locate the " ( Name ) " fill in " statustxt "

Command1 the Properties tab , locate the "Caption" Change To "Input" and (Name) change to "buttonsave"
Command2 the Properties tab , locate the "Caption" Change To "Input" and (Name) change to "Delete"

In GridView1 . go to the Properties tab , locate the " DataSource " select " Adodc1 "

Minimaze basic.net Visual Program 6.0

And now Creating a database

- Open the program Microsoft acces 2010
- Click on File
- Search create in the bottom right , do not click
- Click the folder icon , browse

- Open the folder storage " SimpleData "
- Change the "Save As Type " to " Microsof Access Databasess (2002-2003 format ) ( * . Mdb ) "
- Change the file name to " simple"

- Click OK
- Click desaign view or view
- Give the title in the database "data_table " and OK

- Enter the name of the column to the database " Number_data " , " Name_person " , " Age_person " , " Status_person "

- Save the database (CTRL S)

back to visual program basic.net 6.0
Input modules in the program :
- Click on project
- Add module

Input this code :

Public ConN As New ADODB.Connection
Public Rsdata As New ADODB.Recordset

Sub connectdata()
'Set ConN = New ADODB.Connection'
Set Rsdata = New ADODB.Recordset
'ConN.Open "Provider=microsoft.jet.oledb.4.0;data source = " & App.Path & "\simple.mdb"'

Set ConN = New ADODB.Connection
Rsdata.CursorLocation = adUseClient
ConN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & \simple.mdb;Persist Security Info=False"
End Sub

- Save Module
- Save Ctrl S

- Click on " Save "

Coding for program form , click form1
- View Code
Input this code :

Private Sub buttonsave_Click()
Dim sqlsave As String
sqlsave = "Insert Into data_table (Number_data,Name_Person,Age_person,Status_Person) values ('" & Numbertxt & "','" & nametxt & "','" & agetxt & "','" & statuscombo.Text & "')"
ConN.Execute sqlsave
Form_Activate
Call connectdata
Call blank
End Sub

Private Sub buttondelete_Click()
Adodc1.Recordset.Delete
Adodc1.Recordset.Update
DataGrid1.Refresh
End Sub

Private Sub Form_Activate()
Call connectdata
Adodc1.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\simple.mdb"
Adodc1.RecordSource = "data_table"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub

Private Sub Form_Load()
Call connectdata
Numbertxt.Text = ""
agetxt.Text = ""
nametxt.Text = ""

statuscombo.AddItem "Single"
statuscombo.AddItem "Married"

End Sub

Private Sub blank()
Numbertxt.Text = ""
agetxt.Text = ""
nametxt.Text = ""
End Sub

- Save
- Ctrl S

And Now Run Program . " F5 "

Techno.com

Laman

Wednesday, April 2, 2014

Make A Simple Database Program using vb.net 6.0 Miscrosoft Access database

1 comment: