Umbruch in einer Access DB

[Marcus]

Guten Morgen ! :)

Ich hab sooo früh schon ein Problem und hoffe Ihr könnt
mir dabei helfen.

<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "testdb","",""
Set Session("testdb_conn") = conn
sql = "Select * FROM test"
Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open sql, conn, 3, 3
if rs.Supports(adUpdate + adAddNew) Then
rs.AddNew
rs.Fields("test") = Request.Form("test")&Request.Form("test1")
        rs.Fields("bla") = Request.Form("tag")
End if

rs.Update  
Response.Write("<h2>Ihr Eintrag wurde aufgenommen ! </h2>")  
Else  

Response.Write("<h2> Es ist ein Fehler aufgetreten ! </h2>")

End If

%>

So sieht der Quellcode aus und ist es jetzt möglich
hier ->> rs.Fields("test") = Request.Form("test")&Request.Form("test1") <<-
eine String einzugeben der einen Zeilenumbruch zwischen
test und test1 in der Access-DB zulässt ???

Wie immer bin ich über Antworten sehr froh

bis denne

Marcus

[Wowbagger]

Hi Marcus,

So sieht der Quellcode aus und ist es jetzt möglich
hier ->> rs.Fields("test") = Request.Form("test")&Request.Form("test1") <<-
eine String einzugeben der einen Zeilenumbruch zwischen
test und test1 in der Access-DB zulässt ???

Was du in der datenbank speicherst, um später einen umbruch durchzuführen ist im grunde egal, es kommt darauf an, wie der inhalt später umgesetzt wird.
Je nach anwendungsfall könntest du also folgendermassen verfahren:

rs.Fields("test") = Request.Form("test")& umbruch & Request.Form("test1")

wobei 'umbruch' entweder "<br>", oder chr(10) oder was auch immer später nötig sein wird enthalten kann...

hoffe, das hilft dir ein wenig :)

so long...
/*,*/
Wowbagger

[Stefan Falz]

Hi Marcus,

So sieht der Quellcode aus und ist es jetzt möglich
hier ->> rs.Fields("test") = Request.Form("test")&Request.Form("test1") <<-
eine String einzugeben der einen Zeilenumbruch zwischen
test und test1 in der Access-DB zulässt ???

Hallo,

probiers doch mal damit: rs.Fields("Test") = Request.Form("Test1") & vbCrLf & Request.Form("Test2")

Die Ausgabe kann dann mit Replace(rs.Fields("Test"), vbCrLf, "<br>") erfolgen.

Tschau, Stefan