webForumDet fria alternativet

Problem med att infoga i access-databas

ASPur ASP

8 svar · 424 visningar · startad av Känning

Medlem sedan jan. 2003252 inlägg
Frågan#1

Hej

Jag hittade denna koden på aspsidan.nu

Men den funkar inte när jag försöker:

<%
 Set objConnect = Server.CreateObject("ADODB.Connection")
   strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")
   objConnect.Open strConnect

   strSQL = "INSERT INTO tabell"

   strSQL = strSQL & " VALUES('test')"

   objConnect.Execute strSQL,,128

   objConnect.Close : Set objConnect = Nothing
   
   %>

Jag använder en accessdatas.
Tabellen heter tabell och databasen heter db.

Medlem sedan juli 20033 147 inlägg
#2

Pröva med:

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

dim strtest
strtest = Request.Form("test")

sql = " insert into tabell(test) " & " values('" & strtest & "') "
Connect.Execute sql,,128

Mvh

Medlem sedan jan. 2003252 inlägg
#3

Nej, jag får samma sak:

Operationen måste använda en fråga som kan uppdateras.

Glömde skriva detta innan :r

Medlem sedan juli 20033 147 inlägg
#4

Finns det verkligen en tabell som heter tabell och en kolumn som heter test?

Extrakolla en gång till!

Mvh

Medlem sedan juni 200032 969 inlägg
#5

Känning skrev:

Operationen måste använda en fråga som kan uppdateras.

Då borde du uppdatera dina kunskaper i att söka på forumet.

Öva, öva, öva. ;)

Rättigheterna är inte korrekt inställda på mappen där databasen ligger.

Mvh

Medlem sedan jan. 2003252 inlägg
#6

Förlåt @nders, jag är grymt dålig på att söka här...

finns det någon kurs där man kan kolla lite på tips hur man söker bättre :r

Jag hade nämligen denna typ av kod innan, men tänkte att det var dags att gå över till mer sql-satser.

<!--#include file="adovbs.inc"-->
<%Set Connect = Server.CreateObject("ADODB.Connection") 
   Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db.mdb")&";"

	Set RecSet = Server.CreateObject("ADODB.Recordset")
   Addera = "SELECT * FROM tabell"

   RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

	RecSet.AddNew
   
	RecSet("objekt") = 20
	RecSet.Update
	RecSet.Close
	Connect.Close 
	
Response.Redirect "default.asp"
%>

Och när jag körde med denna typen så fick jag inte samma felmeddelande.

Nä nu ska jag försöka leta fram hur jag ställer in de korrekta rättigheterna i mappen.

Medlem sedan juni 200032 969 inlägg
#7

Så här brukar jag nog svara :)

Medlem sedan jan. 2003252 inlägg
#8

Man bugar och tackar :)

Tur att det finns sådana som ni grabbar, nu funkar det klockrent och nu ska jag köra SQL så det bara rycker ;)

Medlem sedan juni 200032 969 inlägg
#9

Perfekt! :)

Lycka till!

Mvh

135 ms totalt · 3 externa anrop · v20260731065814-full.25f56b17
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
133 ms — hämta tråd, inlägg och bilagor (db)