Line 47: nsql = "SELECT STUFF.* FROM STUFF WHERE (((STUFF.IDSTUFF)=" & id & "));"
Line 48: Dim titulo As String = functions.Get_Valor_Campo(nsql, "TITULO")
Line 49: Dim data_criacao As Date = functions.Get_Valor_Campo(nsql, "DATA_CRIACAO")
Line 50: Dim tiponoticia As String = functions.Get_Valor_Campo(nsql, "CATEGORIA_PRINCIPAL")
Line 51: nsql = "SELECT USERS.* FROM USERS WHERE (((USERS.ID)=" & functions.Get_Valor_Campo(nsql, "IDAUTOR") & "));"
|