Hi all I'm Trying this code in vb 2005 express
The database is sql 2005 express
thease textbox are binded with a bindingsource
it does not give me a error but it want insert the data to the database
can anyone help me with this??
Private Sub InsertData()
Dim Truckcode As Integer
Dim TruckNo As String
Dim TruckMake As String
Dim TruckRegDate As Date
Dim TruckOption As String
Dim TruckDriver As String
Dim TruckTons As Integer
Dim TruckSS As Date
Dim TruckSE As Date
Truckcode = txtTruckCode.Te xt
TruckNo = txtTruckNo.Text
TruckMake = txtTruckMake.Te xt
TruckRegDate = txtmTruckRegDat e.Text
TruckOption = txtTruckOption. Text
TruckDriver = txtTruckDriver. Text
TruckTons = txtTruckTons.Te xt
TruckSS = txtmTruckSS.Tex t
TruckSE = txtmTruckSE.Tex t
Me.TrucksTableA dapter.Insert(T ruckcode, TruckNo, TruckMake, TruckRegDate, TruckOption, TruckDriver, TruckTons, TruckSS, TruckSE)
Me.TrucksTableA dapter.Update(A ddTrucks.Trucks )
MsgBox("Complet e")
End Sub
Private Sub btnSave_Click(B yVal sender As System.Object, ByVal e As System.EventArg s) Handles btnSave.Click
Try
InsertData()
Catch ex As Exception
MsgBox(ex)
End Try
End Sub
Thank you
The database is sql 2005 express
thease textbox are binded with a bindingsource
it does not give me a error but it want insert the data to the database
can anyone help me with this??
Private Sub InsertData()
Dim Truckcode As Integer
Dim TruckNo As String
Dim TruckMake As String
Dim TruckRegDate As Date
Dim TruckOption As String
Dim TruckDriver As String
Dim TruckTons As Integer
Dim TruckSS As Date
Dim TruckSE As Date
Truckcode = txtTruckCode.Te xt
TruckNo = txtTruckNo.Text
TruckMake = txtTruckMake.Te xt
TruckRegDate = txtmTruckRegDat e.Text
TruckOption = txtTruckOption. Text
TruckDriver = txtTruckDriver. Text
TruckTons = txtTruckTons.Te xt
TruckSS = txtmTruckSS.Tex t
TruckSE = txtmTruckSE.Tex t
Me.TrucksTableA dapter.Insert(T ruckcode, TruckNo, TruckMake, TruckRegDate, TruckOption, TruckDriver, TruckTons, TruckSS, TruckSE)
Me.TrucksTableA dapter.Update(A ddTrucks.Trucks )
MsgBox("Complet e")
End Sub
Private Sub btnSave_Click(B yVal sender As System.Object, ByVal e As System.EventArg s) Handles btnSave.Click
Try
InsertData()
Catch ex As Exception
MsgBox(ex)
End Try
End Sub
Thank you
Comment