kuroi

posta o codigo do seu progama. e também aponte a linha com erro pra gente saber melhor.

declara como Double

nossa o binh0 tem que arrumar esse pau do forum

pode ver aqui também: http://scriptbrasil.com.br/forum/index.php...mp;#entry347652

se você fizer pelo package e deployment, ele separa automaticamente todos os componentes/dll que você usa. mas pra saber, é so entrar em Properties -> Components (ou References), selecionar o componente, ai la embaixo ele mostra o caminho do arquivo.

bom mas você fez o instalador (tipo pelo package e deployment wizard, innosetup, etc)?? porque se não fez não deve funcionar mesmo... você deve fazer o instalador que copie e registre todas as dlls e ocx necessarias no pc do cara.

e o que diz o erro 713?

não ajudou??

aí black dragon, mas o tópico de baxo com o titulo "Como Invadir o PC dos Membros" nem você teve coragem de mostrar...

qual a descricao do erro??

inscricao??? sabe qtos membros registrados acessam esse forum frequentemente?? tirando os caras que aparecem so pra tirar duvidas, eu, o graymalkin e o william. ou seja, beeem menos que da epoca da otra vez quando teve meio participante. não acho que va rolar alguma coisa. também porque visual basic é uma linguagem que está ficando ultrapassada. a gente vê isso também no forum como tem diminuido o movimento aqui mas se alguém tiver interesse de participar, que poste aqui, dependendo do movimento a gente vê. mas fosse fazer, acho que deveria sim valer .net, principalmente pra aumentar o numero de gente.

você tem que identificar quando exatamento ocorre o erro. porque tipo, o cliente deve estar digitando letra num campo que você trata como numero, ou coisa assim. por isso o erro. o esquema é você validar os campo, etc.

você esta igualando a data ao mês e ano?? assim não funciona, você teria que igualar o mês ao mês e o ano ao ano. como não manjo dessa parte de formulario não tenho como te passar o codigo. mas em consulta seria tipo assim: Month(Data) = Month(Campo) And Year(Data) = Year(Campo)

bem mais facil em flash com certeza

você pudia usae replace, mas nessa caso ele também subsituiira por exemplo, "amora" por "romaa" então, você poderia fazer assim: texto = "XXXXXXY amor YZZZZZZZ" palavra = "amor" MsgBox Mid(texto, 1, InStr(texto, palavra) - 1) & StrReverse(palavra) & Mid(texto, InStr(texto, palavra) + 3)[/code] mas se a palavra aparece mais de uma vez e você quer substituir todas fica mais foda, você teria que por num while. acho que ficaria mais facil com o split mesmo...

com ADODB Command não sei, mas com RecordSet, acho que ele retorna a mensagem na propriedade Erros da Connection. pra acessar seria tipo assim: Response.Write(conexao.Errors(0).Description) ai acho que cada vez que você executa ele substitui o indice 0 pelo erro. não manjo muito mas acho que é assim. com o Command talvez seja igual.

o problema acho que está aqui: IF EXISTS(SELECT EMAIL FROM reserva) porque se a tabela tiver pelo menos uma linha, ele sai da procedure. acho que o você quer seria tipo isso: IF EXISTS(SELECT EMAIL FROM reserva Where Nome = @nome)

pode ser também desse jeito do split. mas pode ser assim com InStr também: var = "palavra" If InStr(texto, palavra) <> 0 Then Response.Write "A palavra está na posicao " & InStr(texto, palavra) Else Response.Write "Palavra não encontrada." End If [/code]

otra coisa, tenho um campo no dataset, que preciso dele no dataset mas não pode aparecer no grid. tem como fazer??

vai ser dificil ele te ajudar, já que o tópico é de 2005 e depois disso ele acho que nunca mais acessou o forum. mas numero natural você quer dizer inteiro positivo é isso?? acho que seria mais o menos isso: If num>=0 And Num-Int(Num)=0 Then msgbox "Raiz de " & num & ": " & num ^ (1/2) Else msgbox "O número deve ser um número natural!" End If [/code] mas lembre-se que a condicao pra poder se tirar a raiz de um numero é ele ser maior que 0. ou seja, numeros com virgula ou fracoes poderiam entrar normalmente no calculo.

bom, pra isso, é so usar o FileSystemObject da biblioteca Microsoft Scripting Runtime. se tiver dificuldade, de uma olhada aqui: http://macoratti.net/filesyst.htm http://macoratti.net/vb_bkfso.htm ou ainda faca uma busca no forum por FileSystemObject. veja se ajuda, qualquer coisa poste aí

tipo, o que eu passei está diferente do seu: rtfdados.OLEObjects.Add , , strOpen o meu tem uma virgula a menos... continua o mesmo erro??

acredito que seja possivel sim (não me pergunte como) com assembly... afinal, se o codigo c é compilado pra assembly, você deve poder alterar com assembly. porque ouvi dizer que fazem mais o menos isso pra descobrir seriais de jogo por exemplo. os caras abrem o codigo assembly do exe. olhando o codigo (e olhando muito bem mesmo), os caras descobrem a logica pra fazer o serial. se o exe é apenas um codigo em assembly, não vejo porque não possa ser alterado. agora em vb6 isso seria foda... o ponto de partida que vejo seria... aprender assembly!! mas vamo esperar alguém que manje mais que eu postar aí

como assim?? tipo você quer usar uma query tipo via programacao, alguma coisa?? se o que você quer é so mesmo executar a query, você abre o seu banco, vai na parte de consultas e cria uma nova. ai você muda para o modo sql e digita la o codigo. ai você clica na exclamacao pra executar... veja se é isso, qualquer coisa poste.

seria isso? Private Sub Command1_Click() Dim strOpen As String CommonDialog1.ShowOpen strOpen = CommonDialog1.FileName rtfdados.OLEObjects.Add , , strOpen End Sub[/code]