SQL = "Update YXParamt set Name= " & TxtName & ",Desc= " & TxtDesc & ",IODV = " & cmbDriName.ListIndex & ",IOAD= " & txtDVADDR & ",DataType =" & CmbDType.ListIndex &"," & _
"Priority = " & txtImpotant & ",ALMType= " & cmbAlamType.ListIndex & ",ENABLE =" & nEnable & ",DefaultValue=" & cmbDefault ",Calculate = " & txtCaculate & "," & _
"DblYX = " & txtDoubleYx & ",OpenDesc= " & txtOpenVoice & ",CloseDesc=" & txtCloseVoice & ",OpenWav=" & txtOpenVoice & ",CloseWav = " & txtCloseVoice &","& _
"AlmDelay = " & txtAlamDelay & ",ReAlmDelay = " & txtReDelay & ",Delay = " & txtWaveTime & " where Name =" & sTAG & " and nMachineID=" & nMachineID & ""
cmdSQLADO.CommandText = strSQL
cmdSQLADO.Execute
rsSQLADO.Open strSQL, cnSQLADO
frmMain.bRefresh = True
总是编译不过去,谁能帮我看看?
是用ACCESS吗?NAME 是保留字,要用[]括起来,
另外,你这段中任何一个变量NULL 都会导致程序错误,请再次核对
=" & CmbDType.ListIndex &"
该行应该改为=" & CmbDType.ListIndex & "
即你少了一个空格,这是一个非常难以查询的错误,编写的时候认真一点就可以避免了.:)