Ir para o conteúdo
Marinheiro Caratinga

VB: banco de dados / campo data -> exibir alerta (felicitações)

Mensagens Recomendadas

Marinheiro Caratinga

CONTATOS.jpg

pessoal preciso implementar esse código, quero que o sistema busque no banco de dados o campo data de nascimento e que retorne ele como lembrete em todo aniversario do cliente, alias, para todos clientes cadastrados. Como posso adaptar isso no meu FORM LOAD()?

Gostaria que toda vez que fosse aberta a aplicação o sistema me exibisse como alerta todos aniversariantes do dia, e no caso de ter perdido algum alerta(por não abrir o sistema num sábado, domingo ou feriado) que fosse exibido também os atrasados junto dos demais num alerta, nada de mais pode ser até em um MsgBox! Mas tenho a necessidade que o sistema mostre a data de aniversario do cliente cadastrado para que seja possível o envio de um e-mail de felicitações.

Como fazer esta validação?

Podem me ajudar, desde ja obrigado, e deixo o código para estudos e talvez aproveitamento dos irmãos.

segue meu código de aplicação para estudo e implementação:

Public Class agenda
Dim editar As Boolean
Dim roweditar As Integer
Dim cn As New conexãoagenda
Dim ideditar As Integer
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
	If editar = False Then
		Dim sql As String
		sql = "INSERT into contatos(Nome, telefone, endereço, bairro, cidade, estado, aniversario, empresa, comercial, facebook, email) values("
		sql = sql & "'" & txtnome.Text & "','" & txttelefone.Text & "','" & txtendereço.Text & "','" & txtbairro.Text & "','" & txtcidade.Text & "','" & comboestado.Text & "','" & txtempresa.Text & "','" & txtcomercial.Text & "','" & txtfacebook.Text & "','" & txtemail.Text & "','" & DateTimePicker1.Text & "')"
		cn.insertar(sql)
		txtnome.Text = ""
		txttelefone.Text = ""
		txtendereço.Text = ""
		txtbairro.Text = ""
		txtcidade.Text = ""
		comboestado.Text = ""
		txtempresa.Text = ""
		txtcomercial.Text = ""
		txtfacebook.Text = ""
		txtemail.Text = ""
		Call consulta()
	Else
		cn.consulta("update contatos set Telefone='" & txttelefone.Text & "' where Id=" & ideditar, "contatos")
		cn.consulta("update contatos set Endereço='" & txtendereço.Text & "' where Id=" & ideditar, "contatos")
		cn.consulta("update contatos set Bairro='" & txtbairro.Text & "' where Id=" & ideditar, "contatos")
		cn.consulta("update contatos set Cidade='" & txtcidade.Text & "' where Id=" & ideditar, "contatos")
		cn.consulta("update contatos set Estado='" & comboestado.Text & "' where Id=" & ideditar, "contatos")
		cn.consulta("update contatos set Empresa='" & txtempresa.Text & "' where Id=" & ideditar, "contatos")
		cn.consulta("update contatos set Comercial='" & txtcomercial.Text & "' where Id=" & ideditar, "contatos")
		cn.consulta("update contatos set Facebook='" & txtfacebook.Text & "' where Id=" & ideditar, "contatos")
		cn.consulta("update contatos set email='" & txtemail.Text & "' where Id=" & ideditar, "contatos")
		cn.consulta("update contatos set aniversario='" & DateTimePicker1.Text & "' where Id=" & ideditar, "contatos")
		Call consulta()
		MsgBox("Dados atualizados com Sucesso.", MsgBoxStyle.Information)
		editar = False
		ideditar = 0
	End If
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
	Dim result As DialogResult
	If DataGridView1.SelectedRows.Count > 0 Then
		Beep()
		result = MsgBox("Tem certeza que Deseja Excluir este registro?", MessageBoxButtons.YesNo)
	End If
	If result = DialogResult.Yes Then
		Dim id As Integer = 0
		id = CInt(DataGridView1.Rows(DataGridView1.SelectedRows(0).Index).Cells(0).Value)
		cn.consulta("delete from contatos where ID=" & id, "contatos")
		Call consulta()

	ElseIf result = DialogResult.No Then
	Else
		Beep()
		MsgBox("Você não selecionou nenhum contato.", MessageBoxButtons.OK)

	End If

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

	DataGridView1.DataSource = Nothing
	Dim ds As New DataSet
	ds = cn.consulta("Select * from contatos where Nome='" & txtnome.Text & "'", "contatos")
		DataGridView1.DataSource = ds.Tables(0)
	If ds.Tables(0).Rows.Count = 0 Then
		MsgBox("Nenhum Registro Encontrado!")
		Call consulta()

	End If
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
	If DataGridView1.SelectedRows.Count > 0 Then
		txtnome.Text = DataGridView1.Rows(DataGridView1.SelectedRows(0).Index).Cells(1).Value.ToString
		txtnome.Enabled = False
		txttelefone.Text = DataGridView1.Rows(DataGridView1.SelectedRows(0).Index).Cells(2).Value.ToString
		txtendereço.Text = DataGridView1.Rows(DataGridView1.SelectedRows(0).Index).Cells(3).Value.ToString
		txtbairro.Text = DataGridView1.Rows(DataGridView1.SelectedRows(0).Index).Cells(4).Value.ToString
		txtcidade.Text = DataGridView1.Rows(DataGridView1.SelectedRows(0).Index).Cells(5).Value.ToString
		comboestado.Text = DataGridView1.Rows(DataGridView1.SelectedRows(0).Index).Cells(6).Value.ToString
		txtempresa.Text = DataGridView1.Rows(DataGridView1.SelectedRows(0).Index).Cells(7).Value.ToString
		txtcomercial.Text = DataGridView1.Rows(DataGridView1.SelectedRows(0).Index).Cells(8).Value.ToString
		txtfacebook.Text = DataGridView1.Rows(DataGridView1.SelectedRows(0).Index).Cells(9).Value.ToString
		txtemail.Text = DataGridView1.Rows(DataGridView1.SelectedRows(0).Index).Cells(10).Value.ToString
		DateTimePicker1.Text = DataGridView1.Rows(DataGridView1.SelectedRows(0).Index).Cells(11).Value.ToString

		editar = True
		roweditar = DataGridView1.SelectedRows(0).Index
		ideditar = CInt(DataGridView1.Rows(DataGridView1.SelectedRows(0).Index).Cells(0).Value)
	Else
		MsgBox("Nenhum contato foi selecionado!")
	End If

End Sub
Sub consulta()
	Dim ds As New DataSet
	ds = cn.consulta("select * from contatos", "contatos")
	DataGridView1.DataSource = ds.Tables(0)

End Sub

Private Sub agenda_Load(sender As Object, e As EventArgs) Handles MyBase.Load
	consulta()
	DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
End Sub

End Class

Desde já, meu muito obrigado!

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
Wesley Rocha

CONTATOS.jpg

pessoal preciso implementar esse código, quero que o sistema busque no banco de dados o campo data de nascimento e que retorne ele como lembrete em todo aniversario do cliente, alias, para todos clientes cadastrados. Como posso adaptar isso no meu FORM LOAD()?

Gostaria que toda vez que fosse aberta a aplicação o sistema me exibisse como alerta todos aniversariantes do dia, e no caso de ter perdido algum alerta(por não abrir o sistema num sábado, domingo ou feriado) que fosse exibido também os atrasados junto dos demais num alerta, nada de mais pode ser até em um MsgBox! Mas tenho a necessidade que o sistema mostre a data de aniversario do cliente cadastrado para que seja possível o envio de um e-mail de felicitações.

Como fazer esta validação?

Podem me ajudar, desde ja obrigado, e deixo o código para estudos e talvez aproveitamento dos irmãos.

segue meu código de aplicação para estudo e implementação:

Public Class agenda
Dim editar As Boolean
Dim roweditar As Integer
Dim cn As New conexãoagenda
Dim ideditar As Integer
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
	If editar = False Then
		Dim sql As String
		sql = "INSERT into contatos(Nome, telefone, endereço, bairro, cidade, estado, aniversario, empresa, comercial, facebook, email) values("
		sql = sql & "'" & txtnome.Text & "','" & txttelefone.Text & "','" & txtendereço.Text & "','" & txtbairro.Text & "','" & txtcidade.Text & "','" & comboestado.Text & "','" & txtempresa.Text & "','" & txtcomercial.Text & "','" & txtfacebook.Text & "','" & txtemail.Text & "','" & DateTimePicker1.Text & "')"
		cn.insertar(sql)
		txtnome.Text = ""
		txttelefone.Text = ""
		txtendereço.Text = ""
		txtbairro.Text = ""
		txtcidade.Text = ""
		comboestado.Text = ""
		txtempresa.Text = ""
		txtcomercial.Text = ""
		txtfacebook.Text = ""
		txtemail.Text = ""
		Call consulta()
	Else
		cn.consulta("update contatos set Telefone='" & txttelefone.Text & "' where Id=" & ideditar, "contatos")
		cn.consulta("update contatos set Endereço='" & txtendereço.Text & "' where Id=" & ideditar, "contatos")
		cn.consulta("update contatos set Bairro='" & txtbairro.Text & "' where Id=" & ideditar, "contatos")
		cn.consulta("update contatos set Cidade='" & txtcidade.Text & "' where Id=" & ideditar, "contatos")
		cn.consulta("update contatos set Estado='" & comboestado.Text & "' where Id=" & ideditar, "contatos")
		cn.consulta("update contatos set Empresa='" & txtempresa.Text & "' where Id=" & ideditar, "contatos")
		cn.consulta("update contatos set Comercial='" & txtcomercial.Text & "' where Id=" & ideditar, "contatos")
		cn.consulta("update contatos set Facebook='" & txtfacebook.Text & "' where Id=" & ideditar, "contatos")
		cn.consulta("update contatos set email='" & txtemail.Text & "' where Id=" & ideditar, "contatos")
		cn.consulta("update contatos set aniversario='" & DateTimePicker1.Text & "' where Id=" & ideditar, "contatos")
		Call consulta()
		MsgBox("Dados atualizados com Sucesso.", MsgBoxStyle.Information)
		editar = False
		ideditar = 0
	End If
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
	Dim result As DialogResult
	If DataGridView1.SelectedRows.Count > 0 Then
		Beep()
		result = MsgBox("Tem certeza que Deseja Excluir este registro?", MessageBoxButtons.YesNo)
	End If
	If result = DialogResult.Yes Then
		Dim id As Integer = 0
		id = CInt(DataGridView1.Rows(DataGridView1.SelectedRows(0).Index).Cells(0).Value)
		cn.consulta("delete from contatos where ID=" & id, "contatos")
		Call consulta()

	ElseIf result = DialogResult.No Then
	Else
		Beep()
		MsgBox("Você não selecionou nenhum contato.", MessageBoxButtons.OK)

	End If

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

	DataGridView1.DataSource = Nothing
	Dim ds As New DataSet
	ds = cn.consulta("Select * from contatos where Nome='" & txtnome.Text & "'", "contatos")
		DataGridView1.DataSource = ds.Tables(0)
	If ds.Tables(0).Rows.Count = 0 Then
		MsgBox("Nenhum Registro Encontrado!")
		Call consulta()

	End If
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
	If DataGridView1.SelectedRows.Count > 0 Then
		txtnome.Text = DataGridView1.Rows(DataGridView1.SelectedRows(0).Index).Cells(1).Value.ToString
		txtnome.Enabled = False
		txttelefone.Text = DataGridView1.Rows(DataGridView1.SelectedRows(0).Index).Cells(2).Value.ToString
		txtendereço.Text = DataGridView1.Rows(DataGridView1.SelectedRows(0).Index).Cells(3).Value.ToString
		txtbairro.Text = DataGridView1.Rows(DataGridView1.SelectedRows(0).Index).Cells(4).Value.ToString
		txtcidade.Text = DataGridView1.Rows(DataGridView1.SelectedRows(0).Index).Cells(5).Value.ToString
		comboestado.Text = DataGridView1.Rows(DataGridView1.SelectedRows(0).Index).Cells(6).Value.ToString
		txtempresa.Text = DataGridView1.Rows(DataGridView1.SelectedRows(0).Index).Cells(7).Value.ToString
		txtcomercial.Text = DataGridView1.Rows(DataGridView1.SelectedRows(0).Index).Cells(8).Value.ToString
		txtfacebook.Text = DataGridView1.Rows(DataGridView1.SelectedRows(0).Index).Cells(9).Value.ToString
		txtemail.Text = DataGridView1.Rows(DataGridView1.SelectedRows(0).Index).Cells(10).Value.ToString
		DateTimePicker1.Text = DataGridView1.Rows(DataGridView1.SelectedRows(0).Index).Cells(11).Value.ToString

		editar = True
		roweditar = DataGridView1.SelectedRows(0).Index
		ideditar = CInt(DataGridView1.Rows(DataGridView1.SelectedRows(0).Index).Cells(0).Value)
	Else
		MsgBox("Nenhum contato foi selecionado!")
	End If

End Sub
Sub consulta()
	Dim ds As New DataSet
	ds = cn.consulta("select * from contatos", "contatos")
	DataGridView1.DataSource = ds.Tables(0)

End Sub

Private Sub agenda_Load(sender As Object, e As EventArgs) Handles MyBase.Load
	consulta()
	DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
End Sub

End Class

Desde já, meu muito obrigado!

Olá,

Na sua função de consulta atual, ou em uma nova função, você vai verificar o campo de data no select. Percorra o DataSet e após abra um MsgBox com a informação desejada, como no exemplo a seguir:

http://contembits.com.br/dicas/c-sharp/Percorrendo-as-linhas-de-um-dataset.aspx

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.