rodrigojacinto

Boa noite uma ajudinha por favor, tenho uma tabela simples com id | titulo | id_usuarios_utilizados 1 | titulo 1 | 4,3 2 | titulo 2 | 4,1 3 | titulo 3 | 2 4 | titulo 4 | 2 preciso que quando fizesse a consuta sql/php digamos se eu estiver logado com o id_usuario 3 ao efetuar essa consulta retornasse somente os registro 2, 3, 4 pois o registro de id 1 já foi utilizado por esse id_usuario 3. essa tabela id_usuarios_utilizados é alimentada com o id do usuario que esta logado cada vez que o usuario clica no titulo e separa por virgula. tentei o seguinte <?php include ('conexao.php'); $MySQLi = new MySQLi($MySQL['servidor'], $MySQL['usuario'], $MySQL['senha'], $MySQL['banco']); if (mysqli_connect_errno()) trigger_error(mysqli_connect_error(), E_USER_ERROR); $sql = "select * from tb_noticias"; $resultado = $MySQLi->query($sql) OR trigger_error($MySQLi->error, E_USER_ERROR); while ($noticia = $resultado->fetch_object()) { //$id_membro nesse caso seria eu logado com o id 3 if($id_membro != array ($noticia->id_usuarios_utilizados)){ echo "imprimi".$noticia->titulo."</br>"; }else{ } } // Libera o resultado para liberar memória $resultado->free(); ?>

alguém aii rsrsrs...

Boa tarde.. Amigos, utilizo um codigo simples para mostrar na RichTextBox1 um texto gerado em um arquivo .txt, porem notem na imagem que o arquivo.txt esta com " ' " no final de cada linha e esta alinhadinhas certinho, porem isso não mantem quando é mostrado na RichTextBox1, e tambem quando tento imprimir sai igual ta na RichTextBox1 sem essa formatação correta. codigo para mostrar no RichTextBox1 Sub LerArquivoPedido() RichTextBox1.Text = "" If File.Exists(arquivo) Then Dim strm As New StreamReader(arquivo) RichTextBox1.Text = strm.ReadToEnd strm.Close() RichTextBox1.Text += vbCrLf Else RichTextBox1.Text = "Arquivo inexistente!!!" End If End Sub

Bom dia Nao estou conseguindo proceguir com o codigo abaixo, a intenção é se existir algum registro na coluna STATUS seja igual a "Aberto" e executa a sub TemRegistro, caso não tenha nenhum registro na coluna STATUS = "Aberto" então ele executa a sub NaoTemREgistro, porem QUANTO tem regitro ele executa certo, mas quando não TEM registro ai ele não faz nada.. não executa a sub NaoTemREgistro... obrigado Sub verificar() Dim conFB As String conFB = "User=sysdba;Password=masterkey;Database=C:\TESTE\BANCOTESTE.FDB;DataSource=localhost;Port=3050;Dialect=3;" Dim connection As FbConnection = New FbConnection(conFB) connection.Open() Dim command As FbCommand = New FbCommand("SELECT * FROM PRODUTOS WHERE STATUS = '" & "Aberto" & "' ", connection) Dim dr As FbDataReader = command.ExecuteReader() While (dr.Read()) If dr.HasRows Then TemRegistro () Else 'caso nao tenha registro deveria executar essa sub mas nao faz nada... NaoTemREgistro () End If End While End Sub