ƒ Edu ƒ

Membros
  • Content Count

    36
  • Joined

  • Last visited

Community Reputation

0 Neutro

About ƒ Edu ƒ

  1. Meu caro, que tal você acrescentar somente um "And" nesse IF? Assim: If (TypeOf c Is TextBox) and (c.text <> null) Then c.Text = "" End If Talvez a sintaxe não esteja correta para o ASPX, pois nunca programei nessa linguagem, mas a lógica seria esta. Abraço.
  2. O C# não aceita esta sintax codigo = dr("codaluno") + 1; Teria que ser assim: codigo = dr["codaluno"] + 1; Mas também não da: Error Operator '+' cannot be applied to operands of type 'object' and 'int' Se eu tento assim também não resolve: codigo = (dr["codaluno"] )+ 1;
  3. Olá galera. Estou utilizando C# para fazer uma tela de cadastro de alunos, ao clicar em registrar, os dados do formulário são inseridos no banco de dados, mas neste momento deve ser gerado o código do aluno automaticamente e inserido junto com os outros dados no BD... Eu possuo o código mas em Visual Basic vejam: If rs.RecordCount = 0 Then codigo = 1 Else rs.MoveLast codigo = rs("codaluno") + 1 End If No C# consegui chegar até este código: Declarei a variável int codigo. if (dr.HasRows == true) { codigo = 1; } else { dr.Read(); codigo = dr.NaoSeiQual("codaluno") + 1; } O problema é que não sei qual a propriedade que refere-se ao registro da coluna ("codaluno") para adicionar +1 caso já exista algum...
  4. Beleza cara. Valeu pela ajuda. Ta tudo funcionando certinho. Abraço.
  5. Valeu Graymalkin, funcionou. Agora tem um complemento para esta função caso eu esteja usanto algum controle tipo tabpage, tabcontrol, panel, etc, para que este método faça a varredura nas textboxes contidas nestes controles... Mas o código que eu vi na net não fez muito sentido pra mim. Tentei da seguinte forma, mas não limpou nada no form: public static void LimparTextBox(Control formulario) { foreach (Control controle in formulario.Controls) { if (controle.GetType().ToString() == "System.Windows.Forms.GroupBox" || controle.GetType().ToString() == "System.Windows.Forms.TabControl" || controle.GetType().ToString() == "System.Windows.Forms.Panel" || controle.GetType().ToString() == "System.Windows.Forms.TabPage" ) { LimparTextBox(controle) if (controle.GetType().ToString() == "System.Windows.Forms.TextBox") { controle.Text = ""; } } } }
  6. Galera, estou usando C#, e criei um método para limpar todas as textbox do form, mas não consigo chamar este método em outro form passando o form atual como parâmetro... Método: public static void LimparTextBox(Control formulario) { foreach (Control controle in formulario.Controls) { if (controle.GetType().ToString() == "TextBox") { controle.Text = ""; } } } No botão limpar eu tento chamar o método: private void LimparButton_Click(object sender, EventArgs e) { MenuForm.LimparTextBox(IncidenteForm); } Ao tentar compilar ele retorna o erro: Error 'HelpTool.IncidenteForm' is a 'type' but is used like a 'variable'
  7. Galera... Preciso copiar o nome e cod do aluno da tbaluno para a tbmatricula, mas com 2 condições: O nome e cod do aluno têm que fazer referência com o que está sendo exibido no DataGrid, e estes dados devem ser copiados para o campo de acordo com o que foi selecionado no Combo2. Mas ao executar, o programa me retorna um erro dizendo "Nenhum valor foi fornecido para um ou mais parametros necessários". Eu sei que isso está ocorrendo porque tem algo errado na instrução SQL, mas não sei achar onde está o erro e, não conheço outra forma de fazer esta cópia de dados. Alguém consegue ver onde está o erro? Private Sub cmdIncluir_Click() If rsGridTurma.State <> 0 Then rsGridTurma.Close End If 'sql = "select tbaluno.nomealuno, tbaluno.codaluno, tbmatricula.nomealuno, tbmatricula.codaluno " 'sql = sql & " from tbaluno inner join tbmatricula on tbaluno.codaluno = tbmatricula.codaluno" 'sql = sql & " where tbmatricula.nometurma = '" & Combo2.Text & "'" 'sql = sql & " and tbaluno.codaluno = '" & GridAluno.Columns(0).Value & "'" 'Set rsGridTurma = New ADODB.Recordset 'rsGridTurma.Open sql, bd, adOpenStatic, adLockOptimistic With cmd .ActiveConnection = bd .CommandType = adCmdText .CommandText = "insert into tbmatricula" & _ "(codaluno,nomealuno) select codaluno,nomealuno from tbaluno" & _ " where tbaluno.codaluno = '" & GridAluno.Columns(0).Value & "'" & _ " and tbturma.nometurma = '" & Combo2.Text & "'" .Execute End With MsgBox "Aluno incluso na turma com êxito!", vbInformation, "Aviso" End Sub
  8. Preciso especificar a propriedade Value também?
  9. Pessoal, preciso fazer uma consulta no BD utilizando um critério de busca, mas o critério que eu quero utilizar é o dado de um campo do DataGrid. Seria assim "Where tbaluno.codaluno = campo do grid " Mas não sei qual a propriedade do DataGrid que corresponde ao dado tal, da linha x e coluna y... Alguém pode dar uma dica? Valeu.
  10. Valeu cara. Dúvidas esclarecidas... Pode fechar o tópico se precisar. Abraço.
  11. Deu certo cara, valeu mesmo. Têm como ajustar os forms filhos para abrirem no tamanho de acordo com o Pai? Procurei por ai mas não achei nada do tipo...
  12. Então Kuroi, o problema é que não sei a sintax pra chamar esta função. Se eu coloco "Centraliza (frmMenu,frmbuscaaluno)" a linha fica vermelha. Ele pede sinal de "=". Centraliza (frmMenu,frmbuscaaluno)="Mas não sei o que eu tenho que colocar aqui".
  13. Então, fiz essa correção ai, mas não to conseguindo chamar essa sub no Load do form... A sintax não é assim: Centraliza(frmMenu, frmBuscaAluno)
  14. Alguém sabe como faço para centralizar um form Child em um MDI? Achei esta função no Macoratti mas não to conseguindo chama-la: Public Sub Centraliza(Parent As Form, Child As Form) Dim iTop As Integer Dim iLeft As Integer If Parent.WindowState <> 0 Then iTop = ((Parent.Height - Child.Height) \ 2) iLeft = ((Parent.Width - Child.Width) \ 2) Child.Move iLeft, iTop End Sub
  15. Vamos lá meu amigo... Segue abaixo o código do form de login do meu programa. Da uma olhada, tente entende-lo. Depois pra fazer um form de alterar é bem facil: Private Sub cmdOkLogin_Click() Dim strbusca, strsenha As String strbusca = txtLogin strsenha = txtPass If txtLogin = "" Then MsgBox "Favor inserir um nome de usuario.", vbInformation, "Aviso" txtLogin.SetFocus Else Call Abrir_Banco 'Esta linha é uma função que contém a string de conexão com o banco de dados. sql = "select * from tblogin" Set rs = New ADODB.Recordset rs.CursorLocation = adUseClient rs.Open sql, bd, adOpenStatic, adLockOptimistic If frmLogin.txtLogin = rs!usuario And frmLogin.txtPass = rs!senha Then Unload Me frmMenu.Show Else MsgBox "Nome de usuario e senha incorretos", vbInformation, "Aviso" txtLogin.SetFocus rs.Close End If Set rs = Nothing bd.Close End If End Sub Tenta fazer com banco de dados primeiramente, se der certo o login através do banco, você volta aqui, que eu te falo como alterar a senha também. Abraço!