Imports System.Data.SqlClient Imports System.Web.Configuration Partial 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 Sub End Class
|