Ir para conteúdo
Fórum Script Brasil
  • 0

Como ativar o BINDINGNAVIGATOR no visual basic 2010?


carolprogramadora

Pergunta

2 respostass a esta questão

Posts Recomendados

  • 0

então... também não sei explicar direito, sempre acrescento essa codificação e dá certo desta vez não está dando...

Eu faço dessa maneira, ele está selecionado em vermelho, se tiver alguma alternativa pra mim eu agradeço, pois não conosegui fazê-lo funcionar! <_<

Sub GravarDados()

If txtId.Text <> "" Then

Sql = "UPDATE BDFERIADO SET FERIADO=@FERIADO,MOTIVO=@MOTIVO,ANO=@ANO WHERE ID'" + txtId.Text + "'"

Else

Sql = "INSERT INTO BDFERIADO(FERIADO, MOTIVO,ANO) " + _

"VALUES(@FERIADO,@MOTIVO,@ANO)"

End If

Dim conn As New OleDbConnection(connString)

Dim cmd As New OleDbCommand(Sql, conn)

Try

conn.Open()

Dim Ano As String = dtpFeriado.Value.Year

cmd.Parameters.Add("FERIADO", OleDbType.VarChar).Value = dtpFeriado.Text

cmd.Parameters.Add("MOTIVO", OleDbType.VarChar).Value = txtMotivo.Text

cmd.Parameters.Add("ANO", OleDbType.VarChar).Value = mskAno.Text

cmd.ExecuteNonQuery()

MsgBox("Dados Gravados !", MsgBoxStyle.Information, Me.Text)

Catch ex As OleDbException

Throw New Exception("Erro Banco de Dados : " + ex.Message)

Catch ex As Exception

Throw New Exception("Erro Run Time : " + ex.Message)

Finally

conn.Close()

conn.Dispose()

cmd.Dispose()

End Try

BindingNavigator1.BindingSource = Bs

Call LimpaCampos()

Call CarregaDados("")

End Sub

Obrigada!!!

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...