已经检查很多次了,数据库字段没错,但还提示
无效资料行名称 lev_status taken_hr exam_result finasst_per finasst_amt finasst_apr_date finasst_apr_date_1 re
strSQL = "Insert Into classes(crs_num,cls_num,emp_id,fac_num,dept_num,grade_id,title_id,atn_status,"
strSQL &= "lev_status,taken_hr,exam_result,finasst_per,finasst_amt,finasst_apr_date,finasst_apr_date_1,re,"
strSQL &= "appro_user_id,appro_date,appro_status,crt_user,crt_datetime) Values( "
strSQL &= "'" & ReplaceString(DropDownList1.SelectedValue) & "',"
strSQL &= "'" & ReplaceString(DropDownList2.SelectedValue) & "',"
strSQL &= "'" & ReplaceString(empid.Text.Trim) & "',"
strSQL &= "'" & ReplaceString(DropDownList3.SelectedValue) & "',"
strSQL &= "'" & ReplaceString(DropDownList4.SelectedValue) & "',"
strSQL &= "'" & ReplaceString(DropDownList5.SelectedValue) & "',"
strSQL &= "'" & ReplaceString(DropDownList6.SelectedValue) & "',"
strSQL &= "'" & ReplaceString(DropDownList7.SelectedValue) & "',"
strSQL &= "'" & ReplaceString(DropDownList8.SelectedValue) & "',"
strSQL &= "'" & ReplaceString(takenhr.Text.Trim) & "',"
strSQL &= "'" & ReplaceString(examresult.Text.Trim) & "',"
strSQL &= "'" & ReplaceString(finasstper.Text.Trim) & "',"
strSQL &= "'" & ReplaceString(finasstamt.Text.Trim) & "',"
strSQL &= "'" & ReplaceString(finasstaprdate.Text.Trim) & "',"
strSQL &= "'" & ReplaceString(finasstaprdate1.Text.Trim) & "',"
strSQL &= "'" & ReplaceString(re.Text.Trim) & "',"
strSQL &= "'" & ReplaceString(DropDownList9.SelectedValue) & "',"
strSQL &= "'" & ReplaceString(approdate.Text.Trim) & "',"
strSQL &= "'" & ReplaceString(DropDownList10.SelectedValue) & "',"
strSQL &= "'" & Session("UserID") & "',"
strSQL &= "'" & Format(Now(), "yyyy-MM-dd HH:mm:ss") & "')"
把strSQL的值拷到查询分析器里,
仔细查看一下,并执行一下,就很容易知道哪的问题了。
--列出所有字段
declare @s varchar(8000)
set @s=''
select @s=@s+name+',' from syscolumns
where id=object_id('表名') order by colid
print left(@s,len(@s)-1)然后把打印出来的列名放到insert 语句的字段列表里