Car Wash System vb.net

This software consists of a database that save the registration number of every vehicle being wash along side with the date, type of wash made and price

Screen Shot

Source Code

To view records in the database:

Dim conn As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\washRcd.accdb;Persist Security Info=False") Dim sql As String sql = " SELECT * FROM tblwash" conn.Open() Dim dt As New DataTable Dim cmd2 As New OleDb.OleDbDataAdapter(sql, conn) cmd2.Fill(dt) DataGridView1.DataSource = dt DataGridView1.Refresh() conn.Close()

To insert new record in the database:

Private Sub insert() Dim conn As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\washRcd.accdb;Persist Security Info=False") Dim updateSql As String = String.Format("INSERT INTO tblwash (transport_Type , car_reg_num , washtype , price , date_wash ) VALUES (@tran , @reg , @wash , @pri , @date )") Dim cmd As New OleDbCommand(updateSql, conn) conn.Open() cmd.Parameters.AddWithValue("@tran", trns_type_txtbx.Text) cmd.Parameters.AddWithValue("@reg", carNum_txbx.Text) cmd.Parameters.AddWithValue("@wash", washType) cmd.Parameters.AddWithValue("@pri", price) cmd.Parameters.AddWithValue("@date", date_txbx.Text) cmd.ExecuteNonQuery() conn.Close() End Sub

ConnectionString in app.config:

<connectionstrings> <add name="CarWash.My.MySettings.washRcdConnectionString" connectionString="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\washRcd.accdb" providerName="System.Data.OleDb" /> </connectionStrings>

Download

Click on the link below to download the game or source code:

Source code
Program