His Divine ShadowMedlem sedan sep. 20002 748 inlägg
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
Ä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
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
strSQL = "SELECT * from quotes WHERE '"& LastDateHere &"' < Date ORDER BY Date DESC"
His Divine ShadowMedlem sedan sep. 20002 748 inlägg
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
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
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
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
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?