Dim i as Integer i=CInt(UpSubject.Text) Sql = "INSERT INTO subjec (subjec_describe, subject_name, up_subject) VALUES (" + Chr(39) + ""+ksms.Text+"" + Chr(39) + "'," + Chr(39) + ""+subject_name.Text+"" + Chr(39) + "," & trim(i) & " )"S 你的当前访问异常,请进行认证后继续阅读剩余内容。 提交