为什么我不能向数据库插入数据？

Question

首先你的用户有没有权限？
把你的代码帖出来！

Answer 1

代码如下
sub begininput()    if len(weekno.value)=0 then
    
       msgbox "请输入周别......",,"提示窗口"
     
       exit sub
       
    end if  
     
    if len(classno.value)=0 and len(xm.value)=0 and len(start_no.value)=0 then
    
      msgbox "请选择班级或者输入学号,姓名......",,"提示窗口"
      exit sub
      
    end if   
    
      
  
    
    l_date=trim(dateno.value)  
      
   if len(start_no.value)=0 and len(xm.value)=0   then
       
              rds1.SQL="execute kaoqin_class "+"'"+trim(weekno.value)+"',"+"'"+trim(l_date)+"',"+"'"+trim(classno.value)+"',"+"'"+trim(kno.value)+"'"  
       
       rds1.ExecuteOptions = 1
       
       rds1.SQL="select * from kaoqin where 班号='" & trim(classno.value) & "'"
       
       rds1.Refresh 
       
   elseif len(start_no.value)<>0 and len(xm.value)=0 then
    
       
   
       rds1.SQL="execute kaoqin_xh"+"'"+trim(weekno.value)+"',"+"'"+trim(l_date)+"',"+"'"+trim(start_no.value)+"',"+"'"+trim(kno.value)+"'"
  
       rds1.ExecuteOptions = 1       rds1.SQL="select * from kaoqin where 学号='" & trim(start_no) & "'" 
   
       rds1.Refresh 
          
   elseif len(start_no.value)=0 and len(xm.value)=0 then
   
       rds1.SQL="execute kaoqin_xm"+"'"+trim(weekno.value)+"',"+"'"+trim(l_date)+"',"+"'"+trim(xm.value)+"',"+"'"+trim(kno.value)+"'"
  
       rds1.ExecuteOptions = 1       rds1.sql="select * from kaoqin where 姓名='" & trim(xm.value) & "'"
   
       rds1.Refresh 
     
   elseif len(start_no.value)<>0 and len(xm.value)=0 then
      
       rds1.SQL="execute kaoqin_xh"+"'"+trim(weekno.value)+"',"+"'"+trim(l_date)+"',"+"'"+trim(start_no.value)+"',"+"'"+trim(kno.value)+"'"
  
       rds1.ExecuteOptions = 1       rds1.SQL="select * from kaoqin where 学号='" & trim(start_no) & "'" 
   
       rds1.Refresh
   
   end if

end sub

Answer 2

你在什么地方有插入的代码？我怎么找不到？

Answer 3

你把代码邮件给我，我发邮件给你！