Gustavo Ricardo

opaa td sim e vc? então cara se eu faço da forma q você falou da o seguinte erro : There is already an open DataReader associated with this Command which must be closed first. ai qd eu fexo a conexao da verificação se o aluno está com o livro locado ou não ele da erro dizendo q eu n fexei a conexao do try, e se eu n abro a conexao no try ele da erro também :s aee consegui brigadao pela ajuda, o codigo fiocu da seguinte forma: Dim sql As String = "exec pr_dev_Aluguel '" + mskRG.Text + "','" + txtNomeLivro.Text + "'" Dim cmd As New SqlCommand(sql, cn) Dim sql2 As String = "exec pr_upd_Devolucao_QtdLivros '" + txtNomeLivro.Text + "','" + txtQtdDevolver.Text + "'" Dim cmd2 As New SqlCommand(sql2, cn) Dim sqlPesquisa As String = "pr_sel_Aluguel '" + txtNome.Text + "','" + txtNomeLivro.Text + "'" Dim cmdPesquisa As New SqlCommand(sqlPesquisa, cn) cn.Open() dr = cmdPesquisa.ExecuteReader If dr.HasRows = False Then MsgBox("Este aluno não está com este livro locado") Exit Sub dr.Close() End If cn.Close() Try cn.Open() cmd.ExecuteNonQuery() cmd2.ExecuteNonQuery() txtIDlivro.Clear() txtNomeLivro.Clear() txtAutor.Clear() txtEditora.Clear() MskDataEntrega.Clear() txtQtdDevolver.Clear() MskDataEntrega.Clear() mskRG.Clear() txtNome.Clear() txtAutor.Clear() txtIDaluno.Clear() txtDataAluguel.Clear() Finally cn.Close() End Try MsgBox("Livro devolvido com Sucesso")

Pessoal estou desenvolvendo um programa para uma biblioteca em vb.net e sql 2008 ai estou fazendo a tela de devolução de livros e tenho as seguintes tabelas: alunos,livros e aluguel, ai estou com um problema na tela de devolução de livro, estou qrendo fazer a verificação se este aluno realmente tem este livro alugado, sendo assim faço uma pesquisa na tabela aluguel onde nome_aluno=@nome_aluno and Nome_Livro=@Nome livro maas está dando o segiunte erro: The connection was not closed. The connection's current state is open. maas eu já tentei fexar o cn.close em tudo qualquer lugar mas n da certo :s segue meu codigo : Dim sql As String = "exec pr_dev_Aluguel '" + mskRG.Text + "','" + txtNomeLivro.Text + "'" Dim cmd As New SqlCommand(sql, cn) Dim sql2 As String = "exec pr_upd_Devolucao_QtdLivros '" + txtNomeLivro.Text + "','" + txtQtdDevolver.Text + "'" Dim cmd2 As New SqlCommand(sql2, cn) Dim sqlPesquisa As String = "pr_sel_Aluguel '" + txtNome.Text + "','" + txtNomeLivro.Text + "'" Dim cmdPesquisa As New SqlCommand(sqlPesquisa, cn) cn.Open() dr = cmdPesquisa.ExecuteReader If dr.HasRows = False Then MsgBox("Este aluno não está com este livro locado") cn.Close() dr.Close() Exit Sub End If If dr.HasRows = True Then Try cn.Open() cmd.ExecuteNonQuery() cmd2.ExecuteNonQuery() txtIDlivro.Clear() txtNomeLivro.Clear() txtAutor.Clear() txtEditora.Clear() MskDataEntrega.Clear() txtQtdDevolver.Clear() MskDataEntrega.Clear() mskRG.Clear() txtNome.Clear() txtAutor.Clear() txtIDaluno.Clear() txtDataAluguel.Clear() Finally cn.Close() End Try MsgBox("Livro devolvido com Sucesso") End If algm sabe onde está este erro? porque já n sei mais o que fazer ai :s obrigado. o erro é logo no cn.open depois do TRY e se eu tiro a verificação do sqlPesquisa e tal, o codigo funciona normal

Pessoal estou com o seguinte problema : estou fazendo um programa pra biblioteca e estou com um problema na tela de devolução, tenho as tabelas de alunos, livros e aluguel, ai eu tenho a tela de aluguel de livros, que funciona perfeitamente, ai qd eu faço um aluguel, e vou na tela de devolução testar eu qro fazer uma verificação se o aluno realmente está com o livro locado, ai eu fiz o seguinte código Dim sql As String = "exec pr_dev_Aluguel '" + mskRG.Text + "','" + txtNomeLivro.Text + "'" Dim cmd As New SqlCommand(sql, cn) Dim sql2 As String = "exec pr_upd_Devolucao_QtdLivros '" + txtNomeLivro.Text + "','" + txtQtdDevolver.Text + "'" Dim cmd2 As New SqlCommand(sql2, cn) Dim sqlPesquisa As String = "select Nome , Nome_Livro from Aluguel '" + txtNome.Text + "','" + txtNomeLivro.Text + "'" Dim cmdPesquisa As New SqlCommand(sqlPesquisa, cn) cn.Open() dr = cmd.ExecuteReader If dr.HasRows = False Then MsgBox("Este aluno não está com este livro locado") cn.Close() Else Try cn.Open() cmd.ExecuteNonQuery() cmd2.ExecuteNonQuery() txtIDlivro.Clear() txtNomeLivro.Clear() txtAutor.Clear() txtEditora.Clear() MskDataEntrega.Clear() txtQtdDevolver.Clear() MskDataEntrega.Clear() mskRG.Clear() txtNome.Clear() txtAutor.Clear() txtIDaluno.Clear() txtDataAluguel.Clear() Finally dr.Close() cn.Close() End Try MsgBox("Livro devolvido com Sucesso") End If mas ai qd o aluno n esta com o livro locado eu qria q aparecesse a mensagem dizendo q ele n esta com o livro locado maas se ele realmente estivesse ele continuar o codigo normalmente e dar a mensagem livro devolvido com sucesso ai qd o aluno realmente n tem o livro locado ele da o erro dizendo q n tem o livro locado para esse aluno, e qd tem ele da a mesmo mensagem dizendo q o aluno n tem o livro locado, mesmo ele tendo, e o programa ainda apaga normalmente o aluno dos registro de aluguel, algm pode me ajudar? desculpe pelo texto mt grande :s vlw.

Bom galera tenho q entregar um trabalho do curso hoje o trabalho é esse "elabore um programa para o modelo de classe a seguir: Class tVetor Protected int Vet [10] void RecebaValores () float CalculeMedia () float CalculaDisvioPadrao () float Somatoria () Void MostraValores () _________________ Ckass Principal tVetor Valor void main () _________________ O metodo main, da classe princial, devera executar os metodos do objeto valor na seguinte ordem: RecebaValores MostraValores CalculaMedia Somatoria CalculaDesvioPadrao e ate agr consegui fazer isso : //Nome do arquivo : tVetor.java Public class tVetor { protected int vet[] = new int [10]; public void recebeValores () { //Código int rv; Scanner entrada = new Scanner(System.in); System.out.println("Digite os números: "); for(rv = 0; rv < 10; a++) { System.out.print((rv+1) + ": "); vetor[rv] = entrada.nextInt(); } } public float calculaMedia () { //Código double soma = 0; double media = 0; for (int i = 0; i < 10; i++) { soma += valores[ i ]; } media = soma / 10; return media; } } public float caulaDisvioPadrao () { //Código } public float Somatoria () { //Código float Somatoria = 0; for (int I = 0; I < vetor.length; a++) Somatoria += vetor[I]; return Somatoria; } public void mostraValores () { //Código int a; System.out.println("\nOs valores são:\n"); for(a = 0; a < 10; a++) { System.out.println("Valor: " + (a) + ": " + vetor[a]); } } FÓRMULA de somatoria soma = soma + vet[a] raiz quadrada: sqrt (valor) desvio = sqrt (Somatoria () ) e aii tem como algm me ajuda com isso aai?? ajuda a fazer desvio padrão e tal?? serio mesmo isso tudo q eu fiz foi com ajuda em foruns porque n consigo entender essa materia por favoor quebra ese galho aii e me ajudem a termina isso aii?? vlw aee