How To implement the below mentioned Class using WCF Service. I have tried, but not able to complete with constructor method.
Please advice me... Thanks
Public Class DBLayer
Private SQLConnection As SqlConnection
Private SQLCommand As SqlCommand
Public Exception As Exception
Public Sub New(connectionString As String, Optional commandTimeOut As Integer = 30)
SQLConnection = New SqlConnection(connectionString)
SQLCommand = SQLConnection.CreateCommand()
SQLCommand.Connection.Open()
SQLCommand.CommandTimeout = commandTimeOut
End Sub
Public Sub AddParameter(ByVal paramName As String, ByVal paramValue As Object, Optional type As System.Data.SqlDbType = SqlDbType.VarChar)
Dim parameter As SqlParameter = SQLCommand.CreateParameter()
parameter.ParameterName = paramName
parameter.SqlDbType = type
parameter.Value = paramValue
SQLCommand.Parameters.Add(parameter)
End Sub
Public Function DataTable(ByVal strCommandText As String, typCommandType As CommandType) As DataTable
Dim DT As New DataTable
Dim ADPTR As SqlDataAdapter
With SQLCommand
.CommandText = strCommandText
.CommandType = typCommandType
End With
Do
Exception = Nothing
Try
ADPTR = New SqlDataAdapter(SQLCommand)
ADPTR.Fill(DT)
Return DT
Catch ex As Exception
Exception = ex
If ex.Message.ToLower.Contains("timeout") Then
Console.WriteLine(String.Format("SQL Timeout {0:hh:mm:ss}. Trying again...", Date.Now))
Else
Throw ex
End If
End Try
Loop
Return Nothing
End Function
Public Function ExecuteNonQuery(ByVal strCommandText As String, typCommandType As
CommandType) As Exception
Exception = Nothing
Try
With SQLCommand
.CommandText = strCommandText
.CommandType = typCommandType
If .Connection.State <> ConnectionState.Open Then .Connection.Open()
.ExecuteNonQuery()
End With
Catch ex As Exception
Exception = ex
End Try
Return Exception
End Function
End Class
Sujeesh ckPosted Nov 29, 2018, 11:38 AM
Imran MunirPosted Nov 28, 2018, 10:20 AM