kuroi

cara, esse codigo aqui do william: ele deve funcionar pra vb6 e pro 5 também. agora esse código que você postou é de visual basic .NET!! esse codigo do mouse_down que você mostrou veio de onde?? se você usa realmente o vb5, o codigo que você deve usar é esse do william (que alias foi esse que o graymalkin te passou e não o do .NET).

nossa que vb5 é esse?? mano isso é .NET, não?? qual a versao do seu Visual Studio?? 2005?? pra .NET você deve postar no forum .NET e alias, olha no tópico que o graymalkin indicou que la o cara fala sobre como fazer em .NET

qual a(s) linha(s) e a descricao(oes) do(s) erro(s)??

cara, so vi seu post hj. se por acaso você voltar a acessar o forum e ainda hj, quase um ano depois, tiver co mesmo problema ainda, da um toque aí bom, aquele codigo você poderia testar em Consultas no access, mas na verdade essas queries são feitas pra ser usadas quando você esta programando em alguma linguagem mesmo que for vba dentro do proprio access. mas isso que você quer, pelo que vejo, é bem diferente, porque o que você quer é alterar o registro direto na tabela, não?? no caso do andre basilio, isso era uma forma de visualizar os dados já salvos la dentro. mas pelo que sei, no access, não tem como fazer isso que você quer automaticamente. mas você esta usando alguma linguagem?? se estiver da pra fazer de algum jeito mais facil dependendo da linguagem. se não o mais facil seria mesmo digitar o kmf sempre na mao, mas também daria pra adaptar a query de cima.

devia funcionar igual, qual o problmea você esta tendo??

e alem disso, a funcao soma noa vai retornar nd, você não passa valor pra ela. devia ser assim: Function soma(a, B) As Double soma = (Val(a) + Val(B ) ) End Function[/code] outra coisa, usando a funcao val() como você faz ele não vai conseguir somar numeros com virgulas.

ai sim declare uma constante: Public Const pi As Double = 3.1415926535

declare assim: Dim n1 As Double, n2 As Double, res As Double

hum... já não saiu isso antes no forum?? faca uma busca aqui que você deve encontrar alguma coisa.

clique co botao direito no Solution Explorer e no menuzinho que aparece, selecione Add. você pode criar uma imagem nova (nesse caso, clique em New Item, e selecione Bitmap File) ou uma já existente (nesse caso, clique em Existing Item e selecione a imagem que você quer). depois de ter feito isso, a imagem vai passar a fazer parte do seu projeto, ai sim, clicando duas vezes nela no Solution Explorer, você pode edita-la como quiser usando a barra do Image Editor.

exatamente, você so pode passar valores na mao pra constantes, não pode ser valor vindo de uma variavel. também porque não tem sentido, se é o usuario é quem vai definir esse valor, ele não é constante, e sim variável. por isso você deve usar uma variável e não uma constante. e, alem de não ter sentido, você não realmente precisaria usar constante nesse caso.

legal, vo mover pra tutoriais e dicas. ... mas não testei ainda, quem for tentando usar dexa a opiniao ai a e, balduino, sempre que for postar codigos, ponha dentro da tag code, beleza??

<td width="293"><a href="<%=FSO.copyfile (file.name , (" c:\backup"))%>"> e também tem coisa ai. ele vai dar erro, copyfile não retorna valor nenhum, não?? o que você queria que ele mostrasse pondo o igual ali??

a valeu, agora sim. não entendi mta coisa mesmo mas é estranho ce fazer um mte de coisa, baxar uma porrada de programa sem ter a minima ideia do que é td isso. bom, a chave do 017 continua la, mesmo depois do winsockfix, mas descobri uma coisa, assim que ligo meu pc, se executo o scan no hijackthis, a chave 017 não aparece. ela so aparece depois que eu conecto no speedy na internet. o que acontece é que eu tinha posto a conexao pro speedy no menu Programas -> Inicializar, assim sempre que eu ligava o windows ele já conectava, assim sempre que eu executava o scan, ele me mostrava o 017. mas como ele não aparecia no modo de seguranca, achei que pudesse ser algum programa que, depois de aberto, pusesse a chave la. então fiz o teste com a conexao do speedy e era ela mesma. a chave so aparece depois de conectado. sera que sabendo disso fica mais facil?? ou sera que você já sabia e só eu que não.... mas o novo log é esse (depois de conectado):

o 017 não some mesmo EDITADO: tava reparando agora, como eu disse, quando eu clico em fixchecked no 017, ele some ate que eu reinicie o pc. e quando ele some a janelinha para de aparecer. mas eu reparei que quando ele some depois de um tempo, a conexao cai. tipo o emule continua funcionando, mas aos pocos não consigo mais acessar os sites tanto no ie quanto no ff. outra coisa, quando vocês me mandarem fazer qualquer coisa, tem como explicar o que eu to fazendo?? tipo o que é cada coisa, porque eu to fazendo aquilo?? sei que eu não vo entender nd, mas queria pelo menos tentar. por exemplo: - o que é o 017?? - porque você acha que o problema ta la?? - pra que serve o fixwareout?? - porque copiei o BFU pra pasta sub?? - pra que serve clicar no fixchecked?? - o 017 é uma chave de registro do windows certo?? relacionada com que?? - quando clico em fixchecked o que acontece com o 017?? ela devia sumir?? - porque não some?? - o que faz o wareout.reg?? valeu pela ajuda EDITADO DE NOVO: alias, problema não resolvido

é o seguinte, tenho uma sub onde algumas vezes a conexao cai e o programa da uma mensagem de erro. nesse caso quero que ele va pro label de tratamento de erros. la, o usuario vai ser avisado do erro e perguntar se deseja continuar. se ele clicar OK, ele vai voltar pra onde ele tava e continuar o que estava fazendo, e, com a conexao estabelecida, ele vai continuar executando a sub. mas o problema é que a conexao pode cair de novo. e quando isso ocorre, em vez de ir pro label de tratamento, ele mostra a mensagem e fecha o programa. é possivel tratar o erro pela segunda vez?? coomo fazer?? tentei o Err.Clear, mas não funcionou. meu codigo ta tipo assim: On Error GoTo Erro Do While Not rs.EOF Executa: ... ... ... rs.MoveNext Loop Erro: If Err.Number = -2147467259 Then Resposta = MsgBox(Err.Description & vbCrLf & "Clique OK pra continuar.", vbYesNo) If Resposta = vbYes Then GoTo Executa End If End If[/code] entenderam?? na primeira vez que o erro ocorre ele vai pro label Erro e mostra a minha mensagem certinho. mas se ele continua o processamento, se der um segundo erro, em vez de ir pro label Erro de novo, ele mostra a mensagem do erro e fecha o programa. tem como resolver?? EDITADO: esquece, já descobri (1 minuto depois de ter postado o tópico), era so por Resume Executa em vez de GoTo Executa

tiveram varias vezes que fiquei duas horas digitando o post e na hora de postar veio esse erro, quasei chorei, precisam arrumar mesmo!!

essa variavel abredb ta mesmo conectada ao banco?? você passa a variavel Conexao pro rs mas depois executa pelo abredb, qual o sentido??

mas se o campo ta como texto, acho que o between não vai funcionar. você teria que dar um cast, acho. tipo assim: select * from tabela where cast(data as date) between '#"&data_inicial&"#' and '#"&data_final&"#'"

de um replace de quebras de linha por br. você pode fazer isso ou na hora de mostrar ou na hora de gravar. exemplo: <% Response.Write(Replace(texto, vbCRLF, "<br />")) %>

acredito que sim. o shellexecute é uma funcao de dll do windows que deve estar presente em todas as versoes. ate no 98 deve funcionar. mas alias, o codigo completo não é so isso, certo?? você também declarou a funcao, não??

nossa, conexao pra sql assim?? nunca vi... o que é esse arquivo mdf?? exemplos de connection strings pra sql 2005: http://www.connectionstrings.com/?carrier=sqlserver2005

pra ele testar no banco sem submit, só cum ajax

qual a mensagem do erro??