edsonglima

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".   
 

estou fazendo testes no Dev-pascal e no Pascalzim, tem dado mais erros no pascalzim

o comando rewrite não cria o arquivo, diz arquivo não encontrado, pode me ajudar a entender o porque?

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