Hallo Mensen,
waar ik op dit moment mee bezig ben is het volgende. Ik wil aan een datagrid een regel toe gaan voegen.
En wel met de volgende code:
Private Sub dgrdFactuur_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles dgrdFactuur.ItemCommand
If e.CommandName = "Insert" Then
Dim sqlfactuur As New SqlConnection(connstr)
Dim t1 As TextBox = e.Item.FindControl("txtOmschrijvingfoot")
Dim t2 As TextBox = e.Item.FindControl("txtAantalfoot")
Dim t3 As TextBox = e.Item.FindControl("txtPrijsfoot")
Dim t4 As TextBox = e.Item.FindControl("txtBedragfoot")
sqlfactuur.Open()
Dim cmd As New SqlCommand("insert into tblFacturen(Omschrijving, Aantal, Prijs, Bedrag) values('" & t1.Text & "','" & t2.Text & "','" & t3.Text & "','" & t4.Text & "')", sqlfactuur)
cmd.ExecuteNonQuery()
sqlfactuur.Close()
BindDgrdFactuur()
End If
End Sub
Maar nu zit ik met het probleem dat de datagrid als ik deze inlaad nog altijd niet visible is. Ik zie hem helaas nog altijd niet.
Ik bind de datagrid op de volgende manier:
Sub BindDgrdFactuur()
sqlConn = New SqlConnection(ConfigurationSettings.AppSettings("Connectionstring"))
strSelectfactuur = "SELECT * FROM tblFacturen"
dadFactuur = New SqlDataAdapter(strSelectfactuur, strConn)
Dim dtfactuur As New DataTable
Try
sqlConn.Open()
dadFactuur.Fill(dsfactuur, "tblfactuur")
sqlConn.Close()
Me.dgrdFactuur.Visible = True
Me.dgrdFactuur.DataSource = dsfactuur.Tables("tblFacturen")
Me.dgrdFactuur.DataBind()
Catch ex As Exception
Finally
'Wanneer de database nog open is, sluiten.
If sqlConn.State = ConnectionState.Open Then
sqlConn.Close()
End If
End Try
End Sub
Wie van jullie kan mij misschien vertellen waar het probleem ligt, zodat ik er verder mee kan. Heb al op verschillende website's gekeken met voorbeelden, maar kom er helaas niet meer uit.
Groeten, Arjan
waar ik op dit moment mee bezig ben is het volgende. Ik wil aan een datagrid een regel toe gaan voegen.
En wel met de volgende code:
Private Sub dgrdFactuur_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles dgrdFactuur.ItemCommand
If e.CommandName = "Insert" Then
Dim sqlfactuur As New SqlConnection(connstr)
Dim t1 As TextBox = e.Item.FindControl("txtOmschrijvingfoot")
Dim t2 As TextBox = e.Item.FindControl("txtAantalfoot")
Dim t3 As TextBox = e.Item.FindControl("txtPrijsfoot")
Dim t4 As TextBox = e.Item.FindControl("txtBedragfoot")
sqlfactuur.Open()
Dim cmd As New SqlCommand("insert into tblFacturen(Omschrijving, Aantal, Prijs, Bedrag) values('" & t1.Text & "','" & t2.Text & "','" & t3.Text & "','" & t4.Text & "')", sqlfactuur)
cmd.ExecuteNonQuery()
sqlfactuur.Close()
BindDgrdFactuur()
End If
End Sub
Maar nu zit ik met het probleem dat de datagrid als ik deze inlaad nog altijd niet visible is. Ik zie hem helaas nog altijd niet.
Ik bind de datagrid op de volgende manier:
Sub BindDgrdFactuur()
sqlConn = New SqlConnection(ConfigurationSettings.AppSettings("Connectionstring"))
strSelectfactuur = "SELECT * FROM tblFacturen"
dadFactuur = New SqlDataAdapter(strSelectfactuur, strConn)
Dim dtfactuur As New DataTable
Try
sqlConn.Open()
dadFactuur.Fill(dsfactuur, "tblfactuur")
sqlConn.Close()
Me.dgrdFactuur.Visible = True
Me.dgrdFactuur.DataSource = dsfactuur.Tables("tblFacturen")
Me.dgrdFactuur.DataBind()
Catch ex As Exception
Finally
'Wanneer de database nog open is, sluiten.
If sqlConn.State = ConnectionState.Open Then
sqlConn.Close()
End If
End Try
End Sub
Wie van jullie kan mij misschien vertellen waar het probleem ligt, zodat ik er verder mee kan. Heb al op verschillende website's gekeken met voorbeelden, maar kom er helaas niet meer uit.
Groeten, Arjan
[ Voor 7% gewijzigd door Verwijderd op 24-09-2004 12:08 ]