这个查询语句放入delphi中应该怎么写呀?

Question

select distinct substring(product_ID,1,(
SELECT
case
     when CHARINDEX('-',product_ID) = 0
     then 4
     else CHARINDEX('-',product_ID)-1
end ))
 from repair 
这个查询语句放入delphi中应该怎么写呀?

Answer 1

sql:='select distinct substring(product_ID,1,( '+
  'SELECT '+
   'case   '+
     'when CHARINDEX('-',product_ID)=0  '+
     'then 4  '+
     'else CHARINDEX('-',product_ID)-1    '+
'end     '+ '))    '+
 'from repair     ';这句话老是报错 'when CHARINDEX('-',product_ID)=0  '+

Answer 2

sql:='select distinct substring(product_ID,1,( '+
  'SELECT '+
   'case   '+
     'when CHARINDEX(''-'',product_ID)=0  '+
     'then 4  '+
     'else CHARINDEX(''-'',product_ID)-1    '+
'end     '+ '))    '+
 'from repair     ';