webForumDet fria alternativet

Problem med anrop

8 svar · 170 visningar · startad av His Divine Shadow

His Divine ShadowMedlem sedan sep. 20002 748 inlägg
#1

Detta är kopplings koden jag använder:

connection = "Driver={Mysql};Server=localhost;Database=quotes;UID=User;PWD=Password"

Problemet är att den inte funkar, tror jag, kanske det är nån annan SQL del som inte funkar, detta säger den:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[TCX][MyODBC]Unknown column 'Type' in 'order clause'
/addnew.asp, line 12

Här är SQL Linjen:
SQL = "SELECT * from SWSources ORDER BY Type, Subcategory"

Fastän jag bara hugger ner det till detta så funkar det inte:
SQL = "SELECT * from SWSources"

His Divine ShadowMedlem sedan sep. 20002 748 inlägg
#2

Äsch, inget, fick igång MySQL control center igen nu, vid kopieringen av tabellerna så bytte det namn här och där...

His Divine ShadowMedlem sedan sep. 20002 748 inlägg
#3

Men då vi nu håller på, denna SQL linje verkar inte funka i MySQL:
strSQL = "SELECT * from quotes WHERE #"& LastDateHere &"# < Date ORDER BY Date DESC"

LarsGMedlem sedan dec. 200012 465 inlägg
#4
strSQL = "SELECT * from quotes WHERE '"& LastDateHere &"' < Date ORDER BY Date DESC"
His Divine ShadowMedlem sedan sep. 20002 748 inlägg
#5

Heh, så pass enkelt... :p

Men, nu har jag problem med recordsetet:

objRS.AbsolutePage = intPage

Säger detta:
Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype.

Det här är väl lika enkelt fixat, skillnaderna mellan Access och MySQL är små men viktiga...

LarsGMedlem sedan dec. 200012 465 inlägg
#6

Det där verkar vara något problem/brist i Myodbc. Vilken cursorlocation sätter du för ditt recordset?

His Divine ShadowMedlem sedan sep. 20002 748 inlägg
#7

Detta är hela koden fram till problem linjen:

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open connection

strSQL = "SELECT * from quotes ORDER BY Date DESC Limit 0,10"

'## -- skapa ett recordset --
Set objRS = Server.CreateObject("ADODB.Recordset")
'## -- hur många poster ska visas per sida --
objRS.PageSize = intPageSize

'## -- öppna och hämta alla records --
objRS.Open strSQL, objConn, 3, 1

If objRS.EOF Then
Response.Write "<br>No new quotes have been added since your last visit<br><br>"
Else

'## -- vilken sida i recordset uppdelningen ska visas --
objRS.AbsolutePage = intPage

'## -- hur många sidor finns i recordset uppdelningen --
intTotalPages = objRS.PageCount
LarsGMedlem sedan dec. 200012 465 inlägg
#8

Om du testar så här då?

'## -- öppna och hämta alla records --
objRS.cursorlocation = 3
objRS.Open strSQL, objConn, 3, 1
His Divine ShadowMedlem sedan sep. 20002 748 inlägg
#9

Jo, nu funkar det, tack :)

Kan du berätta vad ändringarna gör?
Vad det bara en cursorlocation(vad nu det är) som behövdes?

Genererad på 384 ms · cache AV · v20260730165559-full.f96bc7eb