Formattering af et Access memofelt i et datagrid

erstat VbCrLf eller \n med <br> kan ikke lige huske hvilken, men højst sandsynligt VbCrLf..

Mvh

Skal man gøre dette programmæssigt mellem at bruger har indtastet i tekstfeltet og til tekst gemmes i Access databasen?

Hvis du har et textarea er det lettest at erstatte \n med <br> før du gemmer i DB, men ønsker du ikke html i din database er den eneste måde at gøre det bagefter..

Jeg plejer at smide html i database, men det er ikke løsningen hvis dataen skal bruges andetsteds. Men arbejder selv kun med webforms.

http://www.google.dk/search?hl=da&q=replace+%2Bmemo+%2Bnewline+with+%2B%22%3Cbr%3E%22+%2Basp.net&meta=

Her er lidt..

Mvh

Hvis man ikke vil have HTML i databasen, skal tegnene erstattes før de sendes til datagriddet og det må vel så være i det dataset, der sendes til datagriddet. Ved du, hvordan man konkret ville kunne gøre det?

Jeg ser to løsninger:

1. Tilføj en ny kolonne til din DataTable, med en expression som automatisk omskriver værdien fra den oprindelige kolonne.

2. Løb igennem datatabellen og ret værdien i de pågældende felt.
foreach (DataRow dr in dtResults.Rows)
  dr["felt"] = ((string)dr["felt"]).Replace(Environment.Newlin, "<br />")

Begge dele kan gøres umiddelbart inden du databinder til dit grid.

"Begge dele" skal selvfølgelig forstås som "enten den ene eller anden løsning" :o)

Skal dtResults.Rows skrives som det står her eller skal dtResults defineres? Hvis ja, hvordan gør man det?

I mit eksempel ved dtResults navnet på den DataTable som du har din data i. Hvordan får du data ud af din database? Smid evt. de linjers kode hvor du databinder dit DataGrid.

Jeg gør sådan (den eneste måde jeg kan!):

Dim objConn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & server.mappath("/data/A-Nees.mdb") & ";")
objConn.Open()

Dim SQLTekst As OleDbCommand
Dim ds As OleDbDataReader
Dim strSQL As String

strSQL = "SELECT ...."
SQLTekst = New OleDbCommand(strSQL, objConn)
ds = SQLTekst.ExecuteReader()
DGOrdliste.DataSource = ds
DGOrdliste.DataBind()

Ok - jeg løfter normalt min data op i en DataTable, hvilket (IMO) gør det lettere at manipulere med data'en.

Er ikke selv hjemmevandt i VB.NET, men forsøger lige:


Dim objConn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & server.mappath("/data/A-Nees.mdb") & ";")
objConn.Open()

Dim dataSet As New DataSet()
Dim adapt As New OleDb.OleDbDataAdapter()
Dim strSQL As String

strSQL = "SELECT ...."

adapt.SelectCommand = New OleDbCommand(strSQL, objConn)
adapt.Fill(dataSet)

' Nu har vi vores data liggende i et DataSet, og kan lege med det...
Dim dataTable As DataTable() = dataSet.Tables[0]
For Each DataRow row in dataTable.Rows
    dataTable["memoFelt"] = CType(dataTable["memoFelt"], String).Replace(Environment.NewLine, "<br />")
Next

DGOrdliste.DataSource = dataTable
DGOrdliste.DataBind()


Håber det virker :)

Nu har jeg prøvet - den giver fejl på denne linie:

Dim dataTablex As DataTable() = dataSetx.Tables[0]

Jeg har tilføjet et 'x', da den brokkede sig over genbrug af ord.

Fejlmeldingen er: Compiler Error Message: BC30203: Identifier expected.

Hmm, måske er syntaksen sådan her i VB (klammer udskiftet med parantes):

Dim dataTablex As DataTable() = dataSetx.Tables(0)

Der sker i hvert fald en ændring i besked:

BC30311: Value of type 'System.Data.DataTable' cannot be converted to '1-dimensional array of System.Data.DataTable'.

Kan du se, hvad der er galt?

Jeg kender som sagt intet til VB, men jeg giver da at bud mere:
Dim dataTablex As DataTable = dataSetx.Tables(0)

Hvordan plejer man at deklerere en variable i VB !?

Dim dt As DataTable = New DataTable(dataSetx.Tables(0))

Tager første table i datasettet..

mit VB.net er også lidt rådent.. men det burde være sådan..

jokke > som jeg læser det du skriver, giver du constructoren til DataTable en DataTable som parameter...?

Jeg ved det er en gammel nyhed, men jeg tænkte at jeg ville give min viden videre, HVIS DER ER NOGEN SOM KAN BRUGE DEN :-)

Jeg henter data fra Dn op i en dynamisk tabel på min nyheds side.

Tabellens format er så ledes:

<table>
<tr><td>[dato]</td></tr>
<tr><td>[Overskrift]</td></tr>
<tr><td>[intro]td></tr>
<tr><td>[Text]</td></tr>
</table>

For at få det korrekte format fra Db med linie skift og det hele skriver jeg således når jeg generere min tabel:

        MyConnection.Open()
        MyCommand = New OleDbCommand
        MySQL = "SELECT * FROM News_tbl WHERE News_tbl.NewsID=" & viewstate("NewsID") & ";"
        'Response.Write(MySQL)
        MyCommand.CommandText = MySQL
        MyCommand.Connection = MyConnection
        MyReader = MyCommand.ExecuteReader
        While MyReader.Read


            'smid rækken ind i tabellen
            Table.Rows.Add(TblRow)
            'skriv noget i cellen
            TblCell.Text = MyReader("NewsDate")
            TblCell.CssClass = "NewsDate"
            'tilføj cellen til rækken
            TblRow.Cells.Add(TblCell)

            'og du kan self. fortsætte
            TblRow = New TableRow
            TblCell = New TableCell
            TblCell.Text = MyReader("Headline")
            TblCell.CssClass = "NewsHeadline"
            TblRow.Cells.Add(TblCell)
            Table.Rows.Add(TblRow)

            TblRow = New TableRow
            TblCell = New TableCell
            TblCell.Text = MyReader("Teaser")
            TblRow.Cells.Add(TblCell)
            Table.Rows.Add(TblRow)

            TblRow = New TableRow
            TblCell = New TableCell
            TblCell.Text = CType(MyReader("NewsText"), String).Replace(Environment.NewLine, "<br />")
            TblRow.Cells.Add(TblCell)
            Table.Rows.Add(TblRow)

            'til sidst kan du så lægge tabellen ind i din placeholde på siden
            PHNewsDetails.Controls.Add(Table)

        End While
        MyConnection.Close()

elvstine -> Mange tak for dit input! Det er rart at kunne slå op i efterfølgende.

elvstine -> vil du lægge et svar, så jeg kan afslutte?

Svar :-)