Hej har en kod som ser ut på följande sätt:

...
CompName = InputBox("SKRIV IN EAN-KOD", _
"LISTA ÖVER REKLAMATIONER")
...
sqlquery = "SELECT Bla, Bla, Bla FROM Bla WHERE Bla='" & CompName & "'"

With ActiveSheet.QueryTables.Add(Connection:="ODBC;DSN=123.udd;", _
Destination:=Range("A2"))
.CommandText = sqlquery
.FieldNames = False
.Refresh BackgroundQuery:=False
End With
...

Jag kör det här i ett vb-script i Excel och allt funkar jättebra. Vill köra detta script fritt från Excel men har letat och testat allt för att få databasen att fungera. Som det är nu skriver den ut databasqueryn i Excel men jag vill att det bara skall sparas i en sträng. Några förslag?

MVH
/Fredrik

sqlquery = "SELECT Bla, Bla, Bla FROM Bla WHERE Bla='" & CompName & "'"

Ska du inte använda OLIKA namn på fälten? :)

jo det gör jag men det är ju inte det viktiga i den här frågan!
Verkligen ingen som har någon aning? Synd! Får lösa de själv då!

/Fredrik