kuroi

bom, na verdade eu não recomendaria q você copiasse a discografia dos beatles e sim de alguma banda boa. brincadera, mas vo mover pra Outros Assuntos q o seu tópico não tem nd a ver com Visual Basic.

acho q esse ip ou a porta q você passou no smtp deve ser invalido. se você deixou o mesmo ip do codigo q você baixou de exemplo, talvez não va funcionar, talvez eles tenham posto um ip de exemplo, mas você teria q por um ip existente de um servidor smtp.

o q não ficou claro é qual é o problema q você ta tendo nesse codigo. o q você quer q ta dando errado?? olhando aqui, só o q achei estranho é q na segunda pagina você faz um select sem where, ou seja, ta pegando todos os usuarios do banco. você não devia filtrar apenas pelo q foi digitado?? mas explica direito o problema, senao não da pra gente saber. e quando for postar sobre ASP, poste na sala de ASP e não no de Visual Basic.

logico q sim, a dll do CDO.Mensagem, seja la qual for ela, deve estar salva e registrada no seu pc. onde foi q você baixou esse codigo?? la eles não falavam sobre a biblioteca?? sei q o CDO é uma dll q manda mensagem e é usada no ASP. mas não sei se ela vem no windows (acho q não), mas tb acho q o certo é CDO.Message e não CDO.Mensagem.

ponha Abrir Com de novo e selecione a propriedade Microsoft ® Windows Based Script Host e cheque a caixinha pra sempre abrir com ele. isso no windows xp.

ele não diz qual a linha do erro?? mas o q é esse "smarthost" jogado no meio do codigo. ele não é instrucao nenhuma, por q teria uma linha apenas com uma string?? outra coisa é q na linha q ele atribui o smtp, o ip deveria estar entre aspa, não??

cara tenta explicar melhor quando for postar. se eu entendi, você quer multiplicar o um valor inteiro por um valor de tempo é isso?? tipo assim: 1500 * 1:00 = 1500:00 2 * 1:30 = 3:00 se for isso, então você tem q transformar tempo em valor. tipo assim: hora = TextBox1.Text * (Hour(CDate(TextBox2.Text)) + (Minute(CDate(TextBox2.Text)) / 60)) ai você vai ter o numero de horas em valor numerico, tipo 1:30 = 1,5 horas ai pra transformar em formato de horas, você pode usar essa funcao aqui: http://scriptbrasil.com.br/forum/index.php?showtopic=108910 ai no caso pra transformar em segundos você multiplica por 3600.

cara e o q isso tem a ve com vba?? bom, pra abrir a janelinha é com javascript entoa vo mover pra la. se os moderadores de la acharem melhor ai eles movem pra php.

no tutorial, veja a ultima parte com o subtitulo "Salvando imagens em um banco de dados Access", é esse q eu disse q ensina a gravar a propria imagem (e não o caminho) no banco. e não é tão dificil de usar não, veja q no final ele disponibiliza o projeto com o codigo pra você ver. sim, ue. é so gravar o caminho e pronto ue. num campo texto. se sua dificuldade é pra pegar o caminho ai depende do q você quer fazer. mas pelo q parece você ta usando CommonDialog, certo?? então é so pegar pelo proprio CommonDialog, assim como você faz pra mostrar no formulario (q você disse q sabe fazer).

cara o erro de duplicidade acredito q é erro de programacao mesmo, não tem nd a ver com o pc ou com a biblioteca. talvez ainda erro no banco de dados, é bom você dar uma olhada nisso. o programa ta em rede?? vai ver q duas pessoas tão tentando salvar o mesmo codigo ao mesmo tempo, por isso o erro. pra atualizar é como o graymalkin falou, apesar de q seu programa deve funcionar perfeitamente na 2.0.

exatamente como todos os outros bancos, só muda a string de conexao, q você pode ver aqui: http://www.connectionstrings.com exatamente tb como todos os outros bancos, só vai depender se você estiver usando DAO, ADO, RecordSets ou controles vinculados. hã??

cara, você leu o meu post de cima?? em vez de TextBox22.SetFocus ponha Cancel = True.

acho q se você configurar no .rpt especifico (direto no Crystal) pra ele usar esse formato, na hora de imprimir mesmo com o CRViewer, ele deve imprimir nesse formato, não??

como comecei a usar Visual Basic na epoca do Windows 98, sempre usei o Microsoft ActiveX Data Objects 2.0 e por isso continuo usando ela ainda hj no xp. sei la, sei q tem ate a 2.8 mas nunca vi motivos pra mudar, a 2.0 sempre funcionou certinho pra mim. nunca tive problemas nenhum com a 2.0, sempre foi compativel com tudo, sempre deu certo td q eu precisei fazer. mas acho q mesmo sendo biblioteca do xp, o 2.8 deve funcionar no 98 sim se você adiciona-la no seu instalador e mandar registrar. só é bom faze o teste antes. quanto a biblioteca do Trim(), realmente é estranho, ela sempre existiu no 98. mas ele da q mensagem de erro quando você tenta usa-la?? bom, as dicas q eu vejo aqui no forum pra esse tipo de coisa é, em vez de usar Trim(), usar VBA.Trim(), ou seja, você teria q mudar o codigo do seu programa toda vez q aparecer o Trim(). mas isso deve ser problema do seu Visual Basic instalado no 98. deve ter dado algum problema na hora da instalacao. o q pode ser tb é conflito com alguma outra biblioteca no seu programa, ou com o seu proprio codigo, tipo se você ta criando alguma outra variavel ou sub com o nome de Trim. mas se fosse esse o caso, ele daria erro no Trim() tb no XP.

nesse tutorial o macoratti ensina a gravar imagens no banco: http://www.macoratti.net/img_bd.htm não uso datareport, mas, você criando o campo objeto OLE (e salvar a foto la dentro e não o caminho), acredito q é se você adicionar o campo no relatorio normalmente.

movido pra vba. lembrando tb q em vba o evento validate se chama BeforeUpdate e funciona igualzinho o código q eu passei.

na verdade é bem simples, ele simplesmente adiciona mais uma condicao na string do filtro. se você não sabe usar a funcao Iif(), a explicacao é a seguinte: o primeiro parâmetro é uma condicao q deve retornar verdadeiro ou falso. o segundo é um valor que você quer q seja retornado caso a condicao passado no primero parametro for verdadeira. o terceiro é o valor q você quer caso a condicao seja falsa. no exemplo, se o filtro já tiver preenchido com alguma coisa, por exemplo Campo1 = 'Valor1' ai eu quero adicionar mais uma condicao Campo2 = 'Valor2'. ai eu testo se já não tem nd. se tiver eu tenho q por um And no meio. veja se entendeu ai qualquer coisa pergunte.

cara tem um jeito bem mais facil tipo assim: Dim strFiltro As String strFiltro = "" If Combo1.Text <> "TODOS" Then strFiltro = strFiltro & IIf(strFiltro <> "", " And ", "") & "Campo1 Like '" & Combo1.Text & "'" End If If Combo2.Text <> "TODOS" Then strFiltro = strFiltro & IIf(strFiltro <> "", " And ", "") & "Campo2 Like '" & Combo2.Text & "'" End If ... ... If ComboN.Text <> "TODOS" Then strFiltro = strFiltro & IIf(strFiltro <> "", " And ", "") & "CampoN Like '" & ComboN.Text & "'" End If rs_relatorio.Filter = strFiltro[/code] veja se você entende ai, qualquer coisa poste

essa q eu passei agora só funciona em access. a q eu passei no outro tópico é pra sql, pra mysql não sei, se a do denis não funcionar tenta uma das duas q eu passei. no postgre tb alguma dessas deve funcionar.

shelter, posso fazer uma pergunta?? você foi e postou esse tópico aqui na sala de SQL: http://scriptbrasil.com.br/forum/index.php?showtopic=110807 depois você veio e postou o MESMO tópcio aqui na sala de MYSQL. depois você me posta um erro com a descricao do access (aqui). afinal, qual banco de dados você ta usando?? porque se você posta em sql quem ler o tópico não vai ter duvidas de q é sql. se você posta em mysql tb ninguém vai ter duvidas de q é mysql. agora se é access, ou seja não é nenhum dos dois, por q motivo você postaria nessas duas salas mas não posta na de access?? bom, caso você esteja mesmo usando access, a solucao acredito q seja essa: Select Sum(IIf(tipo = 0, 1, 0)) As efetuadas, Sum(IIf(tipo = 1, 1, 0)) As recebidas From crjj04 então, da proxima vez, poste na sala correta, ou pelo menos ESPECIFIQUE O BANCO QUE você ESTA USANDO, beleza??

como assim não entendi... tava falando pra fazer debug, tipo, na janela de codigos, selecione uma linha e aperte F9 (ela vai ficar vermelha). quando você for rodar o programa (F5) e quando ele chegar nessa linha ele vai parar a execucao e ai você pode checar os valores das variaveis e propriedades atualmente. ai F5 continua a execucao, mas F8 vai executando linha a linha. qual a mensagem do erro?? sera q não é porque o RecordSet ainda ta aberto e você tenta abrir de novo?? tipo, de um Close antes do Open.

o problema deve estar na hora de abrir a conexao. antes de chamar o metodo cn.Open, adicione a linha: cn.CursorLocation = adUseClient senao ele não vai te dar permissao pra exibir os dados no grid.

1. clique com o botao direito no subreport, selecione a opcao Format SubReport e, na aba Common, deixe a opcao Keep Object Together deschecada. se não funcionar, tente fazer o mesmo para a Section em q esta o subreport. 2. realmente, pelo menos nas versoes do crystal q eu trabalhei, ele não suporta um subreport dentro do outro.

UserForm?? então você ta usando VBA?? e em qual software?? ou é Visual Basic mesmo?? o q significa "prosseguir com o registro"?? explica melhor ai. bom, mas se eu entendi direito, no evento Validate do textbox, testa se ele digitou o valor q você quer. se não tiver digitado, sete o parametro Cancel como True. tipo assim: Private Sub Text1_Validate(Cancel As Boolean) If Text1.Text <> "Valor Que Eu Quero" Then Cancel = True End If End Sub[/code]

acho q: 1 - o txtcodpesq está em branco. ou 2 - cod_contato é texto (nesse caso ponha o código entre '')