ppgsalomao

Eu queria saber como faço para, por meio de código, pegar uma figura previamente feita e salva na mesma pasta da aplicação, nela colocar alguns textos com coordenadas que eu direi (se possível em pixels em relação a margem superior e a margem esquerda) e logo após imprimir essa figura ! Tem como fazer isso ??

Gente, Estou com o seguinte problema: Em um form eu tenho um CommandButton com o Caption = Novo e o Name = cmdNovo ! Codificado nele está o seguinte código: Private Sub cmdNovo_Click() With frmGravar .Caption = "Gravar novo Membro" .adDados.Recordset.AddNew .Show End With Unload Me End Sub Aí no form frmGravar eu tenho o ADO Data Control adDados que acessa uma base de dados que eu configurei ! Até aí tudo bem ! Só que eu vinculei os TextBox ao ADO DC atravéz das propriedades DataSource e DataField ... logo eu preciso dar o AddNew para que os campos se zerem e eu consiga inserir um novo registro ! O problema é: Depois que ele preenche as informações e clica em gravar, que é um CommandButton de Caption = Gravar e Name = cmdGravar, que está codificado da seguinte forma: Private Sub cmdGravar_Click() If Trim(Me.txtBairro.Text) = "" Then MsgBox "O Bairro precisa ser digitado", vbExclamation, "Erro" Exit Sub ElseIf Not Trim(Me.txtRegistro.Text) = "" Then If Not IsNumeric(Me.txtRegistro.Text) Then MsgBox "O registro precisa ser numérico", vbExclamation, "Erro" Exit Sub Else adDados.Recordset.Find "registro = " & txtRegistro.Text If Not adDados.Recordset.EOF Then MsgBox "O registro digitado já está cadastrado", vbExclamation, "Erro" Exit Sub End If End If ElseIf Trim(Me.txtReligião.Text) = "" Then MsgBox "A religião precisa ser digitada", vbExclamation, "Erro" Exit Sub ElseIf Trim(Me.txtTurno.Text) = "" Then MsgBox "O Turno de Estudo do jovem precisa ser digitado", vbExclamation, "Erro" Exit Sub Else adDados.Recordset.Update frmPrincipal.adDados.Refresh frmPrincipal.adDados.Recordset.MoveLast frmPrincipal.Show Unload Me End If End Sub Ele faz a verificação e no caso de ter algo incompatível, ele retorna a mensagem e teoricamente volta para a edição ! Só que se eu clico em cancelar, que é um botão que está codificado da seguinte forma: Private Sub cmdCancelar_Click() frmPrincipal.adDados.Refresh frmPrincipal.Show Unload Me End Sub ou fecho o form, ele adiciona o registro mesmo que não tenha passado na verificação ! Como resolvo isso ?? Obrigado desde já !

De certinho !! Valeu !

Fala, Seguinte, O que acontece é que eu não queria ter de criar um outro ADODC para fazer essas verificações ! Que eu posso até fazer com outro ADO DC que é fácil ... mas eu queria estar usando algo do gênero ! O ADO aqui de casa ele não tem FindNext ... Aih me complica ! Ele só tem Find !

É sim ! Já tentou com ADO ?

Olá, Desculpe importunar de novo com o mesmo tema, mas estou tentando e o VB reclama ... e não achei nenhuma solução para ! O código que tentei usar: If Not Trim(Me.txtRegistro.Text) = "" Then If Not adVerif.Recordset.Find("registro = " & txtRegistro.Text) Then MsgBox "O registro digitado já está cadastrado", vbExclamation, "Erro" soluc = False Exit Sub ElseIf Not IsNumeric(Me.txtRegistro.Text) Then MsgBox "O registro precisa ser numérico", vbExclamation, "Erro" soluc = False Exit Sub End If End If Ele mostra um erro que diz : Compile Error: Expected Function or Variable E aponta para o .Find !

Como faço para que um recordset (ADO) vá para um determinado registro ? Sem alterar a sentença SQL dele ? Exemplo: Tabela 1 ID Nome 0 Marco 1 Pedro 2 Paulo 3 Jair 4 Issa 5 Gladisson Aí ele estando no registro 3, quero que ele vá para o registro 1 podendo depois com um MoveNext ir para o registro 2 e um MovePrevious ir para o registro 0 ! Estou usando um ADODC

Gente, Brigado mas já descobri ! Atravéz do desenvolvimento de uma dúvida de um colega aqui do fórum mesmo em outro tópico, consegui chegar no recordset gerado pelo Adodc ! Para aqueles que por ventura precisarem, é só fazer assim: Adodc1.Recordset E trabalhar com ele como um RecordSet comum !

Seguinte, Adicionei e configurei o Adodc no meu formulário e tudo mais ! Mas não queria usar os "botões" dele ! Eu queria poder deixá-lo com Visible False (coisa que já fiz) e poder navegar nos registros atravéz de Command Buttons que eu coloquei no formulário ! Como fazer isso ? porque tipo, eu não consegui retornar nenhum recordset do Adodc !!

cara, Isso já foi postado antes !! Faz assim oh: <html> <body> <table> <? $cor[0] = "#000000"; $cor[1] = "#111111"; for($i=0; $i < 10; $i++) { echo "<tr bgcolor=" . $cor[$i % 2] . "><td>&nbsp;</td></tr>"; } ?> </table> </body> </html> ?>

Qual é o seu sistema operacional ? Para usar essas funções você tem que habilitar a biblioteca mcrypt !

Seguinte IkkiNet, O que aconteceu foi o seguinte, apenas para recordar: Conversando com o Gladisson, resolvemos colocar em votação o tema do 4º desafio, visto que era legal como experiência para os usuários ! O tema em equipes foi votado, e tomei a parte de organização desse desafio ! Quando comecei a organizar, sabia que esse tipo de coisa iria acontecer ! E algumas pessoas vieram me alertar inclusive ! E para elas eu disse: "Eu sei que isso vai acontecer, mas quero que eles vejam com os próprios olhos!", pois eu acredito na estratégia de aprender fazendo ! Por que, por mais que eu diga, só se tem o aprendizado com a experiência ! Agora, Acho que houve um pequeno equívoco ! Em momento nenhum foi cobrado design, e sim a programação ! É bom ter um ?! Claro ! E tipo, não estou criticando ninguém pessoalmente ! Estou generalizando ! Levando-se em conta que nenhuma equipe postou, a maioria das pessoas teve esse problema ou problemas semelhantes !! Peço que leia o outro tópico sobre o 4º desafio que eu falei sobre isso !

Fabyo, Esse desafio foi basicamente organizado por mim ! O Error fico "meio" de fora por que chego na moderação no meio do desafio ! E o gladisson não tem muito tempo ! Os dois ajudaram ! Claro ! E quando estava bolando esse desafio, tinha em mente que esse tipo de coisa ia acontecer ! Mas precisa acontecer ! Ao menos uma vez !

Gente, Eu vou falar o seguinte: Como eu coloquei lá ! Eu até poderia estender o prazo ! Com tranquilidade ! Mas esses desafios não são assim sem motivo ! Por que para pra pensar: O sistema de enquete não é complexo, nem tão pouco de grande porte ! É um sistema relativamente simples ! Eu dei um mês para ser feito ! E para ser feito em equipes de 3 a 4 pessoas ! Na nossa vida profissional, os que já engajaram nela sabem, não existe isso ! Se você tem um prazo a cumprir, você faz de tudo para ! O grande objetivo desse desafio era mostrar essa deficiência de comunicação e conclusivamente não produtividade que nós temos, e que antes de tudo tem que acabar !

Bom gente, Com esse final de desafio chegamos a uma conclusão que eu já havia imaginado antes, porque geralmente é a realidade ! Nós aqui no fórum temos uma deficiência que pode ser duas coisas: 1 - Não conseguir trabalhar em equipe, que para profissionais da nossa área é péssimo ! Visto que geralmente estaremos trabalhando em equipe ! 2 - Não cumprir com a sua parte do sistema elaborado pelos próprios membros da equipe ! Que também é uma péssima prática para profissinais de qualquer área ! Visto que sempre dependemos de prazos ! Não estou criticando pessoalmente a ninguém ! Estou constatando uma coisa ! E fica como aprendizado ! Algumas pessoas antes do Desafio terminar já haviam falado comigo sobre problemas dentro das equipes ! Eu sugiro que aqueles que pecaram na elaboração do sistema, que sabem quem são e eu não preciso citar, até por que não sei quem são, que pensem bem em como estão lidando com a vida ! Até uma vida de mentiras tem um limite ! Bom, o recado tá dado ! Agora a reflexão fica por parte do pessoal ! Manterei o tópico aberto por mais algum tempo pois acho legal que todos possam contribuir ! Abraços, Pedro

Sim !

Gente, Hoje é dia 1º e não tem nenhum sistema lá ! Em breve postarei uma mensagem naquele tópico a respeito !

Dá sim ! Lógico que tem excessões ! Da próxima vez testa antes de perguntar ok ?

Cara, Só um detalhe: Faz o que o Breno sugeriu e, Não existe como Selecionar mais de uma opção no ComboBox ! Se dá pra selecionar mais de um deve ser um ListBox !

Olá pessoal ! Beleuza ? Espero que sim ... Seguinte, As Equipes inscritas no Desafio, favor postar nesse tópico o link para o sistema em questão ! Como vocês devem fazer isso ? Da seguinte forma: APENAS UM MEMBRO DA EQUIPE VAI POSTAR UMA MENSAGEM COM O SEGUINTE PADRÃO: E deverá me mandar uma PM com o link para baixar o pacote compactado com o sistema ! Os que não tiverem como hospedar o sistema, apenas me enviem uma PM !!

Tenta assim:

Posta isso lá no fórum da ScriptBrasil !! O Link: http://scriptbrasil.com.br/forum/index.php?showforum=36

Saca:

O banco de dados existe e tem emails válidos cadastrados nele ?? A conexão tá certinha ? o nome da tabela é esse mesmo ? Por que esse nome geralmente muda de acordo com o usuário !