Jag håller på med en site som har olika landssiter. Informationen hämtas från en databas med flera unika landstabeller. Nu vill jag kunna skapa en landsite för att sedan kunna skapa fler på ett enkelt vis genom "copy" - "paste".
I koden nedan så ser ni att jag i sql satsen skulle vilja baka in ett variabelvärde i "From Clause". För tabellerna skiljer sig så tillvida att de avslutas med sin landskod "tblUpdate_se" typ. Nu vill jag testa att lägga landskoden i en textfil som sedan läses upp och lägger sig efter "tblUpdate_(uppläsningen från textfilen här)". Så min fråga är då är detta möjligt eller ska jag lägga ner?
KOD:
-----
option explicit
Dim fso, cit, txtfil, SQL, db, rs, f
SET fso=CreateObject("scripting.FileSystemObject")
SET txtFil=fso.OpenTextFile(f&"C:\site\se\land.txt")
cit=txtFil.ReadAll
Response.Write(cit)
txtFil.Close
SQL = "SELECT * FROM tblUpdate_" &"cit" &"WHERE fltKategori = 'Cool' AND fltCountryCode = 'uk' AND flttitel Not In" &"(SELECT flttitel FROM tblUpdate_" &"cit" &"WHERE flttitel = 'empty slot') ORDER BY fltArtikelNr"
Set db = Server.CreateObject("ADODB.Connection")
db.Open "int_hardoxDSN"
Set rs = db.Execute (SQL)
Det saknas blanka framför where (även i subselecten)
SQL = "SELECT * FROM tblUpdate_" &"cit" &" WHERE fltKategori = 'Cool' AND fltCountryCode = 'uk' AND flttitel Not In" &"(SELECT flttitel FROM tblUpdate_" &"cit" &" WHERE flttitel = 'empty slot') ORDER BY fltArtikelNr"
------------------ essentitia preter non sans multiplicandum
Dessutom skall du inte ha citationstecken runt cit, eftersom det är en variabel:
SQL = "SELECT * FROM tblUpdate_" & cit &" WHERE fltKategori = 'Cool' AND fltCountryCode = 'uk' AND flttitel Not In" &"(SELECT flttitel FROM tblUpdate_" & cit &" WHERE flttitel = 'empty slot') ORDER BY fltArtikelNr"
Mvh,
------------------
All your base are belong to me.
Jag hinner aldrig få någon response när jag använder response.write tyvärr... (kanske lägge den fel) :(
Har gjort lite ändringar själv nu... Men det har å andra sidan inte löst problemet men jag tror att det är en bättre variant. Jag lagrar hela namnet i textfilen "tblUpdate_se" tex.
KODEN BLEV DÅ:
SQL = "SELECT * FROM '" &cit &"'" &" WHERE fltKategori = 'Hdx' AND fltCountryCode = 'uk' AND flttitel Not In" &"(SELECT flttitel FROM '" &cit &"'" &" WHERE flttitel = 'empty slot') ORDER BY fltArtikelNr"
'Response.write SQL
Set db = Server.CreateObject("ADODB.Connection")
db.Open "int_hardoxDSN"
Set rs = db.Execute (SQL)
OCH ERROR BLEV DÅ:
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] Syntax error in query. Incomplete query clause.
Okay till er samtliga vill jag bara säga det att när jag går ut för att svinga en eller annan bägare ikväll så ska jag tillägna en bägare för var och en av er.
*Sen tar jag en för Forumet och dess övriga gurus också*
------------------
There is no Tomorrow...
841 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
