$sql = "SELECT * FROM topicos
WHERE idcategoria = $idcategoria
AND pubdate BETWEEN NOW() - INTERVAL $intervalo1_horas_ou_minutos $tipo_intervalo1_horas_mnutos AND
NOW() - $intervalo2_horas_ou_minutos ORDER BY pubdate DESC LIMIT 1";
Preciso que na minha pagina principal (index) mostre este registro por 10minutos.. passando de 10 minutos mostra o resultado do proximo select (categoria)..
$usuarios= "SELECT * FROM usuarios";
$query= mysqli_query($conexao, $usuarios) or die ("Usuário não encontrado");
$usuario = mysqli_fetch_array($query);
Quero pegar apenas o campo 'nome' da tabela 'usuarios' e colocar todos os resultados da seguinte forma:
Tenho uma function que precisa receber 02 argumentos.
Ela funciona se eu aplicar num select qualquer. Mas se eu aplicar num select dinâmico, ocorre erro.
Veja trecho do meu select.
...
SET @sql = @sql +', dbo.retornaIco_ItemBloq((SELECT COUNT(*) FROM dbo.tab AS TT2 WHERE TT2.codCategTreina = CTT.id),'+@title+') AS ''resp'''
...
No caso, o primeiro argumento da function dbo.retornaIco_ItemBloq é um SELECT COUNT.
O segundo argumento é uma variável (que está devidamente declarada e definida).
O erro ocorre porque ao executar (chamando EXEC(@sql) ), o SQL entende que o segundo argumento é uma coluna da consulta principal, pois existe uma vírgula antes da variável @title (que é o segundo argumento da function).
Repito. Se eu aplicar essa function num select normal, funciona normalmente. Porém, preciso que funcione num SQL dinâmico porque é esse é o padrão que estou adotando para o sistema todo.
A function dbo.retornaIco_ItemBloq faz o seguinte:
1) Recebe o valor do COUNT e da variável @title
2) Se o COUNT for maior que Zero, cria uma tag HTML (uma SPAN), define sua title com o valor da variável @title e passa para uma variável
3) Retorna o HTML que será exibido no resultado da consulta principal
É super simples.
Bom dia pessoal, convertir essa função do C# para vba ele funciona perfeitamento no excel e access porem estou tentendo usar ela no vb.net editor VISUAL STUDIO 2013, aparece o erro conforme a imagem enexo, alguem consegue corrigir esse erro; Function crc_ccitt_ffff(strParam As String) As String Const CRC_POLY_CCITT As Long = &H1021& Const CRC_START_CCITT_FFFF As Long = &HFFFF& Dim crc As Long, b() As Byte, c As Long, i As Long, j As Long Dim crc_tabccitt(0 To 255) As Long For i = 0 To 255 crc = 0 c = i * 256 For j = 0 To 7 If (crc Xor c) And 32768 Then crc = (crc * 2) Xor CRC_POLY_CCITT Else crc = crc * 2 End If c = c * 2 Next j crc_tabccitt(i) = crc Next i b = strParam crc = CRC_START_CCITT_FFFF For i = 0 To UBound(b) Step 2 crc = (crc * 256) Xor crc_tabccitt(((crc \ 256) Xor b(i)) And 255) crc = ((crc \ 65536) * 65536) Xor crc Next i crc_ccitt_ffff = Hex(crc) End Function