Public Shared Function FillStates(ByVal strState As String) As DataSet Dim ds As New DataSet Dim da As New iDB2DataAdapter Dim cn As iDB2Connection = CreateConnection() Try If strState.Length <= 0 Then Dim cm As New iDB2Command("SELECT * FROM DEVSUSH.CLSTATES", cn) da.SelectCommand = cm da.Fill(ds) Else Dim cm As New iDB2Command("SELECT * FROM DEVSUSH.CLSTATES Where STCODE='@strState", cn) cm.Parameters.Add("@strState", iDB2DbType.iDB2VarChar).Value = strState da.SelectCommand = cm da.Fill(ds) End If Catch ex As Exception LogError.LogErrorIntoTextFile(ex, "FillStates()") Finally cn.Close() End Try Return ds End Function
The SQL statement text is not valid.
Dim cm As New iDB2Command("SELECT * FROM DEVSUSH.CLSTATES Where STCODE='@strState", cn)
Dim cm As New iDB2Command("SELECT * FROM DEVSUSH.CLSTATES Where STCODE=@strState", cn)
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)