Hello everyone,
I am new in vb.net and access database please need ur guideline,
I am using vb.net 2010 and for database Microsoft access DB,
my question is how can i set autoincrement on MemoNo
following code using and
Imports System.Data.OleDb
Imports System.Drawing.Printing
Public Class Frmhire
Dim provider As String
Dim dataFile As String
Dim connString As String
Dim myConnection As OleDbConnection = New OleDbConnection
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSave.Click
provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source ="
'Change the following to your access database location
dataFile = "d:\testsoft\Projects\db\pankajdb.accdb"
connString = provider & dataFile
myConnection.ConnectionString = connString
myConnection.Open()
Dim str As String
str = "insert into HireSlip ([MemoNo], [Date],[Ms],[Truckno],[LodingDate],[Station],[Weight],[Detection],[Overload],[Freight],[Advance],[Balance],[Hamali],[Topay],[Refund],[Total]) values (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)"
Dim cmd As OleDbCommand = New OleDbCommand(str, myConnection)
cmd.Parameters.Add(New OleDbParameter("MemoNo", CType(TxtMemo.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Date", CType(DateOne.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Ms", CType(TxtMs.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Truckno", CType(TxtTruck.Text, String)))
cmd.Parameters.Add(New OleDbParameter("LodingDate", CType(DateTwo.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Station", CType(TxtStation.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Weight", CType(Txtweight.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Detection", CType(TxtDetection.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Overload", CType(TxtOverload.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Freight", CType(TxtFreight.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Advance", CType(TxtAdvance.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Balance", CType(TxtBalance.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Hamali", CType(TxtHamali.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Topay", CType(TxtTopay.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Refund", CType(TxtRefund.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Total", CType(TxtTotal.Text, String)))
Try
cmd.ExecuteNonQuery()
cmd.Dispose()
myConnection.Close()
TxtMemo.Clear()
DateOne.Clear()
TxtMs.Clear()
TxtTruck.Clear()
DateTwo.Clear()
TxtStation.Clear()
Txtweight.Clear()
TxtDetection.Clear()
TxtOverload.Clear()
TxtFreight.Clear()
TxtAdvance.Clear()
TxtBalance.Clear()
TxtHamali.Clear()
TxtTopay.Clear()
TxtRefund.Clear()
TxtTotal.Clear()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub Frmhire_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim thedate As Date
thedate = Format(Now(), "short date")
DateOne.Text = thedate
DateTwo.Text = thedate
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
End Class
Deepak AndrePosted Oct 28, 2017, 3:04 AM
Ramesh PalanivelPosted Oct 27, 2017, 7:55 AM
Deepak AndrePosted Oct 27, 2017, 7:21 AM
Ramesh PalanivelPosted Oct 27, 2017, 6:24 AM
Deepak AndrePosted Oct 27, 2017, 6:19 AM
Ramesh PalanivelPosted Oct 27, 2017, 4:25 AM
Deepak AndrePosted Oct 27, 2017, 3:46 AM
SUKHDEO THAKURPosted Oct 26, 2017, 11:52 PM