Private Sub tool_save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tool_save.Click 'On Error Resume Next Dim cmd As New SqlCommand cmd.Connection = _OpenConnect() cmd.CommandType = CommandType.Text cmd.CommandText = "INSERT INTO Customer_Info (Cust_Name,Address,City,Phone,Cust_Invoice) Values (@Cust_Name,@Address,@City,@Phone,@Cust_Invoice)" With cmd.Parameters .AddWithValue("@Cust_Name", txt_custName.Text) .AddWithValue("@Address", txt_address.Text) .AddWithValue("@City", txt_city.Text) .AddWithValue("@Phone", txt_phone.Text) .AddWithValue("@Cust_Invoice", txt_cust_Invoice.Text) End With cmd.ExecuteNonQuery() txt_custName.Focus() Message("Inserted Successfully") ClearAll(Me) Cust_Info.AttachData() main.GetBasicInfo() End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)