Connexion au serveur ASP SQL et table

<!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 
%>

L'erreur d'exécution de Microsoft VBScript '800a01a8' est l'erreur que j'obtiens.Connexion au serveur ASP SQL et table

Pouvez-vous vérifier cela aussi, si vous pouvez m'aider avec un moyen de connexion OLEDB à la place? Je me suis essayé et je ne pouvais pas le faire fonctionner.

Source

2010-11-18 MyHeadHurts

Votre code ne vous montre pas la définition ou l'ouverture d'une connexion à une base de données.

Vous devez définir ce premier et de passer ensuite dans le jeu d'enregistrements avec la requête que vous souhaitez exécuter

Détails de l'ouverture d'une connexion ici: http://msdn.microsoft.com/en-us/library/ms807027.aspx

Un exemple de code de cet article 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

Source

2010-11-18 22:07:17

mais la façon dont j'ajoute la table est correcte, et comment pourrais-je faire ce style oledb. – MyHeadHurts

Répondre

Questions connexes