代码贴上来(VB & 存储过程)

解决方案 »

  1.   

    strSQL = "QA_Insert(" & intID & ",'" & strGreffier & "'," & datGreffierDate & ")"
       datGreffierDate ---日期
       strGreffier ---字符串
       intID  -----数字
      

  2.   

    strSQL = "QA_Insert(" & intID & ",'" & strGreffier & "',"' & datGreffierDate &' ")"
      

  3.   

    错了
    刚才没仔细看
    strSQL = "QA_Insert(" & intID & ",'" & strGreffier & "','" & datGreffierDate & "')"
      

  4.   

    CREATE OR REPLACE PROCEDURE TEST.QA_Insert(
    ID_IN  QA题目.ID        %TYPE, 
    登记人员_IN  QA题目.登记人员  %TYPE,   
    登记日期_IN  QA题目.登记日期  %TYPE, 
    审核人员_IN  QA题目.审核人员  %TYPE,  
    审核日期_IN  QA题目.审核日期  %TYPE, 
    登记期刊_IN  QA题目.登记期刊  %TYPE,     

    AS 
    BEGIN 
      insert into  QA题目(
             ID,登记人员,登记日期,审核人员 ,审核日期, 登记期刊) 
      values  (
             ID_IN,登记人员_IN,登记日期_IN,审核人员_IN,审核日期_IN, 登记期刊_IN); 
    END QA_Insert;