Ir para conteúdo
Fórum Script Brasil

Pesquisar na Comunidade

Mostrando resultados para as tags ''visual basi''.

  • Pesquisar por Tags

    Digite tags separadas por vírgulas
  • Pesquisar por Autor

Tipo de Conteúdo


Fóruns

  • Programação & Desenvolvimento
    • ASP
    • PHP
    • .NET
    • Java
    • C, C++
    • Delphi, Kylix
    • Lógica de Programação
    • Mobile
    • Visual Basic
    • Outras Linguagens de Programação
  • WEB
    • HTML, XHTML, CSS
    • Ajax, JavaScript, XML, DOM
    • Editores
  • Arte & Design
    • Corel Draw
    • Fireworks
    • Flash & ActionScript
    • Photoshop
    • Outros Programas de Arte e Design
  • Sistemas Operacionais
    • Microsoft Windows
    • GNU/Linux
    • Outros Sistemas Operacionais
  • Softwares, Hardwares e Redes
    • Microsoft Office
    • Softwares Livres
    • Outros Softwares
    • Hardware
    • Redes
  • Banco de Dados
    • Access
    • MySQL
    • PostgreSQL
    • SQL Server
    • Demais Bancos
  • Segurança e Malwares
    • Segurança
    • Remoção De Malwares
  • Empregos
    • Vagas Efetivas
    • Vagas para Estágios
    • Oportunidades para Freelances
  • Negócios & Oportunidades
    • Classificados & Serviços
    • Eventos
  • Geral
    • Avaliações de Trabalhos
    • Links
    • Outros Assuntos
    • Entretenimento
  • Script Brasil
    • Novidades e Anúncios Script Brasil
    • Mercado Livre / Mercado Sócios
    • Sugestões e Críticas
    • Apresentações

Encontrar resultados em...

Encontrar resultados que...


Data de Criação

  • Início

    FIM


Data de Atualização

  • Início

    FIM


Filtrar pelo número de...

Data de Registro

  • Início

    FIM


Grupo


AIM


MSN


Website URL


ICQ


Yahoo


Jabber


Skype


Location


Interests

Encontrado 1 registro

  1. Não estou conseguindo salvar mais de uma linha do datagrid no banco de dados. segue imagem a baixo e configuração Public Class frmVendasPedidos Inherits System.Windows.Forms.Form 'Definir o objeto bd da classe JcmSoftDataContext Dim bd As New dcVRDataContext 'Definir objeto da clase DetalhesPedidos Dim oDetalhesPedidos As DetalhesPedidos Dim nomeProduto As String Dim codProduto As String Dim QuantidadeUni As Integer Dim quantidadeCX As Integer Dim precoUniProduto As Double Dim precoCx As Double Dim codigoCliente As String Dim estoqueProduto As Integer Dim Prazo1 As Integer Dim Prazo2 As Integer Dim Prazo3 As Integer Dim Prazo4 As Integer Dim data As Date Dim precoTotal As Double 'Definir una LISTA de Objetos DetalhesPedidos Dim ArrDetalhesPedidos As New List(Of DetalhesPedidos) Private Sub btnSalvar_Click(sender As Object, e As EventArgs) Handles btnSalvar.Click 'Vamos usar o mapeamento feito pelo LINQ 'para efetivar as atualizações nas bases de dados Try 'A expressão lambda a seguir devolve um objeto Cliente 'Estamos usando o codigo do cliente para identificar unicamento o cliente Dim Cli As tblCliente = bd.tblClientes.Single(Function(p) p.IdCliente = Me.txtCodigoCliente.Text) '------------------------------------------------- 'Cria um novo objeto Pedido '------------------------------------------------- Dim oPedido As New tblPedido oPedido.Data = txtData.Text oPedido.IdCliente = Cli.IdCliente oPedido.tblCliente = Cli oPedido.NomeCliente = Cli.Cliente oPedido.NomeProduto = nomeProduto oPedido.QuantidadeUni = oDetalhesPedidos.QuantidadeUni oPedido.QuantidadeCX = oDetalhesPedidos.QuantidadeCX oPedido.PrecoUni = oDetalhesPedidos.PrecoUni oPedido.PrecoCx = oDetalhesPedidos.PrecoCX oPedido.Prazo1 = oDetalhesPedidos.Prazo1 oPedido.Prazo2 = oDetalhesPedidos.Prazo2 oPedido.Prazo3 = oDetalhesPedidos.Prazo3 oPedido.Prazo4 = oDetalhesPedidos.Prazo4 oPedido.PrecoTotal = oDetalhesPedidos.Subtotal '-------------------------------------------------- 'Obtendo os detalhes do pedido 'realizo a geração dos objetos Pedido 'vou percorrer o array dos detalhes do pedido '---------------------------------------------------- For Each o As DetalhesPedidos In ArrDetalhesPedidos 'Instancio um objeto Produto selecionando pelo codigo do produto Dim prod As tblProduto = bd.tblProdutos.Single(Function(a) a.IdProduto = o.CodProduto.ToString()) 'Cria um novo detalhe do pedido Dim detPedido As New tblProduto detPedido.Produto = prod.Produto detPedido.IdProduto = prod.IdProduto detPedido.Quantidade = o.QuantidadeUni '-altera a quantidade de estoque do produto prod.Estoque = prod.Estoque - o.QuantidadeUni Next '------------------------------------------------------ 'Aqui atualizo a base de dados bd.SubmitChanges() MsgBox("Venda registrada com sucesso...") Catch ex As Exception MsgBox(ex.Message) Finally 'chama as rotinas para limpar clientes e produtos e vendas limpar_cliente() limpar_produto() limpar_venda() Me.calcular_total() End Try End Sub imagens anexadas
×
×
  • Criar Novo...