kuroi

de uma olhada aqui: http://scriptbrasil.com.br/forum/index.php?showtopic=107506 você não tem o Crystal Reports Design Run Time Library??

então em vez de MDIForm1.cr1.Formulas(0) = "periodo= " & Chr(34) & dataok & Chr(34) selecao = "{controle.acolhimento}>=" & criterio1 & " AND " & "{controle.acolhimento}<=" & criterio2[/code] por exemplo, tenta por: [code]MDIForm1.cr1.ReplaceSelectionFormula "periodo= " & Chr(34) & dataok & Chr(34) selecao = "{controle.acolhimento}>=" & criterio1 & " AND " & "{controle.acolhimento}<=" & criterio2 outra coisa, as datas na formula tem q ficar no formato #YYYY, MM, DD#

isso é localmente. o mysql ta instalado num dos pcs da rede e a principio tamos tentando acessar ainda no proprio pc, depois ainda q resolvermos isso q vamos tentar acessar dos demais pcs da rede. conseguimos fazer tudo, menos (pelo menos foi o q percebemos ate agora) criar views e procedures. já tb dei permissao total para 'root'@'%'. vou ver isso então. você sabe qual o comando pra remover os privilegios?? valeu.

é a mesma coisa q isso ó: If xEquipe(10 - j).contrato(0) = True Then Exit For End If[/code] só q antes eu fiz simplificado, ve se agora da pra entender. é verdade, pode por sim e veja se da certo. você mora em minas mesmo?? se por acaso você for aqui de sp, presta ciencia na unesp de bauru, acho q é um dos melhor curso do estado (e é de graca). quando eu morava la, prestei la mas passei longe.

veja: http://scriptbrasil.com.br/forum/index.php?showtopic=107800

vou mover então pra MySQL, vamos ver se te ajudam la.

tenho no meu mysql 5.1, ou user root. já dei permissao pra tudo pra ele (grant all privileges), mas quando tenho criar uma view ou procedure (CREATE VIEW) ele diz q: o q fazer nesse caso??

com o Step -1 ele soma -1 em vez de somar 1. você pode por qualquer numero q quiser no lugar no -1. tipo isso aqui: For i = 0 To UBound(xPiloto) é o mesmo q For i = 0 To UBound(xPiloto) Step 1 ou seja, pra fazer o contrario, é só comecar do maior e ir tirando 1 ate cehgar em 0. sim, então depois q acabar o For, verifica q sela não fechou o contrato. se não tiver fechado, procure o piloto disponivel com a menor situacao e contrate ele. A PUC também é particular, como as outras que eu passei, a diferença é que o curso dela é muito melhor que a das outras, sendo pior apenas que o curso da UFMG. hum, e q curso foi q você presto??

uma dica. dentro desse For, você pode por uns Exit For aqui: For j = 0 To UBound(xEquipe) If xEquipe(10 - j).nome <> xJogador.equipe Then For i = 0 To UBound(xPiloto) For v = 0 To 21 If i - v >= 0 Then If xEquipe(10 - j).situação >= xPiloto(i - v).situação Then If xEquipe(10 - j).contrato(1) = False Then ... ... Else Exit For 'POE AQUI End If End If End If Next If xEquipe(10 - j).contrato(0) Then Exit For 'POE AQUI Next End If Next[/codebox] assim ele não precisa ler todos os outros pilotos depois de ter fechado o contrato. agora não entendi porque esses dois Fors e o If depois: [code]For i = 0 To UBound(xPiloto) For v = 0 To 21 If i - v >= 0 Then[/code] não seria só fazer um primeiro for (só com o i) e depois usar só o i como indice?? desse jeito ele le o negocio todo 21 vezes mais. bom, mas pelo q vi aqui o problema ta nessa linha aqui: [code]If xEquipe(10 - j).situação >= xPiloto(i - v).situação Then[/code] quando é pra fazer o contrato do segundo piloto, tem algumas equipes q tem a situacao menor do q a de todos os pilotos disponiveis e ai ela acaba não contratando nenhum. depois do form da classificacao, pode aparecer alguma equipe com mais de dois pilotos porque como o contrato do piloto não é refeito, você não muda os dados dele então ele continua com a equipe da ultima temporada (a propriedade Equipe dele continua a mesma, por isso aparece a mesma cor), mas ele não tem contrato (a propriedade contrato esta False). alias, pra q serve essa propriedade situacao?? EDITADO: ou mas PUC não é particular tb??

calma, sabemos sim, mas você ta postando bem no feriado, ai nos tamos ocupados demais pra responder. quando voltarmos ao trabalho ai sim as coisas voltam ao normal, porque normalmente a hora q acessamos o forum é a hora q estamos no trabalho mas não tamos com vontade nenhuma de trabalhar, e ai acessamos o forum pra ficar enrolando no trampo. haha não sei quanto aos outros, mas pelo menos esse é o meu caso. mas esse tutorial aqui ensina a abrir arquivos texto ó: http://www.macoratti.net/txt_arqs.htm de uma lida la q é bem util mas basicamente o codigo todo deve ser só isso ó: Dim f As Long f = FreeFile Open caminho For Input As f Text1.Text = Input$(LOF(f), f) Close f[/code] onde caminho é o caminho do arquivo (q deve vir do combobox) e Text1 é a textbox onde você vai mostar o texto.

nossa mas faz mais de um ano q eu respondi haha como assim??

esse erro é na hora de abrir a conexao?? posta ai como esta a sua connection string.

só sei responder essa: não está não, tirando pelo fato de ter postado na sala errada. essa sala é so pra visual basic ate a versao 6. o visual basic 2005 é uma das versoes do visual basic .NET, e temos uma outra sala pra .NET, essa daqui: http://scriptbrasil.com.br/forum/index.php?showforum=49 então to movendo esse tópico pra la.

então, jackssa, esses arquivos _install.exe comecaram a aparecer depois q eu chequei os itens do msconfig como você falou. ele aparecia em varias pastas random e eu apagava sempre q via. esses q sobraram foram os q passaram despercebidos. outra coisa q anda aconteceu hj aqui é q eu percebia q na janelinha da minha conexao speedy, o item bytes recebidos não parava de aumentar apesar de eu não estar abrindo nd (tb com o emule e os demais porgramas fechados) e q o firefox tava demorando pra abrir as paginas. ai apertei control alt del e vi q tinha quase dez instancias do Internet Explorer abertas (apesar de a janela não aparecer pra mim) e sabe-se la o q elas tavam fazendo. os resultados: C:\WINDOWS\system32\dllcache\_install.exe C:\WINDOWS\system32\_install.exe C:\WINDOWS\_install.exe EDITADO: alias, fiz uma pesquisa aqui agora e vi q tem mais de 300 _install.exes no meu pc (quando a pesquisa chegou em 300 eu já cancelei mas devem ter bem mais).

caraio passou em 3?? e não vai fazer nenhum?? ta, eu não entendo dessas coisas, mas se não me engano, o erro é q cada uma devia contratar 2, é isso?? quer então mandar o codigo la??

então, acontece q tem varias coisas desse msconfig q eu deschequei por conta propria. por exemplo, tinha uns negocios do nero e do realplayer q abriam na inicializacao q eu tirei. e sempre q eu abria o msconfig e via alguma coisa nova q eu não sabia o q era, eu sempre deschecava. mas tb dessa vez q eu disse q apaguei varios exes estranhos no meu pc, e tb umas outras vezes q apareceram uns virus aqui, apareciam varios itens de exes estranhos no msconfig e eu sempre deschequei a opcao e depois fui la e apaguei o exe. agora eu chequei de volta as opcoes, mas todos os caminhos desses exes são invalidos, pois os exes não existem mais (entre eles esta por exemplo, o flash.exe q aparece no log abaixo). mas de qualquer modo, tudo q era referente a esses virus e tb todos os itens incomuns q eu não sei o q são q eu havia deschecado, agora eu chequei de volta e eles tão no log ai embaixo. outra coisa q ta acontecendo aqui é q, desde esse dia q baxou os virus aqui, o avast fica acusando o virus Win32:Agent-XXX onde XXX varia entre MEB, NJB, NGJ e OUH. não tenho certeza ainda, mas depois q chequei as opcoes do msconfig, acho q ele parou de acusar. o log é esse, tem como tirar o win32agent?? valeu.

Interbase?? e o q tem isso com SQL??

se você não quer a msgbox é só apagar o codigo onde ela é chamada. isso não vai impedir o e-mail de ser enviado. se você quer um log então substitua o codigo da msgbox pelo do log. se você não sabe escrever em arquivo txt, faca uma busca por ai q tem exemplos, tanto no forum quanto no google quanto em http://www.macoratti.net

cara a versao 11 tem umas opcoes melhorzinhas q a 8.5. tipo da pra fazer umas coisas a mais. por exemplo, posso escolher o tipo de link q quero pras minhas tabelas, tipo se quero INNER JOIN, LEFT JOIN. no 8.5 isso funciona pra SQL mas não pra Access, por exemplo. se a sua intencao agora é simplesmente só aprender, tanto faz qual você usar. e tb acho q não tem mta diferenca por esse lado de qual é mais leve ou qual é mais pesada. cara mas se você ta com tanta duvida assim, instala então a 11 mesmo. tipo tem mais recursos e etc. ai se você for precisar usar uma versao mais antiga, o q acontece é q vai ter coisa a menos. se você usar versoes mais antigas pra depois ter q trabalahr com versoes mais novas com coisas a mais q você não conhece pode ficar mais dificil. mas já adianto pra você q mesmo q você pegar a 8.5 por exemplo, você não vai ter quase nenhuma dificuldade quando for usar a 11.

mano num tenho a minima ideia. apesar de q já vi isso em algum lugar aqui no forum mesmo, não to lembrado dos detalhes, mas pelo q sei a OleDb é uma tecnologia mais recente mais eficiente q a ODBC. mas tem conexao MySql pra OleDb sim, da uma olhada aqui: http://www.connectionstrings.com/?carrier=mysql

da uma olhada aqui: .CommandText = " Select * From FinanWin_Cli " toda vez q passa aqui ele executa esse select. e assim q ele acaba de executar ele vai sempre pro primeiro registro. ou seja, o MoveNext SEMPRE vai mostrar o segundo registro e o MovePrevious SEMPRE vai dar erro porque não existe registro antes do primeiro. fora q você criou o RecordSet interno pro evento click do botao. então, assim q o evento acabar de ser executado, o RecordSet é perdido. ele tem no textbox os dados q vieram do banco, mas o visual basic não tem como entender q aquilo veio de um recordset, muito menos q veio de um banco de dados muito menos saber pra qual registro esses dados apontam se ele não tem mais o RecordSet. você teria q declarar o RecordSet la em cima no declarations (o mesmo pra Connection) e fazer o Select apenas UMA vez (ou tb refazer cada vez q alguma coisa for gravada na tabela), pra poder chamar o MovePrevious e o MoveNext.

opa. mas passou ae ou não?? da uma olhada nessa parte do codigo: If (nMotor(j) - 2) < 0 Then h(j) = 0 ElseIf xEquipe(j).finanças >= xMotor(nMotor(j) - 2).custo Then xEquipe(j).Motor = xMotor(nMotor(j) - 2).nome xEquipe(j).finanças = xEquipe(j).finanças - xMotor(nMotor(j) - 2).custo nMotor(j) = nMotor(j) - 2 Else If (nMotor(j) - 3) < 0 Then h(j) = 0 ElseIf xEquipe(j).finanças >= xMotor(nMotor(j) - 3).custo Then xEquipe(j).Motor = xMotor(nMotor(j) - 3).nome xEquipe(j).finanças = xEquipe(j).finanças - xMotor(nMotor(j) - 3).custo nMotor(j) = nMotor(j) - 3 Else [/codebox] deixando um pouco mais buntininho ela seria tipo assim: [code]If (nMotor(j) - 2) < 0 Then h(j) = 0 ElseIf xEquipe(j).finanças >= xMotor(nMotor(j) - 2).custo Then xEquipe(j).Motor = xMotor(nMotor(j) - 2).nome xEquipe(j).finanças = xEquipe(j).finanças - xMotor(nMotor(j) - 2).custo nMotor(j) = nMotor(j) - 2 ElseIf (nMotor(j) - 3) < 0 Then h(j) = 0 ElseIf xEquipe(j).finanças >= xMotor(nMotor(j) - 3).custo Then xEquipe(j).Motor = xMotor(nMotor(j) - 3).nome xEquipe(j).finanças = xEquipe(j).finanças - xMotor(nMotor(j) - 3).custo nMotor(j) = nMotor(j) - 3 End If[/code] note então q essa parte: [code]If (nMotor(j) - 2) < 0 Then h(j) = 0 ElseIf xEquipe(j).finanças >= xMotor(nMotor(j) - 2).custo Then xEquipe(j).Motor = xMotor(nMotor(j) - 2).nome xEquipe(j).finanças = xEquipe(j).finanças - xMotor(nMotor(j) - 2).custo nMotor(j) = nMotor(j) - 2[/code] e essa: [code]ElseIf (nMotor(j) - 3) < 0 Then h(j) = 0 ElseIf xEquipe(j).finanças >= xMotor(nMotor(j) - 3).custo Then xEquipe(j).Motor = xMotor(nMotor(j) - 3).nome xEquipe(j).finanças = xEquipe(j).finanças - xMotor(nMotor(j) - 3).custo nMotor(j) = nMotor(j) - 3 End If[/code] são exatamente iguais. com a unica diferenca q na de cima aparece o numero 2 e na de baixo o numero 3. então, em vez de fazer 22 codigos iguais com apenas um numero variando entre ele, porque não fazer apenas 1 codigo trocando esse numero por uma variavel?? ai pra passar pelos 22 numeros, simplesmente ponha dentro dum For. ai por exemplo, se ele executar o codigo do numero 2, pra não executar o 3, o 4, e os demais, ponha um Exit For. tipo assim: [code]For v = 2 To 3 If (nMotor(j) - v) < 0 Then h(j) = 0 Exit For ElseIf xEquipe(j).finanças >= xMotor(nMotor(j) - v).custo Then xEquipe(j).Motor = xMotor(nMotor(j) - v).nome xEquipe(j).finanças = xEquipe(j).finanças - xMotor(nMotor(j) - v).custo nMotor(j) = nMotor(j) - v Exit For End If Next[/code]

esse código é pra Visual Basic 6. o 2005 é uma das versoes do .NET, não tem nenhuma relacao com esse codigo q eu passei. pra postar sobre o 2005 use essa sala aqui: http://scriptbrasil.com.br/forum/index.php?showforum=49 mas no 2005, o evento KeyPress deve ter os parametros sender e e. ai você pegando pelo e.KeyChar é o mesmo q o KeyAscii do codigo acima.