Problem med anrop

8 svar · 170 visningar · startad av His Divine Shadow 19 jan. 2003

His Divine ShadowMedlem sedan sep. 20004 079 inlägg

Trådstart19 jan. 2003 20:46#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. 20004 079 inlägg

19 jan. 2003 20:49#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. 20004 079 inlägg

19 jan. 2003 20:52#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 464 inlägg

19 jan. 2003 22:10#4

strSQL = "SELECT * from quotes WHERE '"& LastDateHere &"' < Date ORDER BY Date DESC"

His Divine ShadowMedlem sedan sep. 20004 079 inlägg

19 jan. 2003 22:15#5

Heh, så pass enkelt...

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 464 inlägg

19 jan. 2003 22:32#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. 20004 079 inlägg

19 jan. 2003 22:36#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 464 inlägg

19 jan. 2003 23:24#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. 20004 079 inlägg

19 jan. 2003 23:35#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?