BindingSource.A ddNew

[Leonardo]

Hi. I'm trying to build my first application with database access using VB
2005. I'm a VB 6 programmer and learning everything again has been
challenging. I managed to write a code using some tips from a book I
recently bought. The navigation works fine. My problem starts when it comes
to adding new registers. I have three tables: clients, addresses and
telephones, so the client can have multiple address and telephones. The
client data is shown in textboxes, while his addresses and telephones are
shown in a DataGridView each. I have been using the class BindingSource
associated with a BindingNavigato r to browse throught the table. I thought
about using the AddNew method to add new registers, but it didn't work as I
expected. Looks like this method inserts a blank register. I can't even type
what I want. And I couldn't figure out how to solve this problem. What
should I do? How can I add new registers using this class? Is there any
other way?

Thank you.

Here's my code, if you want to take a look at:

Dim Conexao As SqlConnection, Ds As New DataSet()

Dim adpClientes As SqlDataAdapter
Dim adpEnderecos As SqlDataAdapter
Dim adpTelefones As SqlDataAdapter

Dim nDs As BindingSource

Private Sub FrmPrograma_Loa d(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load

Conexao = New
SqlConnection(" Server=(local); Database=Banco; UId=sa;Pwd=xxx" )
Conexao.Open()

adpClientes = New SqlDataAdapter( "SELECT Id, Nome, Nascimento FROM
Clientes WHERE Excluido=0 ORDER BY Nome", Conexao)
adpEnderecos = New SqlDataAdapter( "SELECT * FROM Enderecos",
Conexao)
adpTelefones = New SqlDataAdapter( "SELECT * FROM Telefones",
Conexao)

adpClientes.Ins ertCommand = New SqlCommand("INS ERT INTO Clientes
(Nome,Nasciment o,CPFCNPJ,Email ) VALUES (@Nome,@Nascime nto,'','')", Conexao)

adpClientes.Fil l(Ds, "Clientes")
adpEnderecos.Fi ll(Ds, "Enderecos" )
adpTelefones.Fi ll(Ds, "Telefones" )

Ds.Relations.Ad d(New DataRelation("C lienteEndereco" ,
Ds.Tables("Clie ntes").Columns( "Id"),
Ds.Tables("Ende recos").Columns ("Cliente"), False))
Ds.Relations.Ad d(New DataRelation("C lienteTelefone" ,
Ds.Tables("Clie ntes").Columns( "Id"),
Ds.Tables("Tele fones").Columns ("Cliente"), False))

nDs = New BindingSource(D s, "Clientes")
Navegador.Bindi ngSource = nDs

txtNome.DataBin dings.Add(New Binding("Text", nDs, "Nome"))
dtpNascimento.D ataBindings.Add (New Binding("Value" , nDs,
"Nascimento "))

GradeE.DataSour ce = nDs
GradeE.DataMemb er = "ClienteEnderec o"
GradeE.Columns. RemoveAt(0)
GradeE.Columns. RemoveAt(0)

GradeT.DataSour ce = nDs
GradeT.DataMemb er = "ClienteTelefon e"
GradeT.Columns. RemoveAt(0)
GradeT.Columns. RemoveAt(0)

End Sub

Private Sub cmdCancelar_Cli ck(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles cmdCancelar.Cli ck
nDs.CancelEdit( )
End Sub

Private Sub cmdAdicionar_Cl ick(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles cmdAdicionar.Cl ick
nDs.AddNew() ' <------ Here's the problem
End Sub

Private Sub cmdSalvar_Click (ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles cmdSalvar.Click
nDs.EndEdit()
End Sub

[Bart Mermuys]

Hi,

"Leonardo" <le******@discu ssions.microsof t.com> wrote in message
news:%2******** *******@tk2msft ngp13.phx.gbl.. .

Hi. I'm trying to build my first application with database access using VB
2005. I'm a VB 6 programmer and learning everything again has been
challenging. I managed to write a code using some tips from a book I
recently bought. The navigation works fine. My problem starts when it
comes
to adding new registers. I have three tables: clients, addresses and
telephones, so the client can have multiple address and telephones. The
client data is shown in textboxes, while his addresses and telephones are
shown in a DataGridView each. I have been using the class BindingSource
associated with a BindingNavigato r to browse throught the table. I thought
about using the AddNew method to add new registers, but it didn't work as
I
expected. Looks like this method inserts a blank register. I can't even
type
what I want.
What do you exactly mean with i can't type what i want ?
And I couldn't figure out how to solve this problem. What
should I do? How can I add new registers using this class? Is there any
other way?
BindingSource.A ddNew should work, but it's possible you have problems with
the new row because it contains null values and DateTimePicker may crash
with null values (as can CheckBoxes) so you need to set a default value.

In NET2.0 you can use the TableNewRow event to set the defaults, _ see
additions to your code _.

Thank you.

Here's my code, if you want to take a look at:

Dim Conexao As SqlConnection, Ds As New DataSet()

Dim adpClientes As SqlDataAdapter
Dim adpEnderecos As SqlDataAdapter
Dim adpTelefones As SqlDataAdapter

Dim nDs As BindingSource

Private Sub FrmPrograma_Loa d(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load

Conexao = New
SqlConnection(" Server=(local); Database=Banco; UId=sa;Pwd=xxx" )
Conexao.Open()

adpClientes = New SqlDataAdapter( "SELECT Id, Nome, Nascimento FROM
Clientes WHERE Excluido=0 ORDER BY Nome", Conexao)
adpEnderecos = New SqlDataAdapter( "SELECT * FROM Enderecos",
Conexao)
adpTelefones = New SqlDataAdapter( "SELECT * FROM Telefones",
Conexao)

adpClientes.Ins ertCommand = New SqlCommand("INS ERT INTO Clientes
(Nome,Nasciment o,CPFCNPJ,Email ) VALUES (@Nome,@Nascime nto,'','')",
Conexao)

adpClientes.Fil l(Ds, "Clientes")
adpEnderecos.Fi ll(Ds, "Enderecos" )
adpTelefones.Fi ll(Ds, "Telefones" )
AddHandler Ds.Tables("Clie ntes").TableNew Row, AddressOf OnTableNewRow

Ds.Relations.Ad d(New DataRelation("C lienteEndereco" ,
Ds.Tables("Clie ntes").Columns( "Id"),
Ds.Tables("Ende recos").Columns ("Cliente"), False))
Ds.Relations.Ad d(New DataRelation("C lienteTelefone" ,
Ds.Tables("Clie ntes").Columns( "Id"),
Ds.Tables("Tele fones").Columns ("Cliente"), False))

nDs = New BindingSource(D s, "Clientes")
Navegador.Bindi ngSource = nDs

txtNome.DataBin dings.Add(New Binding("Text", nDs, "Nome"))
dtpNascimento.D ataBindings.Add (New Binding("Value" , nDs,
"Nascimento "))

GradeE.DataSour ce = nDs
GradeE.DataMemb er = "ClienteEnderec o"
GradeE.Columns. RemoveAt(0)
GradeE.Columns. RemoveAt(0)

GradeT.DataSour ce = nDs
GradeT.DataMemb er = "ClienteTelefon e"
GradeT.Columns. RemoveAt(0)
GradeT.Columns. RemoveAt(0)

End Sub

Private Sub cmdCancelar_Cli ck(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles cmdCancelar.Cli ck
nDs.CancelEdit( )
End Sub

Private Sub cmdAdicionar_Cl ick(ByVal sender As System.Object, ByVal e
As
System.EventArg s) Handles cmdAdicionar.Cl ick
nDs.AddNew() ' <------ Here's the problem
End Sub

Private Sub cmdSalvar_Click (ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles cmdSalvar.Click
nDs.EndEdit()
End Sub
Private Sub DataTableNewRow EventHandler ( sender As Object, e As
DataTableNewRow EventArgs )
' set defaults
e.Row("Nascimen to") = ...
'....

End Sub

HTH,
Greetings