Jag har en textarea vilket information skickas till en annan sida som då ska lägga till datan i en Access-databas. Litet exempel:Insert:a flera poster från textarea
Informationen i textarean ser ut så här:
ID
FörNamn
EfterNamn
ID
FörNamn
EfterNamn
ID
FörNamn
EfterNamn
Information ovan skulle då bli 3 poster i databasen.
Jag har tidigare använt mig utav en temporär textfil som jag sen loopar ut, men skulle vilja slippa de nu.Sv: Insert:a flera poster från textarea
<code>
Dim Rows
Dim Index
Dim strSQL
Dim strText
Dim con
strText = "1" & vbCrLf & _
"Adam" & vbCrLf & _
"Andersson" & vbCrLf & _
"2" & vbCrLf & _
"Bengt" & vbCrLf & _
"Bertilsson" & vbCrLf & _
"3" & vbCrLf & _
"Carl" & vbCrLf & _
"Carlsson"
Rows = Split(strText, vbCrLf)
For Index = 0 To UBound(Rows) Step 3
strSQL = "INSERT INTO TabellNamn (ID, Förnamn, Efternamn) VALUES (" & CLng(Rows(Index)) & ", '" & Replace(Rows(Index + 1), "'", "''") & "', '" & Replace(Rows(Index + 2), "'", "''") & "')"
con.Execute strSQL
Next
</code>