kuroi

você quer acessar a pagina pelo visual basic pelo objeto webbrowser, é isso?? ou quer alterar o campo num browser aberto?? se for a segunda opcao você tera q usar as apis FindWindow e SetForegroundWindow (exemplos no forum). se for a primera opcao, a sua duvida ta em ler o conteudo do txt ou em preencher o campo no browser?? se for em preencher o conteudo, eu não sei o codigo não, mas acho q isso já saiu no forum, faca uma busca q deve encontrar exemplos. se você tiver com dificuldade em ler o conteudo do arquivo, seria isso ó: Dim f as Long, arquivo as String f = FreeFile Open "C:\caminho\arquivo.txt" For Input As f arquivo = Input$(LOF(f), f) 'O conteudo do arquivo vai estar na variavel arquivo Close f[/code]

como assim atraves do banco de dados?? você ta falando de vba no access?? bom se for no visual basic 6 você pode usar o componente MAPI ou baxar o py.sendmail (q é gratis). se for no access ai não sei se essas opcoes funcionam, acredito q sim.

quanto a abrir o banco de dados, isso já foi discutido no forum e a conclusao foi q o melhor é abrir uma vez e so fechar no final. antigamente quando se fazia a conexao em bancos antigos tipo extensao .bdf e etc, isso podia dar problema de corrupcao de dados se você dexasse a conexao aberta, mas bancos de dados tipo access e sql são muito bem feitos e evitam esse tipo de problema. assim, pra diminuir a qtde de processamento, o melhor seria abrir e fechar uma unica vez.

é so chamar a sub cmdgravar_Click()

é, ele vai gravar numa versao bem antiga do excel, e talvez seja esse o seu problema. o q acontece é q esse componente q você ta usando (o crystal reports control) é bem antigo, e por isso não tem uma opcao pra versoes mais recentes, e não sei se da pra arrumar isso. mas uma opcao é você usar o CRAXDRT, como é explicado nesse tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=122749

então o crystal 2008 deve ter um outro componente diferente desse pra você trabalhar, mas como nunca usei o 2008 não sei qual seria. ou ainda, bem possivelmente o 2008 talvez nem seja compativel com o visual basic 6, já q hj ele foi substituido pelo .net. e sobre a tela de splash não entendi o q você quis dizer. e quanto ao data enviroment, como eu disse no otro tópico, o melhor é tentar isntalar o visual basic de novo.

olha aqui: CR1.PrintFileType = crptText você ta salvando como texto, so ta pondo extensao do excel mas ta em formato de txt. nessa linha você tem q selecionar uma opcao em formato excel, exemplo: crptExcel50Tab

então, acontece q essa funcao tem só dois parametros entende?? se você passar 10 variaveis você ta passando 10 parametos. tipo, em visual basic virgula é separador de parametros. e ponto e virgula nem existe. então esse erro acontece por dois motivos. primero, porque ponto e virgula não existe. e depois porque são esperados dois parametros e você ta passando 10. o q você deveria passar era acho q, não manjo de vba, mas acho q seria o range() q retorna um conjunto de celulas da planilha (exatamente como CO6:CO15 faz). mas o q são v1, v2 e etc?? são variaveis?? da onde elas vem?? acontece q acho q você tem q passar dois conjuntos de celulas da planilha como parametro não?? e não variaveis.

use o cast: sql = "Select * from tabela where cast(expira as datetime) <= cast(" & data & " as datetime) order by id desc"

ficou legal, mas acho q talvez fosse melhor usar um timer só não?? tipo, ai você faz um contador e vai mandando a mensagem passando o contador como indice do winsock. e quando chegar no final você desabilita o timer (e so habilita quando ele mandar). isso primero porque, pelo menos na minha opiniao, fica mais facil de controlar. e depois porque é desperdicio de memoria e de processamento você carregar varios timer na memoria enqto podia tar usando so um. mas se ta funcionando bem pra você ai, legal então. quanto ao projeto não precisa mandar não, a não ser q você tenha mais algum problema e quera q eu de uma olhada.

a você já é formado então ai fica mais facil. não sei se tem a possibilidade de você fazer um estagio pela sua faculdade (mas acho q não, afinal você já se formou, não??), q tb ia facilitar mais ainda. porque em estagio já esperam q você não tenha experencia nenhuma ne. normalmente exigem experiencia pra contratar efetivamente. bom, os trampos pra iniciantes, tipo estagio por aqui costumam ser mais ou menos uns 700 ou 800 reais. tipo, no final do ano agora fizeram uma lei de estagio q não pode passar de 6 horas por dia. e ai os salarios pra estagios baxaram por conta disso. acho q trabalhos efetivos pra iniciantes estariam já acima 1000, talvez uns 1500, por ai, mas estagio é muito mais facil de pegar. bom, a verdade é q nessa area se paga bem mais do q isso ne... mas ai sei la, se você manjar muito mesmo, você pode ir atras dos trampos q pagam mais, apesar q você pode ter dificuldade de te aceitarem pela falta de experiencia. mas tipo, depois de um ano mais o menos, esse valor deve aumentar, ou pelo menos você vai ter experiencia pra ir atras de otra coisa. tipo, acho q pra comecar um salario entre 1200 ta bom. so tem q ver se ta de acordo com sua necessidade e expectativa. pra você te uma ideia, no meu primero trampo, q foi um estagio do curso tecnico eu recebia 600... bom, mas essa informacoes q te passei são baseadas no q conheco no mercado aqui em sp. mas não acho q em porto alegre seja muito diferente. e quanto aos testes, isso depende. no meu caso a maioria das entrevistas q fiz não tiveram teste, mas mtas tiveram sim. as vezes dao uma prova com questoes, as vezes te mandam fazer um programa qualquer, etc. e então, moro em sp. quanto ao MSN é melhor você adicionar rafaelsposito[a]hotmail.com porque eu tenho entrado de vez em quando e vo acabar esquecendo, falou.

sua intencao é trabalhar apenas com o banco de dados?? tipo, se tiver q usar otra linguagem de programacao não serve pra você?? tipo programacao asp.net + sql ou qualquer coisa assim?? porque seila, sobre a area de banco de dados não sei te falar muito não quanto a salarios e etc, sei mais sobre a area de programacao. e tipo, pra falar melhor sobre as suas chances ia precisar saber tb qual a sua formacao (se você tem alguma). você tem alguma faculdade na area ou coisa assim?? e tb q otros conhecimentos você tem na area?? mas já adianto q falar russo no brasil não ajuda mta coisa... a não ser q você for trabalha em multi nacional russa ou coisa do tipo (o q tb seria bom se você achasse algo do tipo, pois imagino q eles paguem bem), mas ai so em empregos bem especificos, no mercado em geral nunca vi uma vaga q tenha q saber falar russo. e mesmo ingles... tipo, no geral falar fluentemente não te da mta vantagem a mais do q o cara q sabe "so o necessario". tipo, ajuda bastante sim, mas não necessariamente vai te dexar resolvido na vida. as empresas ligam mais pra seus conhecimentos de programacao mesmo. em todas as entrevistas q fui na vida, nunca comentaram profudamente sobre ingles. mas ai tb tem varios empregos por ai q exigem mesmo ingles fluente, principalmente em multinacional. mas, resumindo, ter fluencia em duas linguas pode ajudar sim, mas o principal de tudo é saber usar a ferramenta ou a linguagem direito. mas tipo assim, normalmente nos aqui no brasil comecamos sem experiencia e comecamos por baxo ne. tipo a gente comeca com estagio e etc, empregos q pagam menos pra depois de um ou dois anos sim comecar a subir de cargo ou ir atras de emprego melhor. se você chegar aqui no pais do nd sem ter nenhuma experiencia, pode ter dificuldade. se você tiver um diploma bom pode ajudar. ou melhor ainda, se tiver alguma certificacao ai ajuda muito. mas so de curiosidade aqui... você é brasilero mesmo ou é russo?? e você tem alguma formacao, faculdade, etc??

não conheco o 2008, mas qual o componente q você usa no visual basic?? tipo, se for o design runtime library e for igual as versoes anteriores, postei uma explicacao sobre isso aqui: http://scriptbrasil.com.br/forum/index.php?showtopic=122749

hum, acho q sei qual é o problema. se você tem certeza q ta conectado mesmo... o q acontece é q a operacao do envio leva alguns milisegundos. e ai dentro do for você ta mandando as mensagens rapido demais. então quando chega no comando q envia a segunda, a primera ainda não foi enviada. mas ele cancela o envio da primera pra mandar a segunda e assim por diante ate a ultima. faca o seguinte, envie as mensagens em um timer. tipo ponha um intervalo de 10 milisegundos nele e manda ir enviando cada mensagem por vez e veja se não funciona. pra falar a verdade eu já tive tb esse problema e resolvi com o timer.

a então esse codigo é do server?? e você ta tentnado mandar a mensagem pra todos os usuarios a partir do servidor, é isso?? bom, primera coisa, se o indice tiver comecando no 0 (caso você não tenha setado Option Base 1), o for acho q deveria ser assim não?? For U = 0 To Conectados - 1 comecando do 0. mas acho q o principal problema ta no ConnectionRequest. olha aquele primero if la: If Index = 0 Then pra q você pos ele ai exatamente?? acho q ele so ta aceitando a primera conexao não?? você aceita a conexao do winsock com indice 0 (o primero), da o load do proximo winsock, mas não ta aceitando as conexoes q chegarem nele. assim, você so vai ter uma conexao.

o esquema é você por esse codigo ai num timer. ai você habilita o timer no mousedown e desabilita no mouseup.

não entendi direito como você ta fazendo. você devia ter um programa rodando q ficaria como servidor. os outros todos se conectariam nele. não tem sentido você fazer o for pra enviar pra todos no click do enviar. porque o enviar vai tar no cliente. o cliente so tem uma unica conexao. q é com o servidor. quando chegar no servidor ai sim tem q ser enviado pra todas as conexoes q tiver la. teria q ser no data arrivel do winsock q estiver trabalhando como servidor.

não entendi essa parte da class. você pode gravar todo o codigo num arquivo .vbs e usar um shell pra executar. mas eu poderia saber a finalidade disso?? pra q você quer fazer um interpretador de codigo q precisa ler ate o type??

não entendi direito, mas acho q o q você quer ta na biblioteca (menu Project -> References) Microsoft Script Control. use o metodo Eval() q ele interpreta o codigo. mas qual o problema do vbscript?? você quer saber como funciona os bancos ou quer saber como usar o visual basic pra trabalhar com bancos. se for o primero caso, não conheco nd sobre isso, de uma procurada na internet. se for o segundo, veja esse aqui: http://www.macoratti.net/ado.htm e tb pode procurar otros tutoriais aqui: http://www.macoratti.net/indvb.htm acho q access é o mais facil de usar.

quando aparece esse erro?? quando você clica em Add -> Data Environment?? estranho, talvez os arquivos (ocx ou dll) do data environment não tejam instalados direito nesse pc. talvez o melhor seja você tentar reinstalar o visual basic 6.

aqui o 0 é o indice: If CondPgto.GetSelected(0) Then 'está marcado o indice 0 End If[/code] você pode fazer a mesma coisa com o 1: [code]If CondPgto.GetSelected(1) Then 'está marcado o indice 1 End If e pronto, ue, você mesmo já fez o codigo ai. pro indice 0 não é o texto "07"?? qual a dificuldade?? se você quer pegar o texto q ta checkbox em vez de escrever a string, usa a propriedade Items. exemplo: If CondPgto.GetSelected(1) Then Idx2 = CondPgto.Items(1).ToString() End If[/code]

ai é o getselected. exemplo: If CondPgto.GetSelected(0) Then 'está marcado o indice 0 End If[/code]

a partir da segunda linha usa o replace no proprio strNewText. tipo assim: strNewText = Replace(strText, "C:\APL\FOS\PIC", "C:\APL\FOS10\PRD\PIC") strNewText = Replace(strNewText, "C:\APL\fos\PIC", "C:\APL\FOS10\PRD\PIC") strNewText = Replace(strNewText, "C:\APL\FOS\pic", "C:\APL\FOS10\PRD\PIC") ....[/code] e assim por diante.

a mas você ta imprimindo sempre o mesmo pt. você não devia por um pt++ dentro do for pra ele ir avancando as posicoes?? e otra coisa, pra pegar o endereco do array não era pra ser só assim?? pt = vetor; porque se você fizer isso: pt=&vetor[10]; você ta pegando o enderco da posicao 10 (q nem existe, pois vai ate o 9). e otra coisa ainda, pelo q eu entendi, era pra você criar dois arrays no seu programa. uma pra dexar os valores e otro os enderecos. e você fez so o array pros valores. e você ta ordenando os valores, mas pelo q eu entendi, era só pra pegar os enderecos de acordo com a ordenacao dos valores. o seu print no final vai mostrar os enderecos na sequencia, mas pelo q entendi era pra ser os enderecos na sequencia dos valores.

se você pegar assim: item = CondPgto.FindString("07") você vai saber qual é o indice onde ta esse texto (se não existe o texto, retorna -1). ai você passa o indice no SetSelected pra marcar e pronto. se você não sabe pegar a string a partir do array, use o Split.