Ir para conteúdo

KALAND

Members
  • Total de itens

    4
  • Registro em

  • Última visita

Reputação

0 Comum

Sobre KALAND

  1. KALAND

    vb net cristalreport

    Última edição em 12/03/2018 16:35:32 por KALAND Olá pessoal estou fazendo um cadastro de estoque onde tenho um form venda que efetua a venda do produto e dou baixa no estoque que ao clicar em finalizar ele grava as informações no banco e me abre um form com cristalreport onde aparece os dados da compra efetuada, porem ele esta me retornando todos os dados das vendas anteriores tbem. No caso so queria da ultima que efetuei. Alguem poderia me ajudarsegue o código que estou utilizando Private Sub btnfinalizar_Click(sender As Object, e As EventArgs) Handles btnfinalizar.Click Dim numero As Integer con.Open() sql = "select * from faturas where nfaturas = '" & txtnfatura.Text & "'" da = New FbDataAdapter(sql, con) tabela = New DataTable() da.Fill(tabela) numero = tabela.Rows.Count con.Close() obterultimoregistro() F_relfaturas.Show() End Sub Private Sub obterultimoregistro() Try con.Open() Dim cmd As New FbCommand cmd.CommandText = "select MAX (NFATURAS)from FATURAS" cmd.CommandType = CommandType.Text cmd.Connection = con da.SelectCommand = cmd con.Close() tabela.Clear() da.Fill(tabela) Dim nfaturas As String = tabela.Rows.Item(0).Item(0).ToString Catch ex As Exception MsgBox(ex.Message) End Try End Sub
  2. KALAND

    gridview vb.net

    Olá Pessoal bom dia.Estou com um problema . Tenho um form onde eu efetuo o cadastro de imoveis e outro forme onde eu pesquisa. Neste forme pesquisa tenho um gridview onde contem os dados buscando em meu banco de dados, inclusive uma coluna imagem onde estou armazenando as imagens cadastradas junto com o cadastro de imoveis.Neste forme pesquisa inseri um código no grid que ao clicar duas vezes ele abre os dados em outro form com todas as informações daquele determinado imóvel, mas infelizmente não estou conseguindo trazer as fotos para quando efetuar esta pesquisa ele aparecer neste outro form em uma picturebox junto com os dados do imovel. Segue meu código se alguém puder me ajudar agradeço de coração. Private Sub gdvLoc_vend_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles gdvLoc_vend.CellDoubleClick My.Forms.PesquisaImoveis.txtNome.Text = gdvLoc_vend.CurrentRow.Cells("NOME").Value.ToString() My.Forms.PesquisaImoveis.txtValor.Text = gdvLoc_vend.CurrentRow.Cells("VALOR").Value.ToString() My.Forms.PesquisaImoveis.txtTipoImv.Text = gdvLoc_vend.CurrentRow.Cells("TIPO").Value.ToString() My.Forms.PesquisaImoveis.txtLoc_vend.Text = gdvLoc_vend.CurrentRow.Cells("LOCACAO").Value.ToString() My.Forms.PesquisaImoveis.txtBairro.Text = gdvLoc_vend.CurrentRow.Cells("BAIRRO").Value.ToString() My.Forms.PesquisaImoveis.txtCondominio.Text = gdvLoc_vend.CurrentRow.Cells("CONDOMINIO").Value.ToString() My.Forms.PesquisaImoveis.txtCidade.Text = gdvLoc_vend.CurrentRow.Cells("CIDADE").Value.ToString() My.Forms.PesquisaImoveis.txtUf.Text = gdvLoc_vend.CurrentRow.Cells("UF").Value.ToString() My.Forms.PesquisaImoveis.txtCep.Text = gdvLoc_vend.CurrentRow.Cells("CEP").Value.ToString() My.Forms.PesquisaImoveis.txtEnd.Text = gdvLoc_vend.CurrentRow.Cells("ENDERECO").Value.ToString() My.Forms.PesquisaImoveis.txtDescricao.Text = gdvLoc_vend.CurrentRow.Cells("DESCRICAO").Value.ToString() My.Forms.PesquisaImoveis.txtIdImovel.Text = gdvLoc_vend.CurrentRow.Cells("ImovelId").Value.ToString() My.Forms.PesquisaImoveis.picFoto.Image = gdvLoc_vend.CurrentRow.Cells("Imagem").Value.ToString() Close() End Sub kaland
  3. KALAND

    [Resolvido] UPDATE VB.NET

    Olá quintelab. Muito obrigada pela ajuda , o problema era este mesmo. Agradeço muito
  4. KALAND

    [Resolvido] UPDATE VB.NET

    Olá pessoal tudo bemEstou desenvolvendo um programa em vb.net com banco em firebird, onde gravo meus textbox e um picturebox , porém ao efetuar a atualização me volta um erro alegando que meu select está incorreto. Alguém poderia me ajudar?Agradeço Desde JáSegue meu código onde contém o select do erro mencionado. Private Sub AlterarDados() Try fbCon.Open() Dim arrFilename() As String = Split(Text, "\") Array.Reverse(arrFilename) Dim ms As New MemoryStream picImagem.Image.Save(ms, picImagem.Image.RawFormat) Dim arrImage() As Byte = ms.GetBuffer With fbCmd .CommandType = CommandType.Text .CommandText = "" .CommandText = "UPDATE IMOVEIS SET imagem = @Imagem, TIPO = '" & txtTipoImv.Text & "', CEP = '" & txtCep.Text & "' , ENDERECO = '" & txtEnd.Text & "', CONDOMINIO = '" & txtCondominio.Text & "' , CIDADE = '" & txtCidade.Text & "' , UF = '" & txtUf.Text & "' , DESCRICAO = '" & txtDescricao.Text & "' ,LOCACAO = '" & txtLoc_vend.Text & "' , VALOR = '" & txtValor.Text & "' , NOME = '" & txtNome.Text & "' WHERE IMOVELID = " & txtIdImovel.Text & "'" & "SELECT * FROM IMOVEIS WHERE IMOVELID= " & txtIdImovel.Text & "'" .Connection = fbCon .Parameters.Add(New FbParameter("@Imagem", SqlDbType.Image)).Value = arrImage End With fbCmd.ExecuteNonQuery() carregarDados() MsgBox("Registro Alterado com Sucesso.", MsgBoxStyle.Information) Catch ex As Exception MsgBox(ex.Message) Finally fbCmd.Parameters.Clear() fbCon.Close() End Try End Sub
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.