Imports System.Data.SqlClientImports System.Web.ConfigurationPartial Class Users_Sales_Form Inherits System.Web.UI.Page Protected Sub SubmitButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles SubmitButton.Click Dim objConnection As SqlConnection Dim objDataCommand As SqlCommand Dim sSQL As String Dim ConnectionString As String Dim empID As Integer Dim Tdte As String 'Dim Tdate As Date Dim transID, TransLid As String 'Dim TLdate As Date Dim TLdte As String Dim proID, quan As String empID = empidtxt.Text Tdte = transdttxt.Text 'Tdate = Convert.ToDateTime(transdttxt.Text.ToString) 'Tdate = transdttxt.Text = Date.Today() TransLid = tranlidtxt.Text 'TLdate = Convert.ToDateTime(transdttxt.Text.ToString) 'TLdate = transdttxt.Text = Date.Today() TLdte = transdttxt.Text proID = proidtxt.Text quan = quantitytxt.Text transID = transidtxt.Text ConnectionString = WebConfigurationManager.ConnectionStrings("UCSConnectionString").ConnectionString objConnection = New SqlConnection(ConnectionString) objConnection.Open() sSQL = "Insert into Sales (Emp_id, T_dt)" & _ "values('" & empID & " ', ' " & Tdte & " ')" objDataCommand = New SqlCommand(sSQL, objConnection) objDataCommand.ExecuteNonQuery() sSQL = "Insert into Transaction_Line (TransL_id,Trans_id, TL_dt, Pro_id, Quantity)" & _ "values('" & TransLid & "', '" & TLdte & "', '" & proID & "', '" & quan & "', '" & transID & "')" objDataCommand = New SqlCommand(sSQL, objConnection) objDataCommand.ExecuteNonQuery() objConnection.Close() End SubEnd Class
Attachment: error1.zip