bjdzdy 发表于:2013-12-24 12:49:05
这是出错的代码, rsE!培训号.Value是从excel中取的值。运行后,提示:insert into 语句的语法错误
ssql = "insert into train_zdy "
ssql = ssql & "values ('" & rsE!培训号.Value & "','"
ssql = ssql & rsE!部门序号.Value & "','"
ssql = ssql & rsE!意见.Value & "','"
ssql = ssql & rsE!修改内容.Value & "','"
ssql = ssql & rsE!主办部门.Value & "','"
ssql = ssql & rsE!培训方式.Value & "','"
ssql = ssql & rsE!项目类别.Value & "','"
ssql = ssql & rsE!项目名称.Value & "','"
ssql = ssql & rsE!内容简介.Value & "','"
ssql = ssql & rsE!培训对象.Value & "','"
ssql = ssql & rsE!培训对象职等.Value & "',#"
ssql = ssql & rsE!开始时间.Value & "#,#"
ssql = ssql & rsE!结束时间.Value & "#,"
ssql = ssql & rsE!培训期数.Value & ","
ssql = ssql & rsE!培训人数.Value & ",'"
ssql = ssql & rsE!培训地点.Value & "','"
ssql = ssql & rsE!境内外.Value & "','"
ssql = ssql & rsE!人员分类.Value & "')"
CurrentDb.Execute ssql
ssql = "insert into train_zdy (培训号,部门序号,.......)"
ssql = ssql & "SELECT '" & rsE!培训号.Value & "','"
ssql = ssql & rsE!部门序号.Value & "','"
ssql = ssql & rsE!意见.Value & "','"
ssql = ssql & rsE!修改内容.Value & "','"
ssql = ssql & rsE!主办部门.Value & "','"
ssql = ssql & rsE!培训方式.Value & "','"
ssql = ssql & rsE!项目类别.Value & "','"
ssql = ssql & rsE!项目名称.Value & "','"
ssql = ssql & rsE!内容简介.Value & "','"
ssql = ssql & rsE!培训对象.Value & "','"
ssql = ssql & rsE!培训对象职等.Value & "',#"
ssql = ssql & rsE!开始时间.Value & "#,#"
ssql = ssql & rsE!结束时间.Value & "#,"
ssql = ssql & rsE!培训期数.Value & ","
ssql = ssql & rsE!培训人数.Value & ",'"
ssql = ssql & rsE!培训地点.Value & "','"
ssql = ssql & rsE!境内外.Value & "','"
ssql = ssql & rsE!人员分类.Value & "'"
CurrentDb.Execute ssql
试试看行不行
嗯,我去试试看
试过了,还是提示insert into 语句的语法错误。
从excel中取的值是否有空值,建议取的值都加上Nz函数。例Nz(rsE!培训号.Value,''),Nz(rsE!培训期数.Value,0)等等。
另落尘_小新的回复中有一处错误,在ssql = "insert into train_zdy (培训号,部门序号,.......)"后应有一个空格,即:ssql = "insert into train_zdy (培训号,部门序号,.......) "
总记录:4篇 页次:1/1 9 1 :