Question

我认为这是一个愚蠢的问题。也知道这是一个重复的问题。但我无法解决这个问题。有人请帮助我。

<!DOCTYPE html>
<html>
<head>
    <title>DataBase Connection Example</title>
</head>
<body>
<%
Dim objConn         'Our Connection Object'
Dim objRecd         'Our Recordest Object'
Dim strSQL          'Our SQL string to access the database'
Dim strConnection   'Out connection string to access the database'
Dim i               'A Counter Variable'

'---Create A Object---'
Response.Write("DB Connect Example<br>")
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRecd = Server.CreateObject("ADODB.RecordSet")
strConnection = "PROVIDER=SQLOLEDB;SERVER=127.0.0.1,1433;UID=sa;PWD=hello1995812;DATABASE=;"
Response.Write("Object Set<br>")

Response.Write("Connecting to DB<br>")
objConn.Open strConnection
Response.Write("Connected<br>")
strSQL = "SELECT * FROM master"
Response.Write("Executing...<br>")
Set objRecd = objConn.Execute(strSQL)
Response.Write("Executed<br>")

If (objRecd.BOF And objRecd.EOF) Then
    Response.Write("No Recoreds Found")
    Response.End
End If
Response.Write("<table border=1 cellpadding=2 cellspacing=1 width=100%")
Response.Write("<tr bgcolor=#CCCCCC>")
For i = 0 To objRecd.Fields.Count-1
    Response.Write("<th>" & objRecd.Fields(i).Name & "</th>")
Next
Response.Write("</tr>")
%>
</body>
</html>

但发生了不可理解的错误。

系统环境：

Server 2008 Ver 6.0 x86

Mozila Firefox Web浏览器52.0

Sublime Text 3

提前谢谢。

Answer 1

您的代码没错。

但是在查找错误之前，您必须先查看环境是否设置正确。

我构建了这个环境并按照你的方式尝试了，并且出现了这个错误。这不是解决方案吗？

在您的网页或浏览器上设置编码。

未声明HTML文档的字符编码

按F12进行检查！

将SqlQuery设为直接连接到数据库。

ex :)

PWD=*****;DATABASE=TestDataBase;"
SELECT * FROM TestTable

执行SQL查询后。

If(objRecd.BOF And objRecd.EOF) Then
  Response.Write("No Records Found")
End If

For Each x In objRecd.Fields
  Response.Write(x.Name & "=" & x.value)
Next

ASP问：MsSQL DB连接

1 个答案: