---
title: "Skriva till databas"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/156380-skriva-till-databas"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "devotion"
published: "2007-01-24T17:34:52.000Z"
updated: "2007-01-25T18:14:20.000Z"
replies: 4
views: 423
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/156380-skriva-till-databas"
---
# Skriva till databas
## #1 — devotion, 2007-01-24T17:34Z
Hej!
Jag har ett halvfärdigt script, som jag undrar om någon kan hjälpa mig med...
Det är en html-fil som innehåller vbscript. Filen i sig används i en windowsapplikation...
Allt fungerar, jag vill bara ha hjälp med att skriva till databasen.. :) .
Hade det varit en asp-fil hade jag klarat det... Men nu när det är vbscript, vet jag inte riktigt hur jag ska göra....
Här kommer iaf koden:
```
Registrera materialrader
<%
'*********************************
'*********************************
function InsertPriceListOptions()
Dim objConn, objRS, sSQL
dim s, sName, sPriceListNr, n
Set objConn = CreateObject("ADODB.Connection")
objConn.Open Application.sDbConnectionString
Set objRs = CreateObject("ADODB.Recordset")
sSQL = "SELECT * FROM [tblPricelist] WHERE [Nr] In('01','02','03','07','11') ORDER BY [Name]"
objRS.Open sSQL, objConn
s=""
while not ObjRS.EOF
sName=objRs("Name")
n=InStr(sName, " (")
if n>0 then sName = Left(sName, n-1)
sPriceListNr = objRS("Nr")
s = s & ""
objRS.Movenext
wend
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
InsertPriceListOptions=s
end function
'*********************************
'*********************************
function InsertMaterialRows()
dim i, s
s=""
for i = 1 to 10
s = s & "
"
s = s & "
"
s = s & "
"
s = s & "
"
s = s & "
"
s = s & "
"
Next
InsertMaterialRows = s
end function
%>
Registrera materialrader för uppdrag: <% =GetUNValue("SELECT [TaskNr] FROM [tblTask] WHERE [Id]=") %>
```
Mvh
Henrik
Permalänk: https://www.webforum.nu/p/156380
## #2 — Peter S, 2007-01-24T17:47Z
Vad är det som skall skrivas till db:n (inkl. tabell- och kolumnnamn)?
Permalänk: https://www.webforum.nu/p/1926274
## #3 — devotion, 2007-01-24T18:38Z
Hepp! :)
tabellen heter:
> tblMaterial
> \*TaskId (variabel: \ rad 166 Detta är en specialare som windowsapplikationen skapar)
> \*ArtNr (variabel: sArtNr)
> \*ArtName (variabel: sArtName)
> \*Amount (variabel: fAmount)
> \*Unit (variabel: sUnit)
> \*PricelistNr (variabel: sPLNR)
> \*Price (variabel: fPrice)
Mvh
Henrik
Permalänk: https://www.webforum.nu/p/1926290
## #4 — Peter S, 2007-01-24T20:38Z
Det bör väl kunna se ut som så här då:
```
s=""
strValues = ""
for i=1 to 10
sArtNr=document.all.item("article" & i).value
sArtName=document.all.item("artname" & i).innerhtml
fAmount=document.all.item("amount" & i).value
sUnit=document.all.item("unit" & i).value
if sArtNr<>"" and lcase(Left(sArtName, 5))<>",'"&sArtnr&"','"&sArtName&"',"&fAmount&",'"&sUnit&"','"&sPLNr&"',"&fPrice&"),"[/red]
end if
next
strValues = left(strValues,len(strValues)-1)
if s<>"" then
r=MsgBox("Följande materialrader kommer att registreras: " & CrLf & CrLf & s , 1, "Skapa materialrader")
if r<>1 then exit sub
set conn = createobject("adodb.connection")
conn.open Application.sDbConnectionString
sql = "insert into tblMaterial (taskid,artnr,artname,amount,unit,pricelistnr,price) " &_
"values " & strValues
conn.execute(sql)
conn.close
set conn = nothing
else
```
Den rad som är rödmarkerad kanske måste ses över, men det märker du ;)
Permalänk: https://www.webforum.nu/p/1926320
## #5 — devotion, 2007-01-25T18:14Z
Men weee.. :) såg inte detta förrän idag...
Ska se om jag hinner testa i kväll.. :)
//Henrik
Permalänk: https://www.webforum.nu/p/1926599
---
Tråden på webben: https://www.webforum.nu/amne/dotnet/156380-skriva-till-databas