---
title: "Databas"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13690-databas"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "hacktheplanet"
published: "2002-01-08T23:48:00.000Z"
updated: "2002-01-10T18:42:00.000Z"
replies: 66
views: 350
page: 1
pages: 4
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/asp/13690-databas"
---

# Databas

_Sida 1 av 4._

## #1 — hacktheplanet, 2002-01-08T23:48Z

så här ser min registrering sida ut:

```
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&";"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select username From members"

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

	RecSet.AddNew
RecSet("status") = "offline"
OSVVVVVV......
OSV.......
OSV...
```

Hur gör jag typ om jag vill kopiera id numret när man reggar sig till members2.mdb där det finns ID1 kolumn???

Permalänk: https://www.webforum.nu/p/13690

## #2 — hacktheplanet, 2002-01-09T17:11Z

nån som fattar hur jag menar ????

Permalänk: https://www.webforum.nu/p/303505

## #3 — Brimba, 2002-01-09T17:15Z

```
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select username From members"

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

RecSet.AddNew
RecSet("status") = "offline"
RecSet("id1") = strID
RecSet.Update
strID = RecSet("id1")
RecSet.Close

koppla till members2.mdb

RecSet2.AddNew
RecSet2("id1") = strID
RecSet2.Update
RecSet2.Close
```

Så menar du?

Permalänk: https://www.webforum.nu/p/303506

## #4 — hacktheplanet, 2002-01-09T17:48Z

nu får jag :-( 
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
En OLE DB-åtgärd i flera steg genererade fel. Kontrollera alla OLE DB-statusvärden som finns tillgängliga. Inget arbete utfördes.

Permalänk: https://www.webforum.nu/p/303507

## #5 — Brimba, 2002-01-09T17:56Z

Prova med

```
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select username From members"

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

RecSet.AddNew
RecSet("status") = "offline"
RecSet("id1") = strID
RecSet.Update
strID = RecSet("id1")
RecSet.Close

Connect2.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members2.mdb")&";"
SQLStmt = "Insert INTO tblTable (id1) Values (strID)"
Connect2.Execute(SQLStmt)
Connect2.Close
Set Connect2 = Nothing
```

Permalänk: https://www.webforum.nu/p/303508

## #6 — hacktheplanet, 2002-01-09T17:58Z

```
Addera = "Select * From members"

If Request.Form("bild") = "" Then
bild = "Bilder\Medlemmar\ingen.gif"
Else
bild = Request.Form("bild")
End If

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

	RecSet.AddNew
	Recset("Blabla") = "Nej"
osv.....
osv......
	
	RecSet("id") = strID
	
	
	On Error Resume Next
	RecSet.Update
		
	
	Set Connect2 = Server.CreateObject("ADODB.Connection") 
	Connect2.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/sida.mdb")&";"
	Set RecSet2 = Server.CreateObject("ADODB.Recordset")
	Addera = "Select id1 From sida"

	RecSet2.Open Addera, Connect2, adOpenStatic, adLockOptimistic
	
	RecSet2.AddNew
	RecSet2("id1") = strID
	RecSet2.Update
	RecSet2.Close
	
	If Err.Number Then
Connection.Close
Set Connection = nothing
Session("meddelande2") = "Det användarnamn är upptaget! Försök med något annat"
Response.Redirect "bli_medlem.asp"
response.end
else

Session("meddelande") = "Du har nu blivit medlem"
Response.Redirect "default.asp"

End if
End if
```

\[Redigerat av hacktheplanet den 09 jan 2002\]

Permalänk: https://www.webforum.nu/p/303509

## #7 — Brimba, 2002-01-09T18:02Z

prova:

```
Addera = "Select * From members"
If Request.Form("bild") = "" Then
bild = "Bilder\Medlemmar\ingen.gif"
Else
bild = Request.Form("bild")
End If

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

RecSet.AddNew
Recset("Blabla") = "Nej"
osv.....
osv......

RecSet("id") = strID

On Error Resume Next
RecSet.Update
strID = RecSet("id")

Set Connect2 = Server.CreateObject("ADODB.Connection") 
Connect2.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/sida.mdb")&";"
SQLStmt = "Insert INTO tblTable (id1) Values (strID)"
Connect2.Execute(SQLStmt)
Connect2.Close
Set Connect2 = Nothing

If Err.Number Then
Connection.Close
Set Connection = nothing
Session("meddelande2") = "Det användarnamn är upptaget! Försök med något annat"
Response.Redirect "bli_medlem.asp"
response.end
else

Session("meddelande") = "Du har nu blivit medlem"
Response.Redirect "default.asp"

End if
End if
```

Permalänk: https://www.webforum.nu/p/303510

## #8 — hacktheplanet, 2002-01-09T18:04Z

Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
En OLE DB-åtgärd i flera steg genererade fel. Kontrollera alla OLE DB-statusvärden som finns tillgängliga. Inget arbete utfördes.
/bli_medlem.asp, line 183

Permalänk: https://www.webforum.nu/p/303511

## #9 — Brimba, 2002-01-09T18:06Z

Vilken rad är det?

Permalänk: https://www.webforum.nu/p/303512

## #10 — hacktheplanet, 2002-01-09T18:07Z

vänta

Permalänk: https://www.webforum.nu/p/303513

## #11 — hacktheplanet, 2002-01-09T18:07Z

RecSet("id") = strID

Permalänk: https://www.webforum.nu/p/303514

## #12 — Brimba, 2002-01-09T18:22Z

ta bort den raden

Permalänk: https://www.webforum.nu/p/303515

## #13 — hacktheplanet, 2002-01-09T18:27Z

då blir det fel på upptaget användarnamn!!!

Permalänk: https://www.webforum.nu/p/303516

## #14 — hacktheplanet, 2002-01-09T18:57Z

har gjort om sidan lite nu ser den ut så:
får felmess:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
\[Microsoft\]\[Drivrutin för ODBC Microsoft Access\] För få parametrar angavs. 1 förväntades.
/bli_medlem.asp, line 170

```
	Recset("VIP") = "Nej"
	
	RecSet.Update
	
	strID = RecSet("id")

	Set Connect2 = Server.CreateObject("ADODB.Connection") 
	Connect2.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/plank_sida.mdb")&";"
	SQLStmt = "Insert INTO plank_sida (id1) Values (strID)"
	Connect2.Execute(SQLStmt)

	Connect2.Close
	Set Connect2 = Nothing

	Connect.Close
	Set Connect = nothing
	
	Session("meddelande") = "Du har nu blivit medlem"
	Response.Redirect "default.asp"

	End if
%>
```

\[Redigerat av hacktheplanet den 09 jan 2002\]

Permalänk: https://www.webforum.nu/p/303517

## #15 — LarsG, 2002-01-09T18:59Z

```
SQLStmt = "Insert INTO plank_sida (id1) Values (" & strID & ")"
```

under förutsättning att id1 är en numerisk kolumn.

Permalänk: https://www.webforum.nu/p/303518

## #16 — hacktheplanet, 2002-01-09T19:02Z

nu får jag Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
\[Microsoft\]\[Drivrutin för ODBC Microsoft Access\] Syntaxfel i INSERT INTO-uttryck.

Permalänk: https://www.webforum.nu/p/303519

## #17 — LarsG, 2002-01-09T19:09Z

Lägg till en utskrift av sqlstmt

```
SQLStmt = "Insert INTO plank_sida (id1) Values (" & strID & ")"
response.write "sql: " & sqlstmt
```

Jag skulle tro att strID inte innehåller något värde.

Permalänk: https://www.webforum.nu/p/303520

## #18 — hacktheplanet, 2002-01-09T19:23Z

får forfarande samma felmess

Permalänk: https://www.webforum.nu/p/303521

## #19 — LarsG, 2002-01-09T19:28Z

Ja, det är klart du får. Vad blir resultatet av utskriften?

Permalänk: https://www.webforum.nu/p/303522

## #20 — hacktheplanet, 2002-01-09T20:17Z

jag får ingen utskrift??
så här eller:

```
 RecSet.Update
 
 strID = RecSet("id")
  
 Set Connect2 = Server.CreateObject("ADODB.Connection") 
 Connect2.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/plank_sida.mdb")&";"
 
 SQLStmt = "Insert INTO plank_sida (id1) Values (" & strID & ")"
 response.write "sql: " & sqlstmt
Connect2.Execute(SQLStmt)
 
 Connect2.Close
 Set Connect2 = Nothing

 Connect.Close
 Set Connect = nothing
```

Permalänk: https://www.webforum.nu/p/303523

---

Tråden på webben: https://www.webforum.nu/amne/asp/13690-databas  
Nästa sida: https://www.webforum.nu/amne/asp/13690-databas/page2.md