Matheus-vb6

Gostei desse tutorial, tem tudo sobre tratemento de pastas e arquivos... Tópico resolvido

aa entendi, eu não sabia desse "?" no inicio, eu tava tentando pelo msgbox kk, mas vlw, fica a dica pro pessoal :)

Como faço para que o vb crie pasta?

Bom, é vergonhoso falar isso mas olha a minha inteligencia Filosafia1 Filosafia2 Filosafia3 ¬¬ tava dando erro nisso e tava faltando um 00,00 Problema resolvido :)

Ler pelo imediate, seria o q? nunca fiz isso kkk. Eu fiz em uma variavel agora inserir = "insert into alunos(Graduacao,Turno,Serie,Vencimento,Anuidade,Desconto,NParcelas,NomeAluno,SobrenomeAluno,NascimentoAluno,CPFAluno,RGAluno,NomePai,SobrenomePai,NascimentoPai,CPFPai,RGPai,EnderecoPai,BairroPai,EstadoPai,CidadePai,CEPPai,ProfissaoPai,FoneResPai,FoneComPai,EmailPai,CelularPai,FoneRecPai,Nomemae,Sobrenomemae,Nascimentomae,CPFmae,RGmae,Enderecomae,Bairromae,Estadomae,Cidademae,CEPmae,Profissaomae,FoneResmae,FoneCommae,Emailmae,Celularmae,FoneRecmae,Pergunta1,Pergunta2,Pergunta3,Pergunta4,Pergunta5,Pergunta6,Pergunta7,Pergunta8,Pergunta9,Pergunta10,Pergunta11,Pergunta12,Pergunta13,Pergunta14,Pergunta15,Portugues1,Arte1,EdFisica1,Matematica1,Biologia/ciencias1,Fisica1,Quimica1,Historia1,Geografia1,Filosafia1,Sociologia1,Ingles1,Espanhol1,Portugues2,Arte2,EdFisica2,Matematica2,Biologia/ciencias2,Fisica2,Quimica2,Historia2,Geografia2,Filosafia2," & _ "Sociologia2, Ingles2, Espanhol2,Portugues3,Arte3,EdFisica3,Matematica3,Biologia/ciencias3,Fisica3,Quimica3,Historia3,Geografia3,Filosafia3,Sociologia3,Ingles3,Espanhol3)" & "VALUES('" & frmNovoAluno1.cmbGraduacao.Text & "','" & frmNovoAluno1.cmbTurno.Text & "','" & frmNovoAluno1.cmbSerie.Text & "','" & frmNovoAluno1.txtAnuidade.Text & "','" & frmNovoAluno1.txtDesconto.Text & "','" & frmNovoAluno1.cmbParcelas.Text & "','" & frmNovoAluno2.txtNomeAluno.Text & "','" & frmNovoAluno2.txtSobrenomeAluno.Text & "','" & frmNovoAluno2.txtNascimentoAluno.Text & "','" & frmNovoAluno2.txtCpfAluno.Text & "','" & frmNovoAluno2.txtRGAluno.Text & "','" & frmNovoAluno2.txtNomePai.Text & "','" & frmNovoAluno2.txtSobrenomePai.Text & "','" & frmNovoAluno2.txtNascimentoPai.Text & "','" & frmNovoAluno2.txtCPFPai.Text & "','" & frmNovoAluno2.txtRGPai.Text & "','" & frmNovoAluno2.txtEnderecoPai.Text & "'," & _ "'" & frmNovoAluno2.txtBairroPai.Text & "','" & frmNovoAluno2.cmbUFPai.Text & "','" & frmNovoAluno2.txtCidadePai.Text & "','" & frmNovoAluno2.txtCEPPai.Text & "','" & frmNovoAluno2.txtProfissaoPai.Text & "','" & frmNovoAluno2.txtFoneResPai.Text & "','" & frmNovoAluno2.txtFoneComPai.Text & "','" & frmNovoAluno2.txtEmailPai.Text & "','" & frmNovoAluno2.txtCelularPai.Text & "','" & frmNovoAluno2.txtFoneRecPai.Text & "','" & frmNovoAluno2.txtNomeMae.Text & "','" & frmNovoAluno2.txtSobrenomeMae.Text & "','" & frmNovoAluno2.txtNascimentoMae.Text & "','" & frmNovoAluno2.txtCPFMae.Text & "','" & frmNovoAluno2.txtRGMae.Text & "','" & frmNovoAluno2.txtEnderecoMae.Text & "'," & _ "'" & frmNovoAluno2.txtBairroMae.Text & "','" & frmNovoAluno2.cmbUFMae.Text & "','" & frmNovoAluno2.txtCidadeMae.Text & "','" & frmNovoAluno2.txtCEPMae.Text & "','" & frmNovoAluno2.txtProfissaoMae.Text & "','" & frmNovoAluno2.txtFoneResMae.Text & "','" & frmNovoAluno2.txtFoneComMae.Text & "','" & frmNovoAluno2.txtEmailMae.Text & "','" & frmNovoAluno2.txtCelularMae.Text & "','" & frmNovoAluno2.txtFoneRecMae.Text & "','" & txtPergunta1.Text & "','" & txtPergunta2.Text & "','" & txtPergunta3.Text & "','" & txtPergunta4.Text & "','" & txtPergunta5.Text & "','" & txtPergunta6.Text & "','" & txtPergunta7.Text & "','" & txtPergunta8.Text & "','" & txtPergunta9.Text & "','" & txtPergunta10.Text & "','" & txtPergunta11.Text & "','" & txtPergunta12.Text & "','" & txtPergunta13.Text & "','" & txtPergunta14.Text & "','" & txtPergunta15.Text & "','" & "00,00" & "','" & "00,00" & "'," & _ "'" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "')" Todos estão como textos, e no caso do "00,00" seria nota dos alunos, q viriam como 00,00 devia a mascara na edição, mas ta tudo como texto! como ler pelo imediate?

alguém pode me dizer só se os &_ estão certos? ou como eu faço um cadastramento gigante?

Se você for usar essa função em mais de um form, cria modulo, fica mais facil :), se tiver solucionado da como resolvido para facilitar :) té mais cara ;)

Não tenho ctz, mas tenta colocar o nome do form antes Call form1.AtualizarForm ' A Sub que estou tentando chamar [ Private Sub AtualizarForm() ]

Funcionou :) vlw cara :)

Bom tarde gente No meu programa do tcc, sistema de uma escola, tenho que efetuar um cadastro que tem 99 colunas, porém, pela limite de caracteres por linha, tive que fazer dessa forma cn.Execute "insert into alunos(Graduacao,Turno,Serie,Vencimento,Anuidade,Desconto,NParcelas,NomeAluno,SobrenomeAluno,NascimentoAluno,CPFAluno,RGAluno,NomePai,SobrenomePai,NascimentoPai,CPFPai,RGPai,EnderecoPai,BairroPai,EstadoPai,CidadePai,CEPPai,ProfissaoPai,FoneResPai,FoneComPai,EmailPai,CelularPai,FoneRecPai,Nomemae,Sobrenomemae,Nascimentomae,CPFmae,RGmae,Enderecomae,Bairromae,Estadomae,Cidademae,CEPmae,Profissaomae,FoneResmae,FoneCommae,Emailmae,Celularmae,FoneRecmae,Pergunta1,Pergunta2,Pergunta3,Pergunta4,Pergunta5,Pergunta6,Pergunta7,Pergunta8,Pergunta9,Pergunta10,Pergunta11,Pergunta12,Pergunta13,Pergunta14,Pergunta15,Portugues1,Arte1,EdFisica1,Matematica1,Biologia/ciencias1,Fisica1,Quimica1,Historia,Geografia,Filosafia,Sociologia,Ingles1,Espanhol1,Portugues2,Arte2,EdFisica2,Matematica2,Biologia/ciencias2,Fisica2,Quimica2,Historia,Geografia,Filosafia," & _ "Sociologia , Ingles2, Espanhol2,Portugues3,Arte3,EdFisica3,Matematica3,Biologia/ciencias3,Fisica3,Quimica3,Historia,Geografia,Filosafia,Sociologia,Ingles3,Espanhol3)" & "VALUES('" & frmNovoAluno1.cmbGraduacao.Text & "','" & frmNovoAluno1.cmbTurno.Text & "','" & frmNovoAluno1.cmbSerie.Text & "','" & frmNovoAluno1.txtAnuidade.Text & "','" & frmNovoAluno1.txtDesconto.Text & "','" & frmNovoAluno1.cmbParcelas.Text & "','" & frmNovoAluno2.txtNomeAluno.Text & "','" & frmNovoAluno2.txtSobrenomeAluno.Text & "','" & frmNovoAluno2.txtNascimentoAluno.Text & "','" & frmNovoAluno2.txtCpfAluno.Text & "','" & frmNovoAluno2.txtRGAluno.Text & "','" & frmNovoAluno2.txtNomePai.Text & "','" & frmNovoAluno2.txtSobrenomePai.Text & "','" & frmNovoAluno2.txtNascimentoPai.Text & "','" & frmNovoAluno2.txtCPFPai.Text & "','" & frmNovoAluno2.txtRGPai.Text & "','" & frmNovoAluno2.txtEnderecoPai.Text & "'" & _ ",'" & frmNovoAluno2.txtBairroPai.Text & "','" & frmNovoAluno2.cmbUFPai.Text & "','" & frmNovoAluno2.txtCidadePai.Text & "','" & frmNovoAluno2.txtCEPPai.Text & "','" & frmNovoAluno2.txtProfissaoPai.Text & "','" & frmNovoAluno2.txtFoneResPai.Text & "','" & frmNovoAluno2.txtFoneComPai.Text & "','" & frmNovoAluno2.txtEmailPai.Text & "','" & frmNovoAluno2.txtCelularPai.Text & "','" & frmNovoAluno2.txtFoneRecPai.Text & "','" & frmNovoAluno2.txtNomeMae.Text & "','" & frmNovoAluno2.txtSobrenomeMae.Text & "','" & frmNovoAluno2.txtNascimentoMae.Text & "','" & frmNovoAluno2.txtCPFMae.Text & "','" & frmNovoAluno2.txtRGMae.Text & "','" & frmNovoAluno2.txtEnderecoMae.Text & "'" & _ ",'" & frmNovoAluno2.txtBairroMae.Text & "','" & frmNovoAluno2.cmbUFMae.Text & "','" & frmNovoAluno2.txtCidadeMae.Text & "','" & frmNovoAluno2.txtCEPMae.Text & "','" & frmNovoAluno2.txtProfissaoMae.Text & "','" & frmNovoAluno2.txtFoneResMae.Text & "','" & frmNovoAluno2.txtFoneComMae.Text & "','" & frmNovoAluno2.txtEmailMae.Text & "','" & frmNovoAluno2.txtCelularMae.Text & "','" & frmNovoAluno2.txtFoneRecMae.Text & "','" & txtPergunta1.Text & "','" & txtPergunta2.Text & "','" & txtPergunta3.Text & "','" & txtPergunta4.Text & "','" & txtPergunta5.Text & "','" & txtPergunta6.Text & "','" & txtPergunta7.Text & "','" & txtPergunta8.Text & "','" & txtPergunta9.Text & "','" & txtPergunta10.Text & "','" & txtPergunta11.Text & "','" & txtPergunta12.Text & "','" & txtPergunta13.Text & "','" & txtPergunta14.Text & "','" & txtPergunta15.Text & "','" & "00,00" & "','" & "00,00" & "'" & _ ",'" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "','" & "00,00" & "')" Ele da erro de sinstaxe na instrução insert, porem não sei se ta certo com esses & _ Agradeço a ajuda de vocês desde já :)

Boa tarde! No meu programa, tenho 3 forms para cadastro de alunos. No caso, o cliente, prenche 1 formulario e clica proximo(botao),ai acontece: form2.show form1.hide o form2 a mesmo coisa, porem com o form 3 form3.show form2.hide e no form3 o botão, em vez de "proximo", faz a matricula dos dados dos 3 forms, porem os forms 1 e 2 ainda existem, porem só estão escondidos :S Como faço para fecha-los? eu tentei: with form1 .unload me mas n tive sucesso

Ola gente! A abertura do meu programa é em flash, porém meu componente "shockwave flash", ao meu ver, não está funcionando adequadamente, já que ele fica dessa forma: E ao tentar salvar da esse erro, que pesquisando não achei soluções: Alguém sabe me dizer o que posso fazer para arrumar?

Dei uma pesquisadinha e realmente ele tem uma grande recomendação, pra quem quiser da uma olhada segue o link para a versão de teste, já que outra forma de obtenção é proibida :) http://www.baixaki.com.br/download/installshield-12.htm Se quiser podem dar como resolvido, eu n vo edita porque axo q é um tópico mais informativo do q para duvida, mas fica a critério da moderação. Abraços

Bom dia pessoal! Como não consegui fazer meu projeto por printer ou data report, recorri ao crystal report por recomendação do kuroi por ter uma função "cross-tab" que atende as minhas necessidades. Mesmo não sabendo nada nada de crystal report, já tive uma preocupação simples, quando eu distribuir o executavel desse programa, tenho q mandar o q do crystal report?

Caramba, realmente um belo post, vou estudar agora :D --- Olhei o arquivo que você me mando e realmente é MUITO complexo a programação, acho que se eu conseguisse colocar um WHERE em cada label do data report, acho q atenderia minha necessidade, mesmo porque o data report é facil de trabalhar. alguém sabe como poderia fazer isso ou já trabalhou com data report?

Resolvido, mais uma vez obrigado :D

cabei de chega e to mei cansadinho kkk..... amanha vo da uma olhada... vlwss :D

Sem querer ressucitar o tópico, mas quero evitar criar outro... alguém poderia me enviar algum projeto/link ou qualquer outra coisa q eu possa estudar como imprimir? ou até mesmo como corrigir essa conexão http://scriptbrasil.com.br/forum/index.php...mp;#entry610427

Bom dia gente, no meu tcc, usei a função filecopy para copiar a imagem selecionada para a pasta quando o cadastro foi criado... Agora quando ele for excluido, gostaria de remover a foto... FileCopy cd.FileName, ("" & App.Path & "" & "\fotos\funcionarios\" & numero & ".jpg") cd seria um commondialog Qual a função para deletar?

Não consegui achar :S, mas já q o crystal report atende minhas encessidade, como trabalha-se com ele? ele tem a função de imprimir como a do data report? Abraços ---- se alguém souber como posso colocar um WHERE onde cada text do data report vai carregar, axo q resolveria o problema...

Bom dia gente... Estou desenvolvendo um programa, q ao clicar no botão irá imprimir os dados do data report.... porem esse data report, não esta atendendo as minhas necessidades.. tenho uma tabela no access chamada Precos, e tem colunas (Compania,018,1924... q seria idades, exemplo, 018 (0 a 18), porem no Compania, tenho A,B,C,D. no data report, queria q tivesse os preços, dessa forma A B C D 018 R$00.00 R$00.00 R$00.00 R$00.00 1924 R$00.00 R$00.00 R$00.00 R$00.00 2536 R$00.00 R$00.00 R$00.00 R$00.00 3748 R$00.00 R$00.00 R$00.00 R$00.00 E assim por diante, porem, ele só pega os dados da primeira compania, e joga todos um valor repitido! Como faço para ele no A, pegar onde for compania A, no B, B , C C e no D, D... Abraços :D PS: quote e code, estão arrancando a formatação q dei, mas seria tipo A (em baixo preços onde Compania A), mesmo seguimento para B,C,D

Gente, alguém tem algum projeto com data report para me mandar?? preciso urgente fazer esse projeto :S

mesmo eu te adicionando de novo, não vai chegar outro convite.... aqui deu que você já ta na lista de contatos, mas me adiciona ai q a gente consegue conversar... matheus.rubens@hotmail.com Ainda não consegui imprimir pelo vb, ainda to travano no commondialog.showprint

Fizemos pelo MSN por do while e boolean set rsdados = new adodb.recordset dim existe as boolean existe=false do while rsdados.eof=false and existe=false if rsdados(..)=.. and rsdados(...)=.... then existe=true end if rsdados.movenext loop if existe=true then ... elseif existe=false and rsdados.eof=true then ... end if

set rsdados = new adodb.recordset rsdados.open "select * from tabela WHERE coluna1='" & txt1.text & "' and coluna2='" & txt2.text & "'",abb fiz digitando aqui então pode conter erros, mas acho q esta certinho, da uma testada e nos poste o resultado:)