Code:
Imports System.Data.SqlClient
Namespace Accounts
Public Class NewAccount
Dim cmd As New SqlCommand
Dim c As New DatabaseConnection.DataBaseConnaction.ConnectionClass
Function CreateAccount(ByVal BankID As String, ByVal Account_TypeID As String, ByVal First_Name As String, ByVal Last_Name As String, ByVal Date_Birth As DateTime, ByVal Citizenship As String, ByVal Civil_Id As Integer, ByVal address As String, ByVal Father_Name As String, ByVal Profession As String, ByVal Description As String, ByVal Date_creation As DateTime, ByVal phoneNo As String, ByVal emailid As String, ByVal ext As String, ByVal CreatedBy As String, ByVal UserID As String)
Try
cmd.Parameters.Add("@BankID", SqlDbType.VarChar)
cmd.Parameters.Item("@BankID").Value = BankID
cmd.Parameters.Add("@Account_TypeID", SqlDbType.VarChar)
cmd.Parameters.Item("@Account_TypeID").Value = Account_TypeID
cmd.Parameters.Add("@First_Name", SqlDbType.VarChar)
cmd.Parameters.Item("@First_Name").Value = First_Name
cmd.Parameters.Add("@Last_Name", SqlDbType.VarChar)
cmd.Parameters.Item("@Last_Name").Value = Last_Name
cmd.Parameters.Add("@Date_Birth", SqlDbType.DateTime)
cmd.Parameters.Item("@Date_Birth").Value = Date_Birth
cmd.Parameters.Add("@Citizenship", SqlDbType.VarChar)
cmd.Parameters.Item("@Citizenship").Value = Citizenship
cmd.Parameters.Add("@Civil_Id", SqlDbType.Int)
cmd.Parameters.Item("@Civil_Id").Value = Civil_Id
cmd.Parameters.Add("@Address", SqlDbType.VarChar)
cmd.Parameters.Item("@Address").Value = address
cmd.Parameters.Add("@Father_Name", SqlDbType.VarChar)
cmd.Parameters.Item("@Father_Name").Value = Father_Name
cmd.Parameters.Add("@Profession", SqlDbType.VarChar)
cmd.Parameters.Item("@Profession").Value = Profession
cmd.Parameters.Add("@phoneNo", SqlDbType.VarChar)
cmd.Parameters.Item("@phoneNo").Value = phoneNo
cmd.Parameters.Add("@emailid", SqlDbType.VarChar)
cmd.Parameters.Item("@emailid").Value = emailid
cmd.Parameters.Add("@Ext", SqlDbType.VarChar)
cmd.Parameters.Item("@Ext").Value = ext
cmd.Parameters.Add("@Description", SqlDbType.VarChar)
cmd.Parameters.Item("@Description").Value = Description
cmd.Parameters.Add("@Date_creation", SqlDbType.DateTime)
cmd.Parameters.Item("@Date_creation").Value = Date.Now
cmd.Parameters.Add("@CreatedBy", SqlDbType.VarChar)
cmd.Parameters.Item("@CreatedBy").Value = CreatedBy
cmd.Parameters.Add("@UserID", SqlDbType.VarChar)
cmd.Parameters.Item("@UserID").Value = UserID
cmd.CommandType = CommandType.StoredProcedure
cmd.CommandText = "Execute_Account2"
Dim QueryExecute As New DatabaseConnection.DataBaseConnaction.ConnectionClass
QueryExecute.ExecuteNonquery(cmd)
Return "New Account has been successully added"
Catch ex As Exception
Return "Error"
End Try
End Function
End Class
End Namespace
I am geeting the Error pls any one sole this
Comment