ƒ Edu ƒ

Uma dúvida... Eu posso declarar esse command e esse outro rs no mesmo modulo que eu utilizei para as conexões do BD? Se sim, só teria que alterar o nome desse recordset ai né, ou posso utilizar 1 recordset para as duas funções? Em relação ao Grid... Na tela de busca de alunos, caso o usuário escola o critério de busca por "Nome", e havendo vários alunos com o mesmo nome, o resultado deve ser exibido no Grid só que, o usuário precisará dar um click duplo no aluno desejado para exibir o cadastro por completo em outro form. O Grid tem essa função de click para exibir os dados em outro form? Desde já, agradeço pelo esclarecimento. Abraço.

Pessoal, gostaria de saber qual o controle apropriado para exibir uma lista de cadastros armazenada em um BD Access durante uma busca? Seria uma busca de alunos, e quero exibir no resultado somente Nome, Matricula, RG e alguns dados principais, mas não sei qual o controle utilizo, pois é a primeira vez que tenho esta necessidade. Li sobre o DataGrid, mas pelo que entendi, tenho que usar outro controle junto chamado "Data", mas este é desnecessário à minha necessidade. Pensei em um controle que eu apenas efetuo a busca, coloco os dados do aluno no controle através de um additem ou algo parecido... O que vocês me sugerem? Abraços.

Nossa meu, como eu queria manjar de VB igual a você! Funcionou perfeitamente! Mais uma dúvida... A busca funcionou sem o INNER JOIN, mas o que pode melhorar se eu coloca-lo no código? Abraços

Olá pessoal. Preciso consultar dados em 2 tabelas do banco em Access ao mesmo tempo, e jogar o resultado nos campos de um formulário. Quando executo a busca, o vb me retorna o erro "O item não pode ser encontrado na coleção correspondente ao nome ou ordinal solicitado". O erro refere-se ao campo codaluno que deveria ser exibido no frmAluno.txtAluno. O campo codaluno é do tipo numero. Estou utilizando o seguinte código: Private Sub cmdBuscar_Click() Dim strbusca As Integer Call Abrir_Banco strbusca = TxtMat sql = "SELECT tbaluno.*, tbfiliacao.* FROM tbaluno, tbfiliacao Where tbaluno.codaluno = " & strbusca & "" Set rs = New ADODB.Recordset rs.ActiveConnection = bd rs.CursorLocation = adUseClient rs.CursorType = adOpenStatic rs.Open sql, bd, adOpenStatic, adLockOptimistic If Not rs.EOF Then frmAluno.txtShow = rs!codaluno frmAluno.txtAluno = rs!nomealuno frmAluno.txtBairro = rs!bairro frmAluno.txtBairroMae = rs!bairromae frmAluno.txtBairroPai = rs!bairropai frmAluno.txtCEP = rs!cep frmAluno.txtCEPMae = rs!cepmae frmAluno.txtCEPPai = rs!ceppai frmAluno.txtCidade = rs!cidade frmAluno.txtCidadeMae = rs!cidademae frmAluno.txtCidadePai = rs!cidadepai frmAluno.txtDataMat = rs!datamatricula frmAluno.txtDataNasc = rs!datanascimento frmAluno.txtEndereco = rs!endereco frmAluno.txtEndMae = rs!enderecomae frmAluno.txtEndPai = rs!enderecopai frmAluno.txtMae = rs!nomemae frmAluno.txtPai = rs!nomepai frmAluno.txtRG = rs!rg frmAluno.txtSexo = rs!sexo frmAluno.txtTelefone = rs!telefone frmAluno.txtTelMae = rs!telmae frmAluno.txtTelPai = rs!telpai frmAluno.txtUF = rs!estado frmAluno.txtUFMae = rs!estadomae frmAluno.txtUFPai = rs!estadopai Unload Me frmAluno.Show Else TxtMat = "" MsgBox "Aluno não encontrado", vbInformation, "Aviso" TxtMat.SetFocus End If rs.Close End Sub Alguém sabe me dizer onde está o erro?

Tenho problemas com um botão atualizar em minha aplicação que trabalha com bd SQL. Minha aplicação faz cadastro de alunos no banco, logo tenho que ter um botão para alterar os dados e atualizá-los no banco. Esse botão está com um bug. Ao alterar os dados no programa, os campos que correspondem a "Data" são atualizados, mas o banco reseta a data para "1/1/1990". Já tentei de tudo para concertar o código mas não consigo. No SQL, a criação do campo está correta como Datetime. O código é este: Private Sub cmdUpdate_Click() Dim codigo As Integer codigo = txtMatResult Call Abrir_Banco sql = "select* from tbaluno,tbfiliacao" Set rs = New ADODB.Recordset rs.ActiveConnection = bd rs.CursorLocation = adUseClient rs.CursorType = adOpenStatic rs.Open sql, bd, adOpenStatic, adLockOptimistic sql = "update tbaluno set nomealuno='" & txtAluno & "',bairro='" & txtBairro & "',cep='" & txtCEP & "',cidade='" & txtCidade & "',codturma=" & txtCodTurma & ",datamatricula='" & txtDataMat.Text & "',datanascimento=" & txtDataNasc.Text & ",endereco='" & txtEndereco & "',rg='" & txtRG & "',sexo='" & txtSexo & "',telefone='" & txtTelefone & "',estado='" & txtUF & "' where tbaluno.codaluno=" & codigo & "" bd.Execute (sql) rs.Close bd.Close MsgBox "Dados Atualizados com êxito!", vbInformation, "Aviso" End Sub Eu nem consegui concluir o código devido ao problema, mas tem mais um bloco para atualizar dados na tbfiliacao.

Galera, eu to começando no VB, estou muito determinado à ser um bom programador. Eu vejo muitos códigos que fazem coisas tão legais aqui no forum, mas eu ainda não consigo interpretá-los. Quero saber a opnião de vocês que já trabalham com VB, se eu ficar copiando os códigos, mesmo que seja de início, isto pode prejudicar meu desenvolvimento como programador? Ou isto é normal nas empresas, os caras buscarem códigos prontos? Desde já agradeço.

Se não for pedir muito, poderia me dar um exemplo de como ficaria o código, pois eu sou novato com VB, nunca trabalhei com arrays... Vasculhei a internet inteira pra tentar achar alguma de implementar um array pra essa minha necessidade mas não achei nada, somente alguns conceitos de arrays que não me ajudaram. =/

Pessoal, tenho problemas com um ComboBox... Tenho um botão em um form que add o conteúdo de um txtbox como 1 item em um combobox que fica em outro form. Eu abro o combox, está certinho, os dados adicionados, mas ao fechar o form do combobox e abri-lo denovo, o combobox está limpo, ou seja, não mantém os dados adicionados anteriormente. Como faço para manter os dados do combobox quando fecho seu form para poder abri-lo posteriormente? Tentei jogar o conteúdo do combobox em uma variável string ao fechar o form, e jogar os dados dela para o combobox ao dar load no form, mas não sei ao certo qual atributo representa a lista de itens no combobox para poder joga-lo na variável, daí não consegui. Talvez eu tenha usado um tipo de variável errado para a situação. Alguém pode me ajudar? =) PS: Só pra esclarecer... Este ComboBox será um "histórico".

Kuroi valeu mesmo cara... Funcionou legal. Dei uma lida la no tutorial, muito bom também.

Qual é galera? Alguém sabe como resolver a questão acima? Por favor me ajudem!!! Meu futuro como programador depende da resolução desse problema ai... hehe

Olá galera. Estou com problemas em uma aplicação que estou desenvolvendo... Eu preciso abrir arquivos.txt através de um ComboBox, e exibir o conteúdo desse arquivo em um TextBox. Ex: Eu seleciono um item da lista no ComboBox, este item corresponderá à um arquivinho.txt na pasta do programa, quando selecioná-lo, ele deve exibir o conteúdo na TextBox abaixo. Não sei nem se isto é possível, mas tive a idéia e se conseguir vai ficar muito legal. Se alguém puder me ajudar serei eternamente grato. =)