UC知道客户端如何重新读取数据
来源：百度知道 编辑：UC知道 时间：2024/05/26 19:38:16
本人想实现这样的功能：
1、sql数据库中表bh中有字段nian、yue、bh。其中bh为自动增量编号，每增加一条记录时其值自动加1。
2、客户端表单bh显示当前应当添加bh值。如数据库中已有最大编号为1001，则bh显示为1002。
3、当鼠标移入提交按钮区域时，表单bh自动显示数据库中已有最大编号值并加1，用以检测是否有用户在此之前已经添加记录，防止编号重复录入。
本人是新手，演示代码如下，请各位高手指教，谢谢！
如果本办法不行，请另提供方法。
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim rs,mysq
Set conn = Server.CreateObject("ADODB.Connection")
conn.open = "Driver={SQL Server};SERVER=zzxx;UID=sa;PWD=123;DATABASE=tsyg;"
Set rs = Server.CreateObject ("ADODB.Recordset")
mysq="SELECT top 1 bh FROM dbo.bh ORDER BY id Desc" '读取bh最大值
rs.open mysq,conn,1,1
%>
<%
dim bh
bh=(rs.Fields.Item("bh").Value)+1
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml
1、sql数据库中表bh中有字段nian、yue、bh。其中bh为自动增量编号，每增加一条记录时其值自动加1。
2、客户端表单bh显示当前应当添加bh值。如数据库中已有最大编号为1001，则bh显示为1002。
3、当鼠标移入提交按钮区域时，表单bh自动显示数据库中已有最大编号值并加1，用以检测是否有用户在此之前已经添加记录，防止编号重复录入。
本人是新手，演示代码如下，请各位高手指教，谢谢！
如果本办法不行，请另提供方法。
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim rs,mysq
Set conn = Server.CreateObject("ADODB.Connection")
conn.open = "Driver={SQL Server};SERVER=zzxx;UID=sa;PWD=123;DATABASE=tsyg;"
Set rs = Server.CreateObject ("ADODB.Recordset")
mysq="SELECT top 1 bh FROM dbo.bh ORDER BY id Desc" '读取bh最大值
rs.open mysq,conn,1,1
%>
<%
dim bh
bh=(rs.Fields.Item("bh").Value)+1
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml
我来回答一下，bh 字段为自增量字段，而自增量字段只有真正彺数据库里添加记录时才会自动增1，而且自增量量字段是不允许手工录入和编辑的，你跟本就不用管它，把它作为主键进行查询的条件即可。
当鼠标移入提交按钮区域时，这实还没有向数据库添加记录，所以bh字段是不能增1的，而你提交的记录里是不能有bh字段的，否则会出错。只要你不强行往bh字段中添加数据是不出发生编号重复录入的。既然是自增量字段你又何必去管它呢！一切由它自己决定吧！