不过，我不建议这样写。
sql2 = "SELECT * FROM users"
set rs = connect.Execute(sql2)
这样就可以了，并且速度也很快。
Set cmd = Server.CreateObject("ADODB.Command")
这种方法也是读取记录的，不过这个适合调用存储过程，用于sql数据库。
我自己写的一个，用泛型写的。 public List<RoomTypeModels>SelectTypeName() { List<RoomTypeModels>objRoomTypeList = new List<RoomTypeModels>()using (SqlConnection conn = new SqlConnection(connString)) { SqlCommand objcmd = new SqlCommand(dboNameUser + ".proc_SelectTypeName", conn)//这里是执行存储过程，你也可改SQL语句。 objcmd.CommandType = CommandType.StoredProcedureconn.Open()using (SqlDataReader objReader = objcmd.ExecuteReader(CommandBehavior.CloseConnection)) { while (objReader.Read()) { RoomTypeModels objRoomType = new RoomTypeModels()objRoomType.TypeName = Convert.ToString(objReader["TypeName"])//这里读取数据库的TypeName字段赋值到objRommType类的TypeName字段。 objRoomTypeList.Add(objRoomType)} objReader.Close()} conn.Close()} return objRoomTypeList} //将类型名称添加到cboTypeName List<RoomTypeModels>roomType = manager.SelectTypeName()foreach (RoomTypeModels typename in roomType) { cboTypeName.Items.Add(typename.TypeName)}1.asp如何获取access数据库的字段说明代码如下:<html>
<head>
<meta http-equiv="Content-Type" content="text/htmlcharset=gb2312">
<title>提取access字段的说明信息</title>
</head>
<%
dim table
table = trim(request("t1"))
database=trim(request("d1"))
%>
<body>
<form method="POST" action="">
数据文件名:<input type="text" name="D1" size="40" value=<%response.write(database)%>>同目录下数据文件名称 如：database.mdb<br>
表......名:<input type="text" name="T1" size="40" value=<%response.write(table)%>>database.mdb中的表名<br>
<input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2">
</form>
<%
if table = "" then
response.write("post nothing")
else%><%
dim conn
dim connstr
on error resume next
connstr="PROVIDER=Microsoft.Jet.OLEDB.4.0Data Source="+server.mappath(database)+""
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
response.write(connstr+"<br>")
dim sql
dim rs
sql="select * from "+table+""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
response.write(sql+"<br>")
If rs.State = adStateOpen Then
cnnState = "open"
Else
cnnState = "closed"
End If
response.write(cnnState +"<br>")
response.write("列数:"+cstr(rs.fields.count)+"<br>")
For i=0 to rs.fields.count-1
Response.Write "<TH>"+ rs(i).Name +"</TH><br>"
Next
Dim MyTableName
Dim MyFieldName
Dim MyDB
set mydb=server.createobject("adox.catalog")
Dim MyTable
set mytable=server.createobject("adox.table")
Dim MyField
set myfield =server.createobject("adox.column")
Dim pro
On Error resume next
MyDB.ActiveConnection =conn
For Each MyTable In MyDB.Tables
For Each MyField In MyTable.Columns
'response.write "FieldName:" &FieldType(MyField.Type) &" FieldSize:" &MyField.DefinedSize 'FieldType(pro.Type)
'response.write table &"." &MyField.name &":" '呵呵这里有变动,以前的有误
response.write MyTable.name &"." &MyField.name &":" '呵呵这里有变动,以前的有误
For Each pro In MyField.Properties
if pro.name="Description" and pro.Value <>"" thenresponse.write pro.Value &" <br>" 'MyTable.Name &" : " &MyField.Name &" : " &pro.Name &" : " &pro.Value
Next
Next
Next
rs.close()
conn.close()
end if
%>
</body>
</html>
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）