现在又几个表,关系如下当我执行如下代码时就会出现Adodc2.Recordset.AddNew Adodc2.Recordset.Fields("studentNumber") = text(0).text
Adodc2.Recordset.Fields("studentClass") = text(18).text
Adodc2.Recordset.Fields("studentName") = text(1).text
Adodc2.Recordset.Fields("studentSex") = txt2.text
Adodc2.Recordset.Fields("studentBirthday") = CDate(text(2).text)
Adodc2.Recordset.Fields("studentPoliticsface") = text(3).text
Adodc2.Recordset.Fields("studentEntranceTime") = CDate(text(4).text)
Adodc2.Recordset.Fields("studentYardDepartment") = text(5).text
Adodc2.Recordset.Fields("studentNativePlace") = text(6).text
Adodc2.Recordset.Fields("studentIDCard") = text(7).text
Adodc2.Recordset.Fields("studentFamilyAddress") = text(8).text
Adodc2.Recordset.Fields("studentRes") = text(9).text Adodc2.Recordset.Fields("CommonClass") = Val(text(10).text)
Adodc2.Recordset.Fields("SpecializedCourse") = Val(text(11).text)
Adodc2.Recordset.Fields("ExamineClass") = Val(text(12).text)
Adodc2.Recordset.Fields("DoubleDegree") = Val(text(13).text)
Adodc2.Recordset.Fields("ElectiveCourse") = Val(text(14).text)
Adodc2.Recordset.Fields("ExtracurricularCredit") = Val(text(15).text)
Adodc2.Recordset.Fields("CET-4") = Val(text(16).text)
Adodc2.Recordset.Fields("CET-6") = Val(text(17).text)
'Adodc2.Recordset.Fields("Info.studentNumber") = text(0).text
'Adodc2.Recordset.Fields("classInfo.studentClass") = text(18).text
Adodc2.Recordset.Fields("classInfo") = text(19).text
Adodc2.Recordset.Update当我把
Adodc2.Recordset.Fields("studentNumber") = text(0).text
Adodc2.Recordset.Fields("studentClass") = text(18).text改成
Adodc2.Recordset.Fields("studentInfo.studentNumber") = text(0).text
Adodc2.Recordset.Fields("studentInfo.studentClass") = text(18).text就会出现如下错误
Adodc2.Recordset.Fields("studentClass") = text(18).text
Adodc2.Recordset.Fields("studentName") = text(1).text
Adodc2.Recordset.Fields("studentSex") = txt2.text
Adodc2.Recordset.Fields("studentBirthday") = CDate(text(2).text)
Adodc2.Recordset.Fields("studentPoliticsface") = text(3).text
Adodc2.Recordset.Fields("studentEntranceTime") = CDate(text(4).text)
Adodc2.Recordset.Fields("studentYardDepartment") = text(5).text
Adodc2.Recordset.Fields("studentNativePlace") = text(6).text
Adodc2.Recordset.Fields("studentIDCard") = text(7).text
Adodc2.Recordset.Fields("studentFamilyAddress") = text(8).text
Adodc2.Recordset.Fields("studentRes") = text(9).text Adodc2.Recordset.Fields("CommonClass") = Val(text(10).text)
Adodc2.Recordset.Fields("SpecializedCourse") = Val(text(11).text)
Adodc2.Recordset.Fields("ExamineClass") = Val(text(12).text)
Adodc2.Recordset.Fields("DoubleDegree") = Val(text(13).text)
Adodc2.Recordset.Fields("ElectiveCourse") = Val(text(14).text)
Adodc2.Recordset.Fields("ExtracurricularCredit") = Val(text(15).text)
Adodc2.Recordset.Fields("CET-4") = Val(text(16).text)
Adodc2.Recordset.Fields("CET-6") = Val(text(17).text)
'Adodc2.Recordset.Fields("Info.studentNumber") = text(0).text
'Adodc2.Recordset.Fields("classInfo.studentClass") = text(18).text
Adodc2.Recordset.Fields("classInfo") = text(19).text
Adodc2.Recordset.Update当我把
Adodc2.Recordset.Fields("studentNumber") = text(0).text
Adodc2.Recordset.Fields("studentClass") = text(18).text改成
Adodc2.Recordset.Fields("studentInfo.studentNumber") = text(0).text
Adodc2.Recordset.Fields("studentInfo.studentClass") = text(18).text就会出现如下错误
解决方案 »
- WritePrivateProfileSection 是否有对应的 Kill 函數
- 调用vc的dll(有关串口),生成的exe可以正常运行,但是在编译环境中运行时,串口却释放不掉,高人入!
- 请教
- 有个小问题请教大家!
- 哪位高手看一下这篇JPEG 简易文档,看能否搞一个bmp to jpg的程序,我看不懂!
- 写了个局域网聊天程序,源码放送。
- 关于VB FindFirst 的一个简单问题
- 怎么在VB里实现BMP格式向-->GIF格式的转化
- 我用VB打包的安装程序,怎么也注册不上ADO控件呢?请高手指教?(在线等待)
- vb.net调用webservice如何解决多人同时查询时的错误?
- 在ACTIVEX控件中调用了DataReport和ADO对象,该控件插入网页的时候需要在客户端注册哪些DLL或OCX?
- 运行VB 源码的问题
Adodc2.Recordset.Fields("studentInfo.studentClass")
这种写法显然是错误的,Fields后面只能是字段,如果用的是多表关联的话,建议用视图
象studentInfo.studentClass这样的写法应给别名