标题:[求助]asp+access如何获取记录号?
只看楼主
zjdjh
Rank: 1
等 级:新手上路
帖 子:63
专家分:0
注 册:2005-12-22
结帖率:50%
 问题点数:0 回复次数:8 
[求助]asp+access如何获取记录号?

如题,无ID字段!
主要是用于通过表格浏览,然后修改选中的记录!

搜索更多相关主题的帖子: access asp 获取 记录 
2006-10-08 21:14
google
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:22
帖 子:3418
专家分:23
注 册:2005-11-1
得分:0 
没有索引吗?
必须有一个或者几个字段来确定唯一字段才可以啊

祝天下所有母亲幸福安康!~
2006-10-08 21:36
zjdjh
Rank: 1
等 级:新手上路
帖 子:63
专家分:0
注 册:2005-12-22
得分:0 
有一个企业代码作为唯一索引!
2006-10-08 22:12
google
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:22
帖 子:3418
专家分:23
注 册:2005-11-1
得分:0 
那就用这个作为条件就可以了
先查询想修改的企业代码
然后修改这条记录

祝天下所有母亲幸福安康!~
2006-10-08 22:47
zjdjh
Rank: 1
等 级:新手上路
帖 子:63
专家分:0
注 册:2005-12-22
得分:0 
Dim I
I=5 'I 用来控制显示当前页记录,注意这里和rs.PageSize要一致。
Do While Not rs.Eof And I>0 '循环直到当前页结束或记录集结尾
I=I-1 '每显示一条,I减1,当变成0时,表示本页结束
xgdaima=rs("daima")
%>

<tr bgcolor="#F2F2F2" align="center">
<td><%=rs("daima")%></td>
<td><%=rs("name")%></td>
<td width="20%"><%=rs("shudi")%></td>
<td>
<a href="jkmlxg1.asp?rsdaima=<%=xgdaima%>"> 修改 </a>
</td>
</tr>
<%
rs.MoveNext
Loop
2006-10-08 22:52
zjdjh
Rank: 1
等 级:新手上路
帖 子:63
专家分:0
注 册:2005-12-22
得分:0 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%
dim rsdaima
rsdaima=request.querystring("xgdaima")
response.write rsdaima
%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
.style1 { font-size: 24px;
font-weight: bold;
color: #0066FF;
}
.style6 { font-size: 36px;
font-weight: bold;
font-family: Geneva, Arial, Helvetica, sans-serif;
}
.style3 {font-size: 14px}
.style7 {color: #000000}
-->
</style>
</head>

<%
'dim conn,rs1
'set conn = server.createobject("adodb.connection")
'conn.open = "provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath("jkml.mdb")
'Set Rs1 = Server.CreateObject("ADODB.Recordset")
' Rs1.Open "qyinfo",conn,3,2
' Rs1.MoveFirst

set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath = Server.MapPath("jkml.mdb")
dbconnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs = Server.CreateObject("ADODB.Recordset")

'rs.Open "select daima,name,shudi from qyinfo where daima= '" & rsdaima & "'", dbconnection,3,2
rs.Open "select daima,name,shudi from qyinfo where daima='435354354'", dbconnection,3,2
%>

<body>
<p>&nbsp;</p>
<p align="center"><span class="style1" background="bg2.gif"> <span class="style6"><span class="style3"> </span></span>新增企业基本信息录入界面</span></p>
<p align="justify">&nbsp;</p>


<TABLE WIDTH=40% BORDER=1 CELLSPACING=1 CELLPADDING=1 align=center>
<TR>
<TD bgcolor="#FFFFFF" width=80><span class="style7">企业代码:</span></TD>
<TD ><%=rs("daima")%></TD>
</TR>
<TR>
<TD bgcolor="#FFFFFF"><span class="style7">企业名称:</span></TD>
<TD ><%=rs("name")%></TD>
</TR>
<TR>
<TD bgcolor="#FFFFFF"><span class="style7">所属外汇局:</span></TD>
<TD ><%=rs("shudi")%></TD>
</TR>
</table>
<br>
<FORM action="homework_markOK.asp" method=POST id=form1 name=form1 LANGUAGE=javascript onsubmit="return check()">
<TABLE WIDTH=40% BORDER=1 CELLSPACING=1 CELLPADDING=1 align=center>
<TR>
<TD bgcolor="#007FFF" width=80><font color="#FFFFFF">本次作业序号</font></TD>
<TD ><%=order_no%></TD>
</TR>
<TR>
<TD bgcolor="#007FFF"><font color="#FFFFFF">zip文件</font></TD>
<TD >
<p>&nbsp;</p>

<!--鼠标设置函数 -->
<script language=javascript>
function ctlent(inputname){
if(window.event.keyCode==13){
enterkey(inputname)
}
} function enterkey(inputname){
document.all(""+inputname+"").focus();
}
</script>

<!--鼠标设置函数 onClick="return FormSub();"-->
</body>
</html>
2006-10-08 22:52
zjdjh
Rank: 1
等 级:新手上路
帖 子:63
专家分:0
注 册:2005-12-22
得分:0 
我用上面的代码传递参数,好像总是传的是空数据哦?老大帮我看看!
2006-10-08 22:53
hangxj
Rank: 6Rank: 6
等 级:贵宾
威 望:29
帖 子:2045
专家分:0
注 册:2006-4-10
得分:0 
你在5楼的时候传值是这样的
<a href="jkmlxg1.asp?rsdaima=<%=xgdaima%>"> 修改 </a>

但是为什么你在6楼的时候取值又是这样的呢?
<%
dim rsdaima
rsdaima=request.querystring("xgdaima")
response.write rsdaima
%>

你觉得这样可以取到什么值呢?

[此贴子已经被作者于2006-10-9 9:06:35编辑过]


http://www./
2006-10-09 09:05
zjdjh
Rank: 1
等 级:新手上路
帖 子:63
专家分:0
注 册:2005-12-22
得分:0 
呵呵,谢谢版主!!!!!
代码多,头晕!
2006-10-09 09:31



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-94860-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.153204 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved