140 lines
No EOL
4.6 KiB
Text
140 lines
No EOL
4.6 KiB
Text
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
|
|
<html xmlns="http://www.w3.org/1999/xhtml">
|
|
<head id="Head1" runat="server">
|
|
<title>Microsoft Access Connection Test Results</title>
|
|
<script src="OnlineHelp.js" language="javascript" type="text/javascript"></script>
|
|
<link rel="stylesheet" rev="stylesheet" type="text/css" href="TestConfiguration.css" />
|
|
</head>
|
|
|
|
<%@ Page Language="vb" AutoEventWireup="false"%>
|
|
<script language="VB" runat="server">
|
|
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
|
|
'=============================================================================================
|
|
' CHANGE ONLY THE FOLLOWING SIX STRINGS
|
|
'=============================================================================================
|
|
Dim ServerName As String = "TestConfiguration.mdb"
|
|
Dim DatabaseName As String = "TestConfiguration"
|
|
Dim Trusted As String = "no" ' "yes" if using Windows Authentication
|
|
Dim UserId As String = "sa"
|
|
Dim Password As String = ""
|
|
Dim SQLQuery As String = "SELECT TOP 5 * FROM "
|
|
Dim TableName As String = "Customers"
|
|
'=============================================================================================
|
|
'=============================================================================================
|
|
|
|
If Request.QueryString("database") <> "" Then
|
|
ServerName = Request.QueryString("database")
|
|
If Request.QueryString("table") <> "" Then
|
|
TableName = "[" & Request.QueryString("table") & "]"
|
|
End If
|
|
Else
|
|
' Determine the full path of the default file.
|
|
' We assume the default file is in the same folder as this file.
|
|
Dim appDir As String = System.Web.HttpContext.Current.Server.MapPath(".")
|
|
ServerName = System.IO.Path.Combine(appDir, ServerName)
|
|
End If
|
|
|
|
SQLQuery += TableName
|
|
|
|
ServerNameLabel.Text = ServerName
|
|
TableNameLabel.Text = TableName
|
|
|
|
' EVERYTHING BELOW SHOULD WORK AS IS WITHOUT ANY CHANGES
|
|
|
|
' Use a string variable to hold the ConnectionString.
|
|
Dim connectString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
|
|
"Data Source=" & ServerName & ";"
|
|
|
|
' Create an OleDbConnection object,
|
|
' and then pass in the ConnectionString to the constructor.
|
|
Dim cn As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection(connectString)
|
|
|
|
'Open the connection.
|
|
cn.Open()
|
|
|
|
' Create an OleDbCommand object.
|
|
' Notice that this line passes in the SQL statement and the OleDbConnection object.
|
|
Dim cmd As System.Data.OleDb.OleDbCommand = New System.Data.OleDb.OleDbCommand(SQLQuery, cn)
|
|
|
|
' Send the CommandText to the connection, and then build an OleDbDataReader.
|
|
' Note: The OleDbDataReader is forward-only.
|
|
Dim reader As System.Data.OleDb.OleDbDataReader = cmd.ExecuteReader()
|
|
|
|
' Loop through the resultant data selection and add the data value
|
|
' for each respective column in the table.
|
|
Dim r As Integer
|
|
For r = 1 to 5
|
|
If (reader.Read()) Then
|
|
Dim row As TableRow = New TableRow
|
|
Dim cell As TableCell
|
|
|
|
cell = New TableCell
|
|
cell.Text = "<b>" & r & "</b>"
|
|
row.Cells.Add(cell)
|
|
|
|
Dim c As Integer
|
|
For c = 0 To reader.FieldCount-1
|
|
cell = New TableCell
|
|
cell.Text = reader(c).ToString()
|
|
row.Cells.Add(cell)
|
|
Next c
|
|
|
|
'Add the new row to the table.
|
|
DisplayTable.Rows.Add(row)
|
|
End If
|
|
|
|
Next r
|
|
|
|
Result.Text = "Test Successful!"
|
|
|
|
' Close the reader and the related connection.
|
|
reader.Close()
|
|
cn.Close()
|
|
End Sub
|
|
|
|
</script>
|
|
|
|
<body>
|
|
|
|
<form id="Form1" method="post" runat="server">
|
|
|
|
<table cellpadding="3" cellspacing="0" border="0" width="100%">
|
|
<tr>
|
|
<td class="page_heading">
|
|
<b><asp:label id="Result" runat="server" Text="Test Failed"/></b><br /><br />
|
|
</td>
|
|
</tr>
|
|
<tr>
|
|
<td>
|
|
Check to make sure up to five rows of data are displayed from the Microsoft Access database.
|
|
</td>
|
|
</tr>
|
|
|
|
<tr>
|
|
<td>
|
|
Database File: <asp:Label Id="ServerNameLabel" runat="server"/><br />
|
|
Database Table: <asp:Label Id="TableNameLabel" runat="server"/>
|
|
<br /><br />
|
|
</td>
|
|
</tr>
|
|
<tr>
|
|
<td>
|
|
<asp:Table id="DisplayTable" runat="server" CellSpacing="0" CellPadding="3"
|
|
GridLines="Both"
|
|
BorderStyle="Solid"
|
|
BorderWidth="1"></asp:Table>
|
|
</td>
|
|
</tr>
|
|
<tr>
|
|
<td>
|
|
<input type="button" value="Close Window" onclick="javascript:window.close();" />
|
|
</td>
|
|
</tr>
|
|
</table>
|
|
|
|
</form>
|
|
|
|
</body>
|
|
|
|
</html> |