How to show validation using Stored procedure that if we typed invalid account no it should show validation message as invalid account no through sql server.And where to give code in front end (vb code)
VB code Imports SMARTCORE_BL Imports SMARTCORE_DA Imports SMARTCORE_Common.CommonClass Imports SMARTCORE_DAL Imports SMARTCORE_BO Imports SMARTCORE_UI Public Class Learnnew Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Try If Session("UserID") = "" Then Response.Redirect("~/Smartlogin.aspx") Exit Sub End If If Not IsPostBack Then Dim M_Comm As New CommonBL End If Catch ex As Exception End Try End Sub Protected Sub TxtAcc_TextChanged(sender As Object, e As EventArgs) Handles TxtAcc.TextChanged Try Dim M_CommonBL As New CommonBL Dim Dt_AcDtls As New DataTable Dt_AcDtls = M_CommonBL.samplelearn(TxtAcc.Text) TxtName.Text = Dt_AcDtls.Rows(0)("Cust_Name").ToString() TxtAddress.Text = Dt_AcDtls.Rows(0)("Add_Address1").ToString() Catch ex As Exception ShowAlertMessage(ex.Message) End Try End Sub Public Shared Sub ShowAlertMessage(ByVal [error] As String) Try Dim page As Page = TryCast(HttpContext.Current.Handler, Page) If page IsNot Nothing Then [error] = [error].Replace("'", "`") ScriptManager.RegisterStartupScript(page, page.[GetType](), "err_msg", "alert('" & [error] & "');", True) End If Catch ex As Exception End Try End Sub End Class Class----Common BL ------------------------ Imports SMARTCORE_Common Imports SMARTCORE_DA Imports SMARTCORE_BO Public Class CommonBL Public Function samplelearn(ByVal Acc_No As String) As DataTable Try Dim M_DataTable As New DataTable Dim M_CommonDA As New CommonDA M_DataTable = M_CommonDA.samplelearn(Acc_No) Return M_DataTable Catch ex As Exception Return Nothing End Try End Function End class Class---- Common DA ------------------------------- Imports SMARTCORE_DAL Imports SMARTCORE_Common Imports SMARTCORE_BO Imports SMARTCORE_DA Imports System.IO Imports System.Data.OleDb Imports System.Configuration Imports Microsoft.SqlServer Imports System.Data.Sql Imports System.Data.SqlClient Imports SMARTCORE_BL Public Class CommonDA Public Function samplelearn(ByVal Acc_No As String) As DataTable Try Dim M_DataTable As New DataTable Dim DtDeno As New DataTable Dim M_Sql As String Dim ClsComm As New CommonClass Dim con As New SqlConnection con = M_DBConn.GetConnection() Dim cmd As SqlCommand = New SqlCommand("Exec learnsample1 @Acc_No", con) Dim par1 As SqlParameter = New SqlParameter("@Acc_No", SqlDbType.VarChar, 20) par1.Value = Acc_No cmd.Parameters.Add(par1) Dim sdaa As New SqlDataAdapter(cmd) Dim Ds1 As New DataSet sdaa.Fill(Ds1) If Ds1.Tables.Count > 0 Then M_DataTable = Ds1.Tables(0) End If Return M_DataTable Catch ex As Exception End Try End Function End Class Stored Procedure ------------------ ALTER PROCEDURE [dbo].[validation_sp] (@Acc_No varchar(20)) AS BEGIN IF NOT EXISTS (SELECT * FROM AccMain_M_Tbl WHERE Acc_No = @Acc_No) BEGIN SELECT 'Invalid Account No' AS ErrorMsg RETURN END SELECT Cust_Name, Add_Address1 FROM AccMain_M_Tbl a INNER JOIN Cust_Master_M_Tbl b ON a.ACC_CustID = b.Cust_Id INNER JOIN Cust_Address_M_Tbl c ON b.Cust_Id =c.Cust_Id WHERE Acc_No = @Acc_No END
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)