Ir ao conteúdo
  • Cadastre-se

edsonglima

Membros Juniores
  • Total de itens

    4
  • Registro em

  • Última visita

  • Qualificações

    N/D
  1. Public Sub PEntradaSaidaProdutos() Dim intEntradaSaida As Integer Using Con As SqlConnection = getconnectionSqlServer() Try Con.Open() Dim sql As String = "UPDATE EntradaSaida SET Qtd Minimo? WHERE Codigo" & TxtCodigo.Text 'Dim cmd As SqlCommand = New SqlCommand(sql, Con) intEntradaSaida = Val(TxtEstoqueMinimo.Text) + Val(TxtEntradaSaidaProdutos.Text) cmd.Parameters.Add(SqlDataReader("@Qtd Minimo", intEntradaSaida)) cmd.ExecuteNonQuery() Catch ex As Exception Finally Con.Close() End Try End Using End Sub Boa Noite! Estou aprendendo VB.NET e criei uma tabela no SQL, e estou adaptando o código abaixo para modificar apenas os dados da coluna Qtd Minimo, porém não sei como passar o parâmetro no exemplo do código abaixo, alguém pode ajudar. O código abaixo é adaptação de uma vídeo aula da internet. Public Sub PEntradaSaidaProdutos() Dim intEntradaSaida As Integer Using Con As SqlConnection = getconnectionSqlServer() Try Con.Open() Dim sql As String = "UPDATE EntradaSaida SET Qtd Minimo? WHERE Codigo" & TxtCodigo.Text 'Dim cmd As SqlCommand = New SqlCommand(sql, Con) intEntradaSaida = Val(TxtEstoqueMinimo.Text) + Val(TxtEntradaSaidaProdutos.Text) cmd.Parameters.Add(Sq("@Qtd Minimo", intEntradaSaida)) cmd.ExecuteNonQuery() Catch ex As Exception Finally Con.Close() End Try End Using End Sub A solução foi enviada pelo Carlos Henrique autor da aula, porém agora apresenta o seguinte erro: Erro BC30057 Muitos argumentos para "Public Overloads ReadOnly Default Property Chars(index As Integer) As Char".
  2. estou fazendo testes no Dev-pascal e no Pascalzim, tem dado mais erros no pascalzim
  3. o comando rewrite não cria o arquivo, diz arquivo não encontrado, pode me ajudar a entender o porque?
  4. Estou tentando aprender pascal, e tentando fazer um exercício que vi na internet sempre ocorre erro, alguém pode me ajudar, segue o exercício abaixo. Program Cadastro_Cliente_arquivo_texto ; uses crt; const path = 'C\temp\banco_dados.text; type cadastro = record nome:string[50]; sexo:string[20]; endereco:string[50]; complemento:string[50]; bairro:string[50]; cidade:string[50]; telefones:array[1..2] of string; datacadastro:string[50]; observacao:string[200]; end; arq_text = file of cadastro; var dados_cliente: cadastro; opcao: char; banco_dados = arq_text; procedure gerar_arquivo_banco; begin //clrscr; writeln; readln; writeln('*****PRONTO PARA GERAR O ARQUIVO, PRESSIONE UMA TECLA PARA CONTINUAR....'); assign(banco_dados,path); rewrite(banco_dados); writeln('.....Parabens, Arquivo texto do banco de dados gerado com sucesso.....'); writeln(''); writeln('.....Pressione uma tecla para voltar ao Sistema.......'); readln(); close(banco_dados); end; procedure novo_cliente; begin writeln(''); clrscr; writeln('**********CADASTRO DE CLIENTE**********'); writeln; write('>>>>>Digite o nome do Cliente...:'); readln(dados_cliente.nome); write('>>>>>Informe o Sexo(M/F)...:'); readln(dados_cliente.sexo); write('>>>>>Informe o endereco...:'); readln(dados_cliente.endereco); write('>>>>>Digite Complemento...:'); readln(dados_cliente.complemento); write('>>>>>Informe o Bairro...:'); readln(dados_cliente.bairro); write('>>>>>Digite a Cidade...:'); readln(dados_cliente.cidade); write('>>>>>Digite Um Telefone...:'); readln(dados_cliente.telefones[1]); write('>>>>>Digite Outro Telefone...:'); readln(dados_cliente.telefones[2]); write('>>>>>Digite a Data de Cadastro...:'); readln(dados_cliente.datacadastro); write('>>>>>Digite Uma Observacao...:'); readln(dados_cliente.observacao); //gravando dados no arquivo assign(banco_dados,path); reset(banco_dados); write(banco_dados,dados_cliente); writeln('........Parabens,Dados Gravados no Arquivo...'); readln; close(banco_dados); end; procedure mostrar_dados; begin assign(banco_dados,path); reset(banco_dados); read(banco_dados,dados_cliente); writeln; writeln('......Dados Extraidos com Sucesso.....'); writeln; writeln('Nome do Cliente...',dados_cliente.nome); writeln('Sexo do Cliente...',dados_cliente.sexo); writeln('Endereco do Cliente...',dados_cliente.endereco); writeln('Complemento End...',dados_cliente.complemento); writeln('Cidade...',dados_cliente.cidade); writeln('Telefone[1]...',dados_cliente.telefones[1]); writeln('Telefone[2]...',dados_cliente.telefones[2]); writeln('Data Cadastro...',dados_cliente.datacadastro); writeln('Observacao...',dados_cliente.observacao); writeln('.....Pressione Uma tecla para Continuar........'); readln; end; Begin // Menu do Programa writeln(''); writeln('**********SISTEMA DE GESTAO INTEGRADA - SGI**********'); writeln(''); writeln('**********opções DO SISTEMA (BANCO DE DADOS)*********'); writeln(''); writeln('>>>>>[1]...Gerar Arquivo Texto (banco dados)...'); writeln('>>>>>[2]...Cadastrar Novo Cliente...'); writeln('>>>>>[3]...Mostrar Dados do Cliente...'); writeln('>>>>>[4]...Cadastrar Vendas...'); writeln('>>>>>[5]...Mostrar Registro de Vendas...'); writeln('>>>>>[6]...Cadastrar Estoque...'); writeln('>>>>>[7]...Exibir Status Estoque...'); writeln('>>>>>[8]...Cadastrar Fornecedor...'); writeln('>>>>>[9]...Exibir Fornecedores...'); writeln('>>>>>[S]...Sair...'); writeln(''); write('>>>>>Digite Uma Opcao...'); readln(opcao); if opcao = '1' then gerar_arquivo_banco else if opcao = '2' then novo_cliente else if opcao = '3' then mostrar_dados; End. banco_dados.txt

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Aprenda_a_Ler_Resistores_e_Capacitores-capa-3d-newsletter.jpg

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!