Sim Ninho, estou puxando de uma base de dados. Explico:
A programação da agenda pessoal parte de uma
base do Access, denominada "Schedule.mdb". Nela tenho três tabelas: (1) Agenda, (2) Emails
e (3) Param_email. Na primeira tabela é onde se localizam os contatos cadastrados, na segunda, o histórico de e-mails e, na terceira, as informações necessárias para configuração do "servidor" de e-mail, que já está carregada com os dados de uma
conta que criei no yahoo.com. Tenho um único relacionamento de um para muitos entre as tabelas (1) e (2).
No [settings] de meu projeto defini uma conexão com o nome de "new_conection" com a string correspondente = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\agenda_personal\WindowsApplication1\Schedule.mdb".
O projeto contém quatro formulário, sendo o primeiro o de abertura e, ainda, de cadastro e manipulação dos dados de contatos da Agenda. Nos formulário 1, 2 e 4 estou usando um BindingSource, a partir de um DataSet pré-estabelecido. Como nos formulários dois
e quatro, no Form1 tenho o navegador completo (BindingNavegator), contendo as funcionalidades de movimentação e, especialmente, inserção [+], exclusão [x] e "update" [Save]. No segundo formulário, como ele corresponde à tabela de parâmetros de
configuração (3) e só poderá sempre ter um único registro, o "BindingNavegator" somente dispõe de uma funcionalidade update [Save]. Já no Form4, o BindingNavegator está vinculado a um DataGrid da tabela de e-mails, onde a inclusão deve acontecer
automaticamente pelo envio de uma correspondência. Assim, o BindingNavegator não tem a funcionalidade de inserção.
O código relacionado ao Form1 é o seguinte:
Option Explicit On
Imports System.Data.OleDb
Public Class Form1
Inherits System.Windows.Forms.Form
Dim validaciones As validarcampo = New validarcampo
Public comprobaciones As Boolean = True
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.AgendaTableAdapter.Fill(Me.New_dataset.Agenda)
End Sub
Private Sub SaveToolStripButton_Click(sender As Object, e As System.EventArgs) Handles SaveToolStripButton.Click
Me.AgendaBindingSource.EndEdit()
Me.AgendaTableAdapter.Update(Me.New_dataset.Agenda)
End Sub
Private Sub CmdSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdSalir.Click
Close()
End Sub
Private Sub Configurar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Configurar.Click
Dim MiForm As New Form2
MiForm.Show()
End Sub
Private Sub Enviar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Enviar.Click
Dim MiForm3 As New Form3
MiForm3.EmailTextBox.Text = txtMail.Text
MiForm3.Show()
End Sub
Private Sub mem_email_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mem_email.Click
Dim MiForm4 As New Form4
MiForm4.Show()
End Sub
Private Sub txtNombre_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtNombre.TextChanged
comprobaciones = validaciones.validartxt(txtNombre.Text.Trim, True)
If comprobaciones And txtNombre.Text <> "" Then
Label6.Text = "Ok"
Label6.BackColor = Color.Transparent
Else
Label6.Text = "Err"
Label6.BackColor = Color.Red
End If
txtNombre.Focus()
End Sub
Private Sub txtApellido_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtApellido.TextChanged
comprobaciones = validaciones.validartxt(txtApellido.Text.Trim, True)
If comprobaciones And txtApellido.Text <> "" Then
Label8.Text = "Ok"
Label8.BackColor = Color.Transparent
Else
Label8.Text = "Err"
Label8.BackColor = Color.Red
End If
txtApellido.Focus()
End Sub
Private Sub txtTelefono_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTelefono.TextChanged
comprobaciones = validaciones.validarnmr(txtTelefono.Text.Trim, False)
If comprobaciones And txtTelefono.Text <> "" Then
Label12.Text = "Ok"
Label12.BackColor = Color.Transparent
Else
Label12.Text = "Err"
Label12.BackColor = Color.Red
End If
txtTelefono.Focus()
End Sub
Private Sub txtMail_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtMail.TextChanged
comprobaciones = validaciones.validar_Mail(txtMail.Text.Trim)
If comprobaciones And txtMail.Text <> "" Then
Label13.Text = "Ok"
Label13.BackColor = Color.Transparent
Else
Label13.Text = "Err"
Label13.BackColor = Color.Red
End If
txtMail.Focus()
End Sub
Private Sub cmdBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBuscar.Click
' Essa rotina não está funcionando adequadamente, pois não resulta na atualização
' da tela com o registro filtrado!!!
Dim NvDataView As DataView = AgendaBindingSource.DataSource
NvDataView.Table = New_dataset.Tables("Agenda")
Dim a As String
a = ComboBox1.SelectedItem
MessageBox.Show(a)
If a = "Nombre" Then
NvDataView.RowFilter = String.Format("Nombre LIKE '%'", txtBuscar.Text)
ElseIf a = "Apellidos" Then
NvDataView.RowFilter = String.Format("apellidos LIKE '%'", txtBuscar.Text)
ElseIf a = "Teléfono" Then
NvDataView.RowFilter = String.Format("telefono LIKE '%'", txtBuscar.Text)
End If
NvDataView.Table.AcceptChanges()
End Sub
End Class
Paulo Afonso
