asp sql server连接和表
问题描述:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>SOP</title>
</head>
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td align="left">
<%
selectdata= "Select * from dbo.sop"
set RScontest = Server.CreateObject("ADODB.Recordset")
RScontest.ActiveConnection = "dsn=test123 ;uid=test123;pwd=test123"
RScontest.Source = SelectData
RScontest.CursorType = 3
RScontest.CursorLocation = 2
RScontest.LockType = 1
RScontest.Open()
if not(rscontest.bof) and not(rscontest.eof) then%>
%>
<table BORDER="1" align="center" width="640">
<caption>SOP</caption>
<tr>
<td>Order</td>
<td>Department</td>
<td>DOC Type</td>
<td>Title</td>
<td>Revision</td>
<td>DOC</td>
<td>Active</td>
<%
while not rscontest.eof
%>
<tr>
<td>
<%= rs("order") %>
</td>
<td>
<%= rs("Department") %>
</td>
<td>
<%= rs("[DOC Type]") %>
</td>
<td>
<%= rs("Title") %>
</td>
<td>
<%= rs("Revision") %>
</td>
<td>
<%= rs("DOC") %>
</td>
<td>
<%= rs("Active") %>
</td>
<%
' Move to the next record
rs.movenext
' Loop back to the do statement
loop %>
</table>
</body>
</html>
<%
' Close and set the recordset to nothing
rs.close
set rs=nothing
%>
Microsoft VBScript运行时错误'800a01a8'是我得到的错误。asp sql server连接和表
你能否检查一下,如果你能用OLEDB的方式来帮助我连接呢?我试了我的自我,我无法让它工作。
答
您的代码没有显示您定义或打开数据库连接。
您需要定义一个第一,然后将其传递到与您要执行
这里打开连接的详细信息的查询记录:http://msdn.microsoft.com/en-us/library/ms807027.aspx
从MDSN文章一个代码示例:
Sub ConnectionExample6()
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
' Open a connection by referencing the ODBC driver.
cnn.ConnectionString = "driver={SQL Server};" & _
"server=MySqlServer;uid=MyUserName;pwd=MyPassword;database=pubs"
cnn.Open
' Create a Recordset by executing an SQL statement.
Set rs = cnn.Execute("Select * From authors")
' Show the first author.
MsgBox rs("au_fname") & " " & rs("au_lname")
' Close the connection.
rs.Close
End Sub
但我添加表的方式是正确的,我怎么能做到这oledb风格。 – MyHeadHurts 2010-11-19 14:28:37