| Throw New NotSupportedException(ex.Message)
Finally
sqlConnection.Close()
End Try
Return Trim(rowsAffected)
End Function
Function GetBitByStr(ByVal FieldName As String, ByVal TableName As String, ByVal ParaName As String, ByVal ParaValue As String) As Boolean
Dim sqlConnection As New SqlClient.SqlConnection(GetConn)
Dim queryString As String = "select Top 1 " & FieldName & " from " & TableName & " where " & ParaName & "=''''" & ParaValue & "''''"
Dim sqlCommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(queryString, sqlConnection)
Dim rowsAffected As Boolean = False
sqlConnection.Open()
Try
rowsAffected = IIf(IsDBNull(sqlCommand.Execu 上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >> | 
