7 svar · 225 visningar · startad av Jacob
Jag får ett jobbit felmedelande, jag har gjort ett fomulär som jag ska lägga till nyhter med i min databas men.
Det som strular är min bildid, jag ska nämligen ha med bilder i nyhterna så jag döper att till tal 1,2,3 osv men vissa nyheter har inget någon bild så då vill jag ju nolla ruta men då får ajg felmedelandet:
Feltyp:
Provider (0x80020005)
Typblandningsfel.
/videomonitor/add.asp, line 19
Om jag skriver in det i databasen sä är det ingen fara.
hjälp
------------------
ja©ob
Hello,
vad e det som står på rad 19?
cya
------------------
'*********************
Response.Write("PatrikB")
Response.End
'*********************
Så här det det ut:
<html>
<!-- #include file="adovbs.inc" -->
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\videomonitor\adressbok.mdb"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM filmnyheter"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
RecSet.AddNew
RecSet("rubrik") = Request.Form("Rubrik")
RecSet("datum") = Request.Form("Datum")
RecSet("forfattare") = Request.Form("Forfattare")
RecSet("texten") = Request.Form("Texten")
[b]RecSet("bildid") = Request.Form("Bildid")[/b]
RecSet.Update
RecSet.Close
Connect.Close %>
------------------
ja©ob
[Redigerat av Jacob den 10 dec 2000]
RecSet("bildid") = cInt(Request.Form("Bildid"))
Då får jag ett nytt felmedelande:
Feltyp:
Körningsfel i Microsoft VBScript (0x800A000D)
Inkompatibla typer: 'cInt'
/videomonitor/add.asp, line 20
------------------
ja©ob
Hello,
"gissar" på att fältet bildid är av typen Tal(Int).
Ändra den till text ... och tillåt nollvärde.
Eller så sätter du bildid till 0 om det ej finns ngn bild till nyheten
cya,
------------------
'*********************
Response.Write("PatrikB")
Response.End
'*********************
Problemet med text är att jag vill kunna sotera efter bildid och om jag har text så soterar den fel det störsa är 9.
------------------
ja©ob
Jag löste det:
RecSet("rubrik") = Request.Form("Rubrik")
RecSet("datum") = Request.Form("Datum")
RecSet("forfattare") = Request.Form("Forfattare")
RecSet("texten") = Request.Form("Texten")
If Request.Form("Bildid") = "" Then
Else
RecSet("bildid") = Request.Form("Bildid")
End If
Tack för tipsen!!
------------------
ja©ob
[Redigerat av Jacob den 11 dec 2000]