kuroi

MrMALJ, pelo q você disse, acho q deve ser o F3 do seu notebook q esta com problema mesmo. como comecou o problema?? depois de formatado, o windows inicia a primeira vez e já ta la a janela de busca?? não acho q seja problema com o windows, a não ser q fosse algum virus q tenha baixado. mas como você disse q formatou e continuou assim, acho q deve ser problema com o equipamento mesmo.

flecha, sentimos todos sua falta. da pra fazer com LEFT JOIN, mas eu gosto mais de fazer assim: Select * From tabela_dia_dia Where RG In (Select RG From tabela_acumula) isso traz todos os rgs em comum entre as duas tabelas. acho q o melhor seria selecionar só os q não estao na outra tabela: Select * From tabela_dia_dia Where RG Not In (Select RG From tabela_acumula)

são os moderadores q fecham os topicos, mas eu acho melhor deixar sempre aberto, sempre pode aparecer alguma coisa a ser acresentada. mas o moderador da secao é o raphael_suporte, se ele achar melhor, ele vai fechando os topicos a medida q forem se resolvendo, não se preocupe com isso.

hum, o erro anterior então devia ser porque o nome do campo estava errado. a sua tabela tinha mesmo um campo chamado "cliente"?? quanto ao erro de agora, essa mensagem significa q você ta digitando nomes de campos q não existem. essa linha: Set RS = con.Execute("select * from login where codigo_usuario = ao_codigo_do_usuario_logado") do jeito q esta ele espera q codigo_usuario e ao_codigo_do_usuario_logado sejam dois campos q existem na tabela login. se um desses dois for na verdade uma variavel do visual basic, você tem q chama-la e concatenar dentro da string. exemplo: Set RS = con.Execute("select * from login where codigo_usuario = " & ao_codigo_do_usuario_logado) ou se o campo codigo_usuario for do tipo texto, então você tem q passar entre aspa simples: Set RS = con.Execute("select * from login where codigo_usuario = '" & ao_codigo_do_usuario_logado & "'")

anabon, se o campo "cliente" esta como Sim/Não no access, deve ser só isso, tente ai: If RS!cliente Then variantes: If RS("cliente") Then If RS("cliente").Value Then If RS.Fields("cliente") Then If RS.Fields("cliente").Value Then[/code]

poste o texto exato da mensagem q ele mostra.

palavra composta, você quer dizer, se tiver espaco no meio?? vai funcionar sim. então você tem q achar a posicao pra colocar no .SelStart. e então no .SelLenght, você passa o Len() da palavra q ele tiver digitado. bom, se o codigo do txt já foi carregado na memoria (dentro do textbox), o mais logico seria fazer a busca dentro do textbox e não do arquivo texto. bom, seria mais logico, mas acontece q existe um gde problema q se chama "strings no vb". as operacoes com strings no visual basic 6 são muito lentas, basicamente porque todos os parametros para as funcoes de strings (InStr(), Len(), Mid(), etc) são passados por ByVal. o q significa q a string toda é copiada num novo local de memoria. e se o conteudo do seu arquivo texto for grande, essas buscas podem ficar muito lentas. quando eu precisei fazer esse codigo de busca q você esta fazendo, eu usei uma funcao em c++ q eu chamava a partir de uma dll. como em c, as strings são passadas por ByRef (ele acessa o parametro direto no endereco da variavel original, sem ter q copia-la totalmente para a memoria -- caso o texto esteja em unicode ai já não tenho certeza de como funciona), a busca ficava muito mais rapida (eu cheguei a testar com txts de 4 megas e não ocorria nenhum delay ou travamento). mas resumindo, pra localizar o texto direto no textbox, você usaria simplesmente um InStr() no textbox todo e pronto, não precisaria ler no arquivo. agora caso isso fique muito lento, ler a partir do txt como você já fez (q vai usando InStr() em strings menores), pode ficar muito mais rapido quando a palavra estiver no inicio do arquivo, mas imagino q demore ainda mais quando a palavra estiver mais pro final (ou quando ela não existir). mas se quiser adaptar o codigo do seu txt, só o q você tem q fazer é, cada vez q não encontrar a palavra numa linha, você soma o Len() dessa linha numa variavel q vai guardar a posicao. e caso você encontre a palavra na linha, você soma a posicao onde ela estava na linha nessa variavel e pronto, você encontrou a posicao onde ela deve estar dentro do textbox. veja se entendeu. em resumo é simples fazer isso, o problema é q vai ficar muito lento com textos muito grandes.

tente adaptar esse codigo pra sintaxe do asp e veja se não funciona: http://scriptbrasil.com.br/forum/index.php?showtopic=108910

MessageBox?? você ta usando vb.net certo?? se for o caso, me avise q movo pro forum correto. agora caso seja visual basic 6, e você queira usar a funcao MsgBox(), então as imagens q aparecem no msgbox são padronizadas. você passa isso no segundo parametro (vbOKOnly, vbYesNo, etc). se quiser usar uma imagem diferente, o modo mais facil deve ser você criar um novo formulario com a imagem q você quer e chama-lo como modal no lugar da msgbox. imagino q o MessageBox() do vb.net deva funcionar mais ou menos do mesmo modo.

na verdade, a sala de editores esta dentro de "WEB", ou seja, seria para editores web (dreamweaver, frontpage, etc). vou mover seu tópico de volta pra onde você postou a primeira vez.

INTUITO_BINÁRIO, poste so uma vez cada tópico, os outros foram apagados. deixei o tópico q foi postado em php. se por um acaso não estiver usando php, avise q movemos o tópico.

só complementando, no meu entender, logicamente o crystal deve ler os dados muito mais rapido a partir da memoria do q se tivesse q ler direto do banco. ou seja, dentro do crystal a operacao sera muito mais otimizada se você ler a partir do dataset. a perda de performance aconteceria no conjunto das operacoes, ao ler os dados no banco pela aplicacao e depois copiar pro crystal. sendo assim, caso você já tenha o dataset carregado por algum motivo qualquer, ou seja, se independente do crystal reports, você já tenha a selecao na memoria, então seria interessante passa-la para o crystal do q fazer o crystal selecionar novamente a mesma coisa.

hum, mas uma vez q o subreport é adicionado num relatorio, fica vinculado com o .rpt principal. você alterando um subreport em um dos .rpt não vai alterar no outro, não vai atualizar todos os relatorios automaticamente como você queria.

pode ser com textbox sim. basicamente, você vai ter q achar a posicao dessa string dentro do textbox. e ai você tem q encontrar o vbCrLf anterior e o proximo em relacao a posicao da palavra. ai você usa as propriedades .SelStart e .SelLength pra selecionar a linha toda. exemplo: 'Seleciona 20 caracteres a partir da posicao 10 no Text1. Text1.SelStart = 10 Text1.SelLength = 20[/code] mas o texto exato q esta no arquivo vai estar carregado na textbox, seria isso?? você quer selecionar só a palavra ou a linha toda??

incrivelmente, já apareceu alguém antes querendo fazer exatamente a mesma coisa q vc: http://scriptbrasil.com.br/forum/index.php?showtopic=159981

matheus, eu tinha esquecido desse tópico aqui. caso ainda esteja precisando, aqui ele ensina como mostra o menu: http://www.codeguru.com/columns/vb/article.php/c6541 e este aqui é um projeto q mostra como mostrar o balaozinho q encontrei por ai há muito tempo atras: Baloon.rar

ate da, mas quem vai ter q fazer a programacao toda (ler o texto e saber onde acaba e comeca cada linha) é você. cada linha é separada pela constante vbCrLf. procurando por ela, você deve conseguir enumerar as linhas, assim você vai saber qual você quer tirar. mas fica muito mais facil se usar ListBox ou ListView.

você pode fazer o If dentro do selection formula. pode ser IIf tb, q deixa o codigo menor, tente assim: FrmVerRel.CrExibe.SelectionFormula = "{EDGCLI.CLIANOREF} = " & FrmPrincipal.CmbAref.Text & " And IIf('" & TxtMat.Text & "' = '', True, {EDGCLI.CLIMAT} = '" & TxtMat.Text & "')" uma explicacao sobre a funcao IIf(): http://office.microsoft.com/pt-br/access-h...A001228853.aspx

climat é um campo texto?? se for tem q ta entre aspa: FrmVerRel.CrExibe.SelectionFormula = "{EDGCLI.CLIANOREF} = " & FrmPrincipal.CmbAref.Text & " AND {EDGCLI.CLIMAT} = '" & TxtMat.Text & "'" mas fora isso, se não quiser passar valor quando estiver em branco, é so fazer um if: Dim s As String s = "{EDGCLI.CLIANOREF} = " & FrmPrincipal.CmbAref.Text If TxtMat.Text <> "" Then s = s & " AND {EDGCLI.CLIMAT} = '" & TxtMat.Text & "'" End If FrmVerRel.CrExibe.SelectionFormula = s[/code]

isso eu sei, mas o q tem dentro do metodo aluno.boletim()?? (qual o codigo q ele executa??) EDITADO: se por acaso for primeiro o codigo do primeiro post, apague a linha dr.Read() e veja se não funciona.

mas você não tem a tag fornecedor_dados no seu xml. não é fornecedor q você quer??

a funcao recupera q você esta usando é ainda aquela q ta no primeiro post?? se você for ver, ela espera quatro parametros, mas você ta passando muito mais do q isso. e olhando aqui, vi q você ta fechando parenteses na hora errada, em 'obj_valortotal4'. e esse codigo tb não vai impedir a postagem do formulario. você vai ter q por um return false; depois de chamar o recupera, senao ele deve postar a pagina direto (e você nem vai ver o resultado do document.write();, caso seja essa a intencao).

o certo seria document.getElementById('obj_empresa')

"EV0G8FHT3B" não é inteiro, é string. vai ter q usar aspa sim. agora, qual o problema exatamente?? ele esta escrevendo "registro não encontrado", ou esta mostrando o erro ADODB.Field erro '80020009'?? se ele estiver dando erro, aponte pra nos em q linha exatamente esta acontecendo.

se é servidor apache, você deve conseguir restringir o acesso usando um arquivo .htaccess sem precisar alterar o codigo php: http://www.devin.com.br/htaccess/