我编了个数据库程序,是VB+access的。现在出了点问题,显示的是“实时错误‘-2147467259(80004005)’查询过于复杂”
具体代码如下:
Adodc4.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\motor_info.mdb;Persist Security Info=False"
Adodc4.CommandType = adCmdText
Adodc4.RecordSource = "select * from 负载表 where 负载表.number='" + Trim(Text16.Text) + "' "
Adodc4.Refresh
With Adodc4.Recordset
If .RecordCount > 0 Then '保存负载信息
.Fields("number") = Trim(Text16)
.Fields("Uo1") = Val(Text1(0)): .Fields("电压倍率1") = Val(Text2(0)): .Fields("Ioa1") = Val(Text3(0)): .Fields("Iob1") = Val(Text4(0)): .Fields("Ioc1") = Val(Text5(0)): .Fields("电流倍率1") = Val(Text6(0)): .Fields("Poa1") = Val(Text7(0)): .Fields("Pob1") = Val(Text9(0)): .Fields("转矩1") = Val(Text12(0)): .Fields("转速1") = Val(Text13(0)): .Fields("tt温度1") = Val(Text11(0)): .Fields("频率1") = Val(Text8(0))
.Fields("Uo2") = Val(Text1(1)): .Fields("电压倍率2") = Val(Text2(1)): .Fields("Ioa2") = Val(Text3(1)): .Fields("Iob2") = Val(Text4(1)): .Fields("Ioc2") = Val(Text5(1)): .Fields("电流倍率2") = Val(Text6(1)): .Fields("Poa2") = Val(Text7(1)): .Fields("Pob2") = Val(Text9(1)): .Fields("转矩2") = Val(Text12(1)): .Fields("转速2") = Val(Text13(1)): .Fields("tt温度2") = Val(Text11(1)): .Fields("频率2") = Val(Text8(1))
.Fields("Uo3") = Val(Text1(2)): .Fields("电压倍率3") = Val(Text2(2)): .Fields("Ioa3") = Val(Text3(2)): .Fields("Iob3") = Val(Text4(2)): .Fields("Ioc3") = Val(Text5(2)): .Fields("电流倍率3") = Val(Text6(2)): .Fields("Poa3") = Val(Text7(2)): .Fields("Pob3") = Val(Text9(2)): .Fields("转矩3") = Val(Text12(2)): .Fields("转速3") = Val(Text13(2)): .Fields("tt温度3") = Val(Text11(2)): .Fields("频率3") = Val(Text8(2))
.Fields("Uo4") = Val(Text1(3)): .Fields("电压倍率4") = Val(Text2(3)): .Fields("Ioa4") = Val(Text3(3)): .Fields("Iob4") = Val(Text4(3)): .Fields("Ioc4") = Val(Text5(3)): .Fields("电流倍率4") = Val(Text6(3)): .Fields("Poa4") = Val(Text7(3)): .Fields("Pob4") = Val(Text9(3)): .Fields("转矩4") = Val(Text12(3)): .Fields("转速4") = Val(Text13(3)): .Fields("tt温度4") = Val(Text11(3)): .Fields("频率4") = Val(Text8(3))
.Fields("Uo5") = Val(Text1(4)): .Fields("电压倍率5") = Val(Text2(4)): .Fields("Ioa5") = Val(Text3(4)): .Fields("Iob5") = Val(Text4(4)): .Fields("Ioc5") = Val(Text5(4)): .Fields("电流倍率5") = Val(Text6(4)): .Fields("Poa5") = Val(Text7(4)): .Fields("Pob5") = Val(Text9(4)): .Fields("转矩5") = Val(Text12(4)): .Fields("转速5") = Val(Text13(4)): .Fields("tt温度5") = Val(Text11(4)): .Fields("频率5") = Val(Text8(4))
.Fields("Uo6") = Val(Text1(5)): .Fields("电压倍率6") = Val(Text2(5)): .Fields("Ioa6") = Val(Text3(5)): .Fields("Iob6") = Val(Text4(5)): .Fields("Ioc6") = Val(Text5(5)): .Fields("电流倍率6") = Val(Text6(5)): .Fields("Poa6") = Val(Text7(5)): .Fields("Pob6") = Val(Text9(5)): .Fields("转矩6") = Val(Text12(5)): .Fields("转速6") = Val(Text13(5)): .Fields("tt温度6") = Val(Text11(5)): .Fields("频率6") = Val(Text8(5))
.Fields("Uo7") = Val(Text1(6)): .Fields("电压倍率7") = Val(Text2(6)): .Fields("Ioa7") = Val(Text3(6)): .Fields("Iob7") = Val(Text4(6)): .Fields("Ioc7") = Val(Text5(6)): .Fields("电流倍率7") = Val(Text6(6)): .Fields("Poa7") = Val(Text7(6)): .Fields("Pob7") = Val(Text9(6)): .Fields("转矩7") = Val(Text12(6)): .Fields("转速7") = Val(Text13(6)): .Fields("tt温度7") = Val(Text11(6)): .Fields("频率7") = Val(Text8(6))
.Fields("Uo8") = Val(Text1(7)): .Fields("电压倍率8") = Val(Text2(7)): .Fields("Ioa8") = Val(Text3(7)): .Fields("Iob8") = Val(Text4(7)): .Fields("Ioc8") = Val(Text5(7)): .Fields("电流倍率8") = Val(Text6(7)): .Fields("Poa8") = Val(Text7(7)): .Fields("Pob8") = Val(Text9(7)): .Fields("转矩8") = Val(Text12(7)): .Fields("转速8") = Val(Text13(7)): .Fields("tt温度8") = Val(Text11(7)): .Fields("频率8") = Val(Text8(7))
.Fields("负载温度") = Val(Text20): .Fields("冷态端电阻") = Val(Text14): .Fields("冷态绕组温度") = Val(Text18): .Fields("极对数") = Val(Text22): .Fields("铁损耗") = Val(Text15): .Fields("风靡耗") = Val(Text19): .Fields("△T") = Val(Text10): .Fields("温升最高温度") = Val(Text23): .Fields("温升电阻") = Val(Text24): .Fields("额定频率") = Val(Text26): .Fields("额定功率") = Val(Text25) strmessage = "是否保存当前数据?"
If MsgBox(strmessage, vbYesNo) = vbYes Then
.Update
Else
.CancelUpdate
End If
End If
.Close
End With 运行时,错误提示在 .update 这行 ,我这个数据时access建立的,其中这个负载表有106个字段。
请教哪位XDJM帮忙指点下
具体代码如下:
Adodc4.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\motor_info.mdb;Persist Security Info=False"
Adodc4.CommandType = adCmdText
Adodc4.RecordSource = "select * from 负载表 where 负载表.number='" + Trim(Text16.Text) + "' "
Adodc4.Refresh
With Adodc4.Recordset
If .RecordCount > 0 Then '保存负载信息
.Fields("number") = Trim(Text16)
.Fields("Uo1") = Val(Text1(0)): .Fields("电压倍率1") = Val(Text2(0)): .Fields("Ioa1") = Val(Text3(0)): .Fields("Iob1") = Val(Text4(0)): .Fields("Ioc1") = Val(Text5(0)): .Fields("电流倍率1") = Val(Text6(0)): .Fields("Poa1") = Val(Text7(0)): .Fields("Pob1") = Val(Text9(0)): .Fields("转矩1") = Val(Text12(0)): .Fields("转速1") = Val(Text13(0)): .Fields("tt温度1") = Val(Text11(0)): .Fields("频率1") = Val(Text8(0))
.Fields("Uo2") = Val(Text1(1)): .Fields("电压倍率2") = Val(Text2(1)): .Fields("Ioa2") = Val(Text3(1)): .Fields("Iob2") = Val(Text4(1)): .Fields("Ioc2") = Val(Text5(1)): .Fields("电流倍率2") = Val(Text6(1)): .Fields("Poa2") = Val(Text7(1)): .Fields("Pob2") = Val(Text9(1)): .Fields("转矩2") = Val(Text12(1)): .Fields("转速2") = Val(Text13(1)): .Fields("tt温度2") = Val(Text11(1)): .Fields("频率2") = Val(Text8(1))
.Fields("Uo3") = Val(Text1(2)): .Fields("电压倍率3") = Val(Text2(2)): .Fields("Ioa3") = Val(Text3(2)): .Fields("Iob3") = Val(Text4(2)): .Fields("Ioc3") = Val(Text5(2)): .Fields("电流倍率3") = Val(Text6(2)): .Fields("Poa3") = Val(Text7(2)): .Fields("Pob3") = Val(Text9(2)): .Fields("转矩3") = Val(Text12(2)): .Fields("转速3") = Val(Text13(2)): .Fields("tt温度3") = Val(Text11(2)): .Fields("频率3") = Val(Text8(2))
.Fields("Uo4") = Val(Text1(3)): .Fields("电压倍率4") = Val(Text2(3)): .Fields("Ioa4") = Val(Text3(3)): .Fields("Iob4") = Val(Text4(3)): .Fields("Ioc4") = Val(Text5(3)): .Fields("电流倍率4") = Val(Text6(3)): .Fields("Poa4") = Val(Text7(3)): .Fields("Pob4") = Val(Text9(3)): .Fields("转矩4") = Val(Text12(3)): .Fields("转速4") = Val(Text13(3)): .Fields("tt温度4") = Val(Text11(3)): .Fields("频率4") = Val(Text8(3))
.Fields("Uo5") = Val(Text1(4)): .Fields("电压倍率5") = Val(Text2(4)): .Fields("Ioa5") = Val(Text3(4)): .Fields("Iob5") = Val(Text4(4)): .Fields("Ioc5") = Val(Text5(4)): .Fields("电流倍率5") = Val(Text6(4)): .Fields("Poa5") = Val(Text7(4)): .Fields("Pob5") = Val(Text9(4)): .Fields("转矩5") = Val(Text12(4)): .Fields("转速5") = Val(Text13(4)): .Fields("tt温度5") = Val(Text11(4)): .Fields("频率5") = Val(Text8(4))
.Fields("Uo6") = Val(Text1(5)): .Fields("电压倍率6") = Val(Text2(5)): .Fields("Ioa6") = Val(Text3(5)): .Fields("Iob6") = Val(Text4(5)): .Fields("Ioc6") = Val(Text5(5)): .Fields("电流倍率6") = Val(Text6(5)): .Fields("Poa6") = Val(Text7(5)): .Fields("Pob6") = Val(Text9(5)): .Fields("转矩6") = Val(Text12(5)): .Fields("转速6") = Val(Text13(5)): .Fields("tt温度6") = Val(Text11(5)): .Fields("频率6") = Val(Text8(5))
.Fields("Uo7") = Val(Text1(6)): .Fields("电压倍率7") = Val(Text2(6)): .Fields("Ioa7") = Val(Text3(6)): .Fields("Iob7") = Val(Text4(6)): .Fields("Ioc7") = Val(Text5(6)): .Fields("电流倍率7") = Val(Text6(6)): .Fields("Poa7") = Val(Text7(6)): .Fields("Pob7") = Val(Text9(6)): .Fields("转矩7") = Val(Text12(6)): .Fields("转速7") = Val(Text13(6)): .Fields("tt温度7") = Val(Text11(6)): .Fields("频率7") = Val(Text8(6))
.Fields("Uo8") = Val(Text1(7)): .Fields("电压倍率8") = Val(Text2(7)): .Fields("Ioa8") = Val(Text3(7)): .Fields("Iob8") = Val(Text4(7)): .Fields("Ioc8") = Val(Text5(7)): .Fields("电流倍率8") = Val(Text6(7)): .Fields("Poa8") = Val(Text7(7)): .Fields("Pob8") = Val(Text9(7)): .Fields("转矩8") = Val(Text12(7)): .Fields("转速8") = Val(Text13(7)): .Fields("tt温度8") = Val(Text11(7)): .Fields("频率8") = Val(Text8(7))
.Fields("负载温度") = Val(Text20): .Fields("冷态端电阻") = Val(Text14): .Fields("冷态绕组温度") = Val(Text18): .Fields("极对数") = Val(Text22): .Fields("铁损耗") = Val(Text15): .Fields("风靡耗") = Val(Text19): .Fields("△T") = Val(Text10): .Fields("温升最高温度") = Val(Text23): .Fields("温升电阻") = Val(Text24): .Fields("额定频率") = Val(Text26): .Fields("额定功率") = Val(Text25) strmessage = "是否保存当前数据?"
If MsgBox(strmessage, vbYesNo) = vbYes Then
.Update
Else
.CancelUpdate
End If
End If
.Close
End With 运行时,错误提示在 .update 这行 ,我这个数据时access建立的,其中这个负载表有106个字段。
请教哪位XDJM帮忙指点下
解决方案 »
- 实时错误'-2147217900(80040e14)':语法错误(逗号)在查询表达式'(上级类别编号,编号,类别名)'中。
- 怎样用vb把mssql里表的一字段显示出来
- winsock 控件问题????给一个例子讲解!!!
- access中怎样保存图片?
- 急用!!!请帮忙!!!
- 急,急,发了几天了仍然没有解决,帮帮我吧!
- 请问如何备份正被使用的SQL SERVER数据库????
- 谢谢大家帮忙我做好了托盘程序,但是右击图标出现弹出菜单后,点击屏幕却无法隐去弹出菜单,如何解决?
- 数据库中查找指定的表~如何判断该‘表’是否存在~
- 最近怎么都没有 CSDN Helper 的消息了?
- 求教一个VB的问题。
- vb 6.0 webbrowser1 跳出新窗口问题
2.数据库设计失败.把表再分解分解分解再分解
3.代码没发现什么错误,也懒得去看,太长了
4.如果数据量实在够大,建议换sql server或oracle,用存储过程来做