Подключение к серверу asp sql и таблица

<!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 и таблица

Можете ли вы проверить это также, если вы можете помочь мне с OLEDB способом подключения вместо этого? Я пробовал себя, и я не мог заставить его работать.

источник

2010-11-18 MyHeadHurts

Ваш код не показывает, как вы определяете или открываете соединение с базой данных.

Вам нужно определить, что первое, а затем передать его в набор записей с запросом вы хотите выполнить

Детали открытия соединения здесь: 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

источник

2010-11-18 22:07:17

, но способ, которым я добавляю таблицу, является правильным, и как я могу сделать этот стиль олед. – MyHeadHurts

Подключение к серверу asp sql и таблица

ответ

Смежные вопросы