<HTML>
<HEAD>
<%
'Server对象的CreateObject方法建立Connection对象
Set Conn=Server.CreateObject("ADODB.Connection")
'设置Connection对象的ConnectionString
Conn.ConnectionString="Provider=SQLNCLI.1;Password=;Persist Security Info=True;User ID=sa;Initial Catalog=MySQLDB; Data Source=localhost"
'连接数据库
Conn.Open
'定义Recordset对象
Set rs=Server.CreateObject("ADODB.Recordset")
'设置rs的ActiveConnection属性,绑定到连接
Set rs.ActiveConnection = Conn
'设置游标类型
rs.CursorType = 3
'打开记录集
rs.Open "SELECT Emp_name, Sex, Title, Wage FROM Employees"
%>
<H2 align=center>显示表Employees的记录</H2>
<TABLE width="100%" border=1><TBODY><TR><TD bgColor=#c0c0c0>序号</TD><TD bgColor=#c0c0c0>姓名</TD><TD bgColor=#c0c0c0>性别 </TD><TD bgColor=#c0c0c0>职务 </TD><TD bgColor=#c0c0c0>工资 </TD></TR><%
i = 0
Do While rs.EOF = False
'在表格中显示字段属性
Response.Write("<tr> <td> " & CStr(i+1) & "</td> <td> " & rs.Fields(0).Value & _
"</td> <td>" & rs.Fields(1).Value & "</td> <td>" & rs.Fields(2).Value & _
"</td><td>" & rs.Fields(3).Value & "</td></tr>")
ii = i + 1
rs.MoveNext
Loop
Response.Write("</table>")
'断开与数据库的连接
Conn.Close
If Conn.State = 0 Then
End If
'释放Connection对象,关闭数据库
Set Conn = nothing
%><PRE></PRE></TBODY></TABLE>
<HEAD>
<%
'Server对象的CreateObject方法建立Connection对象
Set Conn=Server.CreateObject("ADODB.Connection")
'设置Connection对象的ConnectionString
Conn.ConnectionString="Provider=SQLNCLI.1;Password=;Persist Security Info=True;User ID=sa;Initial Catalog=MySQLDB; Data Source=localhost"
'连接数据库
Conn.Open
'定义Recordset对象
Set rs=Server.CreateObject("ADODB.Recordset")
'设置rs的ActiveConnection属性,绑定到连接
Set rs.ActiveConnection = Conn
'设置游标类型
rs.CursorType = 3
'打开记录集
rs.Open "SELECT Emp_name, Sex, Title, Wage FROM Employees"
%>
<H2 align=center>显示表Employees的记录</H2>
<TABLE width="100%" border=1><TBODY><TR><TD bgColor=#c0c0c0>序号</TD><TD bgColor=#c0c0c0>姓名</TD><TD bgColor=#c0c0c0>性别 </TD><TD bgColor=#c0c0c0>职务 </TD><TD bgColor=#c0c0c0>工资 </TD></TR><%
i = 0
Do While rs.EOF = False
'在表格中显示字段属性
Response.Write("<tr> <td> " & CStr(i+1) & "</td> <td> " & rs.Fields(0).Value & _
"</td> <td>" & rs.Fields(1).Value & "</td> <td>" & rs.Fields(2).Value & _
"</td><td>" & rs.Fields(3).Value & "</td></tr>")
ii = i + 1
rs.MoveNext
Loop
Response.Write("</table>")
'断开与数据库的连接
Conn.Close
If Conn.State = 0 Then
End If
'释放Connection对象,关闭数据库
Set Conn = nothing
%><PRE></PRE></TBODY></TABLE>
该博客通过HTML和服务器端脚本展示了如何利用ADODB Recordset对象从数据库获取Employees表的数据,并将其以表格形式输出。博客内容包括建立Connection对象,设置ConnectionString,打开数据库连接,创建Recordset对象,定义游标类型,遍历并显示记录集中的Emp_name, Sex, Title, Wage字段的值。最后,关闭数据库连接并释放资源。"
132436019,19687572,创建与执行Java可执行JAR包教程,"['Java', 'jar', '构建工具', 'Maven', 'Gradle']
4975

被折叠的 条评论
为什么被折叠?



