在Delphi 中（通过存储过程）插入含有西文双引号的字符串，如何处理？

如：    
  Str:='abc10"xx';            
  with   Dm.DataModule1.ADOQCosU   do  
                            Begin  
                            close;  
                            sql.Clear;  
                            sql.Add('exec   ToPMFabBom   ');  
                            sql.Add('@Fab_ID='''+   Str   +   '''   ');                          
                            ExecSQL;  
                            END;  
   
  执行以上语句报错！ 问题点数：20、回复次数：4Top

1 楼dh9450（荡尽尘埃）回复于 2005-11-11 10:29:31 得分 20

sql.Add('@Fab_ID='+   Quotedstr(Str));Top

2 楼huang110（今天没做坏事的人）回复于 2005-11-11 10:42:05 得分 0

如果这样，好象不行？    
  Str:='abc10"xx';            
  with   Dm.DataModule1.ADOQCosU   do  
                            Begin  
                            close;  
                            sql.Clear;  
                            sql.Add('exec   ToPMFabBom   ');  
                            sql.Add('@Fab_ID='''+   Str   +   ''',   ');    
                            sql.Add('@Tab_ID='''+   Str2   +   '''   ');                                                
                            ExecSQL;  
                            END;  
  Top

3 楼huang110（今天没做坏事的人）回复于 2005-11-11 10:57:36 得分 0

Str:='abc10"xx';    
  Str2:='abc1011';          
  with   Dm.DataModule1.ADOQCosU   do  
                            Begin  
                            close;  
                            sql.Clear;  
                            sql.Add('exec   ToPMFabBom   ');  
                            sql.Add('@Fab_ID='+   QuotedStr(STRI)',');    
                            sql.Add('@Tab_ID='''+   Str2   +   '''');                                                
                            ExecSQL;  
                            END;  
  报错！  
  谢谢！  
  Top

4 楼dh9450（荡尽尘埃）回复于 2005-11-11 11:34:04 得分 0

sql.Add('@Fab_ID='+   QuotedStr(STRI)+',');Top

相关问题

• sql
• adoqcosu
• fab
• quotedstr
• datamodule1
• execsql
• abc10
• exec topmfabbom
• clear
• xx

• 帖主：huang110
• dh9450

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载