Databas

66 svar · 317 visningar · startad av hacktheplanet 8 jan. 2002

hacktheplanetMedlem sedan nov. 2001263 inlägg

8 jan. 2002 23:48#1

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???

hacktheplanetMedlem sedan nov. 2001263 inlägg

9 jan. 2002 17:11#2

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

BrimbaMedlem sedan dec. 19995 875 inlägg

9 jan. 2002 17:15#3

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?

------------------
Mvh
Patrik aka Brimba

[Redigerat av Brimba den 09 jan 2002]

hacktheplanetMedlem sedan nov. 2001263 inlägg

9 jan. 2002 17:48#4

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.

BrimbaMedlem sedan dec. 19995 875 inlägg

9 jan. 2002 17:56#5

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

------------------
Mvh
Patrik aka Brimba

hacktheplanetMedlem sedan nov. 2001263 inlägg

9 jan. 2002 17:58#6

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]

BrimbaMedlem sedan dec. 19995 875 inlägg

9 jan. 2002 18:02#7

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

------------------
Mvh
Patrik aka Brimba

hacktheplanetMedlem sedan nov. 2001263 inlägg

9 jan. 2002 18:04#8

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

BrimbaMedlem sedan dec. 19995 875 inlägg

9 jan. 2002 18:06#9

Vilken rad är det?

------------------
Mvh
Patrik aka Brimba

hacktheplanetMedlem sedan nov. 2001263 inlägg

9 jan. 2002 18:07#10

vänta

hacktheplanetMedlem sedan nov. 2001263 inlägg

9 jan. 2002 18:07#11

RecSet("id") = strID

BrimbaMedlem sedan dec. 19995 875 inlägg

9 jan. 2002 18:22#12

ta bort den raden

hacktheplanetMedlem sedan nov. 2001263 inlägg

9 jan. 2002 18:27#13

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

hacktheplanetMedlem sedan nov. 2001263 inlägg

9 jan. 2002 18:57#14

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]

LarsGMedlem sedan dec. 200012 464 inlägg

9 jan. 2002 18:59#15

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

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

------------------
essentitia preter non sans multiplicandum

hacktheplanetMedlem sedan nov. 2001263 inlägg

9 jan. 2002 19:02#16

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

LarsGMedlem sedan dec. 200012 464 inlägg

9 jan. 2002 19:09#17

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.

------------------
essentitia preter non sans multiplicandum

hacktheplanetMedlem sedan nov. 2001263 inlägg

9 jan. 2002 19:23#18

får forfarande samma felmess

LarsGMedlem sedan dec. 200012 464 inlägg

9 jan. 2002 19:28#19

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

------------------
essentitia preter non sans multiplicandum

hacktheplanetMedlem sedan nov. 2001263 inlägg

9 jan. 2002 20:17#20

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