António Roberto Software

a.roberto@mail.telepac.pt

Aula de 3 de Abril de 2003

Nesta aula foram introduzidos dois conceitos:

• Comandos Parametrizados
• Repercussão na Base de Dados das alterações realizadas num DataSet

        Foi utilizado como ponto de partida o projecto da aula anterior.

Comandos Parametrizados

• Comandos SQL com valores variáveis
  • colocação de parâmetros numa string SQL
    
        SqlString = "SELECT * FROM Empregados WHERE NrDep = ?"
    
  • adição de parâmetros a um objecto da classe OleDbComand

        cmdSelect = New OleDbCommand(SqlString, Conexao)
        cmdSelect.Parameters.Add("NrDep", NrDepartamento)

    O método Add da colecção Parameters tem várias assinaturas. Neste caso, ao adicionarmos o parâmetro  atribuimos-lhe logo um valor: o valor da variável NrDepartamento.

Repercussão na Base de Dados das alterações realizadas num DataSet

• Um DataAdapter contem um comando SELECT que é utilizado pelo método Fill para gerar uma tabela num DataSet
• O método Update de um DataAdapter serve para repercutir na base de dados as alterações efectuadas no DataSet. Para o método Update funcionar, é necessário construir três comandos parametrizados
  • um comando parametrizado INSERT para os novos registos criados
  • um comando parametrizado UPDATE para os registos modificados
  • um comando parametrizado DELETE para os registos apagados
• Exemplo com o comando parametrizado INSERT:

        SqlInsert = "INSERT INTO Empregados (Nome, Salario, DataAdmissao , NrDep)" _
                          "VALUES ( ? , ? , ? , ? ) "

      cmdInsert = New OleDbCommand(SqlInsert, Conexao)

      'Adicionamos quatro parâmetros ao comando

         Parametro = cmdInsert.Parameters.Add("Nome", GetType(String))
         Parametro.SourceColumn = "Nome"
         Parametro = cmdInsert.Parameters.Add("Salario", GetType(Integer))
         Parametro.SourceColumn = "Salario"
         Parametro = cmdInsert.Parameters.Add("DataAdmissao", GetType(DateTime))
         Parametro.SourceColumn = "DataAdmissao"
         Parametro = cmdInsert.Parameters.Add("NrDep", GetType(Integer))
         Parametro.SourceColumn = "NrDep"

         daEmpregadosDepartamento.InsertCommand = cmdInsert

Nome da Solução	Tipo	Código Fonte
WinBD3Abril	Windows Application	WinBD3Abril