求助数据写入,怎么不写入啊
'************************************************************Private Sub Update_Click()
'调用数据库连接过程
Call OpenConn
'执行更新sql语句
cn.Execute "Update 新系统 set 值='00'Where 参数名=' 服务器' "
'调用数据库关闭过程
Call CloseConn
'调用读取数据库过程
Call ReadData_Click
'调用数据库连接过程
Call OpenConn2
'执行更新sql语句
cn.Execute "Update 新系统 set 值='02'Where 参数名=' 服务器' "
'调用信息窗口过程
MsgBox ("全部修改成功,可以正常使用了!")
'调用数据库关闭过程
Call CloseConn2
'调用读取数据库过程
Call ReadData_Click
End Sub
'读取数据库
'************************************************************
Private Sub ReadData_Click()
'清楚屏幕信息
Me.Cls
'调用数据库连接过程
Call OpenConn
'调用数据库关闭过程
Call CloseConn
End Sub
Private Sub view_click()
'清楚屏幕信息
Me.Cls
'调用数据库连接过程
Call OpenConn
'执行查询sql语句
rs.Open "Select * from 编号表", cn
'读取记录集内容
While Not rs.EOF
'将记录输出到窗体上
a = rs("单编号")
b = rs("单总编号")
rs.MoveNext
Label3.Caption = a
Label4.Caption = b
Wend
'调用数据库关闭过程
Call CloseConn
End Sub
——————————————————————————
大家帮忙看看,怎么不更新数据啊
一个值='00'
另一个值='02'
都没有更新
在线等