|
以下是我的代码
Dim rs As ADODB.Recordset 'define performance page's recordset
Set rs = New ADODB.Recordset
'performance data
rs.Open "performance data", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
rs.AddNew
rs("seriesmotorno") = "txtseriesmotorno.Text"
rs("itemcode") = "txtitemcode8.Text"
rs("ratingvoltage") = "txtratingvoltage.Text"
rs("noloadcurrent") = "txtcurrent.Text"
rs("noloadspeed") = "txtspeed.Text"
rs("onloadcurrent") = "txtcurrentonload.Text"
rs("onloadspeed") = "txtspeedonload.Text"
rs("onloadtorque") = "txttorque.Text"
rs("wirediamension") = "txtwiredia.Text"
rs.Update
错误是无效的SQL 语句 |
|