oioi,
Ik ben dus bezig met een asp.net webapplicatie te maken, maar ik zit nog met enkele probleempjes.
appz die ik gebruik:
MS access databank
VS.net
Probleem1:
Ik heb een nieuwscript gemaakt met een repeater. Nu is het probleem dat hij de smileys niet wil tonen. strBericht is de sting die ingevuld staat in mijn textbox.
strBericht = strBericht.Replace(":D", "[img]"[/img]")
Hoe komt het dat hij dit niet wil doen? Nogtans klopt dit volgens mij wel.
Het 2de probleem die ik heb bij mijn nieuwsscript is dat ik niet kan enterren in mijn berichten. Ik kan wel enterren in het textboxje, maar hij slaat die enter ( <br> ) niet op in de database. Hierdoor krijg ik als resultaat dat alle tekst aan elkaar wordt geplakt.
strBericht = strBericht.Replace(Chr(13), "<br />")
Iemand die de fout ziet?
Probleem2:
Ik heb een pagina met allemaal handelszaken gesorteerd volgens categorie (via combobox). Nu is het probleem dat hij ergens een foutmelding geeft op het weergeven van de handelszaken.
code:
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not IsPostBack Then
'categories ophalen en opslaan in de dataset
objverbinding.Open()
Dim daCategories As New OleDb.OleDbDataAdapter("SELECT * FROM tblCategories", objverbinding)
daCategories.Fill(dsLedenlijst1, "tblCategories")
'databinding voor dropdownlist activeren
cboCategories.DataSource = dsLedenlijst1
cboCategories.DataMember = "tblCategories"
cboCategories.DataTextField = "Categorie"
cboCategories.DataValueField = "Categorienr"
cboCategories.DataBind()
cboCategories.SelectedItem.Value = cboCategories.Items(0).Value
'leden uit die groep weergeven in de datagrid
GeefAlleLedenWeer()
End If
End Sub
Sub GeefLedenWeer()
'sql-commando om leden van de gekozen categorie op te halen
Dim strsql As String
strsql = "SELECT Naam,Straat,Nr FROM tblLedenlijst"
strsql = strsql & " WHERE ((Categorienr=" & cboCategories.SelectedItem.Value & " or Categorienr2=" & cboCategories.SelectedItem.Value & ")"
strsql = strsql & " AND LHsite='ja')"
strsql = strsql & " ORDER BY Naam"
'leden ophalen via dataadapter en opslaan in de dataset
Dim daLeden As New OleDb.OleDbDataAdapter(strsql, objverbinding)
daLeden.Fill(dsLedenlijst1, "qryLeden")
'ledengegevens weergeven in de datagrid
dgridLeden.DataSource = dsLedenlijst1
dgridLeden.DataMember = "qryLeden"
dgridLeden.DataBind()
lblCategorie.Text = cboCategories.SelectedItem.Text
End Sub
Sub GeefAlleLedenWeer()
'sql-commando om leden van de gekozen categorie op te halen
Dim strsql As String
strsql = "SELECT Naam,Straat,Nr FROM tblLedenlijst"
strsql = strsql & " WHERE (LHsite='ja')"
strsql = strsql & " ORDER BY Naam"
'leden ophalen via dataadapter en opslaan in de dataset
Dim daLeden As New OleDb.OleDbDataAdapter(strsql, objverbinding)
daLeden.Fill(dsLedenlijst1, "qryLeden")
'ledengegevens weergeven in de datagrid
dgridLeden.DataSource = dsLedenlijst1
dgridLeden.DataMember = "qryLeden"
dgridLeden.DataBind()
lblCategorie.Text = cboCategories.SelectedItem.Text
lblCategorie.Text = "Alle leden"
End Sub
Private Sub dgridLeden_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles dgridLeden.SelectedIndexChanged
'dgridLeden.CurrentPageIndex = e.NewPageIndex
GeefLedenWeer()
End Sub
Private Sub cboCategories_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboCategories.SelectedIndexChanged
dgridLeden.CurrentPageIndex = 0
GeefLedenWeer()
End Sub
Private Sub cmdAlles_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAlles.Click
GeefAlleLedenWeer()
End Sub
iemand die mij oplossingen kan bieden op 1 van de problemen? Ik zou u zeer dankbaar zijn
Ik ben dus bezig met een asp.net webapplicatie te maken, maar ik zit nog met enkele probleempjes.
appz die ik gebruik:
MS access databank
VS.net
Probleem1:
Ik heb een nieuwscript gemaakt met een repeater. Nu is het probleem dat hij de smileys niet wil tonen. strBericht is de sting die ingevuld staat in mijn textbox.
strBericht = strBericht.Replace(":D", "[img]"[/img]")
Hoe komt het dat hij dit niet wil doen? Nogtans klopt dit volgens mij wel.
Het 2de probleem die ik heb bij mijn nieuwsscript is dat ik niet kan enterren in mijn berichten. Ik kan wel enterren in het textboxje, maar hij slaat die enter ( <br> ) niet op in de database. Hierdoor krijg ik als resultaat dat alle tekst aan elkaar wordt geplakt.
strBericht = strBericht.Replace(Chr(13), "<br />")
Iemand die de fout ziet?
Probleem2:
Ik heb een pagina met allemaal handelszaken gesorteerd volgens categorie (via combobox). Nu is het probleem dat hij ergens een foutmelding geeft op het weergeven van de handelszaken.
code:
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not IsPostBack Then
'categories ophalen en opslaan in de dataset
objverbinding.Open()
Dim daCategories As New OleDb.OleDbDataAdapter("SELECT * FROM tblCategories", objverbinding)
daCategories.Fill(dsLedenlijst1, "tblCategories")
'databinding voor dropdownlist activeren
cboCategories.DataSource = dsLedenlijst1
cboCategories.DataMember = "tblCategories"
cboCategories.DataTextField = "Categorie"
cboCategories.DataValueField = "Categorienr"
cboCategories.DataBind()
cboCategories.SelectedItem.Value = cboCategories.Items(0).Value
'leden uit die groep weergeven in de datagrid
GeefAlleLedenWeer()
End If
End Sub
Sub GeefLedenWeer()
'sql-commando om leden van de gekozen categorie op te halen
Dim strsql As String
strsql = "SELECT Naam,Straat,Nr FROM tblLedenlijst"
strsql = strsql & " WHERE ((Categorienr=" & cboCategories.SelectedItem.Value & " or Categorienr2=" & cboCategories.SelectedItem.Value & ")"
strsql = strsql & " AND LHsite='ja')"
strsql = strsql & " ORDER BY Naam"
'leden ophalen via dataadapter en opslaan in de dataset
Dim daLeden As New OleDb.OleDbDataAdapter(strsql, objverbinding)
daLeden.Fill(dsLedenlijst1, "qryLeden")
'ledengegevens weergeven in de datagrid
dgridLeden.DataSource = dsLedenlijst1
dgridLeden.DataMember = "qryLeden"
dgridLeden.DataBind()
lblCategorie.Text = cboCategories.SelectedItem.Text
End Sub
Sub GeefAlleLedenWeer()
'sql-commando om leden van de gekozen categorie op te halen
Dim strsql As String
strsql = "SELECT Naam,Straat,Nr FROM tblLedenlijst"
strsql = strsql & " WHERE (LHsite='ja')"
strsql = strsql & " ORDER BY Naam"
'leden ophalen via dataadapter en opslaan in de dataset
Dim daLeden As New OleDb.OleDbDataAdapter(strsql, objverbinding)
daLeden.Fill(dsLedenlijst1, "qryLeden")
'ledengegevens weergeven in de datagrid
dgridLeden.DataSource = dsLedenlijst1
dgridLeden.DataMember = "qryLeden"
dgridLeden.DataBind()
lblCategorie.Text = cboCategories.SelectedItem.Text
lblCategorie.Text = "Alle leden"
End Sub
Private Sub dgridLeden_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles dgridLeden.SelectedIndexChanged
'dgridLeden.CurrentPageIndex = e.NewPageIndex
GeefLedenWeer()
End Sub
Private Sub cboCategories_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboCategories.SelectedIndexChanged
dgridLeden.CurrentPageIndex = 0
GeefLedenWeer()
End Sub
Private Sub cmdAlles_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAlles.Click
GeefAlleLedenWeer()
End Sub
iemand die mij oplossingen kan bieden op 1 van de problemen? Ik zou u zeer dankbaar zijn