Notice: This website is an unofficial Microsoft Knowledge Base (hereinafter KB) archive and is intended to provide a reliable access to deleted content from Microsoft KB. All KB articles are owned by Microsoft Corporation. Read full disclaimer for more details.
View products that this article applies to.
Provider=MS Remote;Remote Provider=SQLOLEDB;Data Source=your_SQL_Server;Remote Server=http://your_web_server;Initial Catalog=your_database;User Id=user_id;Password=password;
Provider=MS Remote;Remote Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\path_to_your_MDB;Remote Server=http://your_web_server
Provider=MS Remote;Remote Provider=MSDAORA;Data Source=your_Oracle_server;Remote Server=http://your_web_server;User Id=user_id;Password=password
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
</HEAD>
<BODY>
<INPUT id=button1 name=button1 type=button value="Create Recordset With JavaScript" onClick="go()">
<SCRIPT LANGUAGE=javascript>
<!--
function go ()
{
//---- CursorTypeEnum Values ----
var adOpenForwardOnly = 0;
var adOpenKeyset = 1;
var adOpenDynamic = 2;
var adOpenStatic = 3;
//---- LockTypeEnum Values ----
var adLockReadOnly = 1;
var adLockPessimistic = 2;
var adLockOptimistic = 3;
var adLockBatchOptimistic = 4;
//---- CursorLocationEnum Values ----
var adUseServer = 2;
var adUseClient = 3;
//Variable Declarations
var i;
var REMOTECONNECTOLEDB = "Provider=MS Remote;Remote Provider=SQLOLEDB;Data Source=your_sql_server;Remote Server=http://localhost;Initial Catalog=pubs;User Id=<username>;Password=<strong password>;";
var SQL = "SELECT * FROM Authors";
//Get the records from the database
var rs = new ActiveXObject("ADOR.Recordset");
rs.Open(SQL, REMOTECONNECTOLEDB, adOpenStatic, adLockBatchOptimistic);
window.document.writeln("<BR><B>Query issued:</B> " + SQL + "<BR>");
window.document.writeln("<BR><B>DATA:</B><BR>");
rs.MoveFirst();
while(!rs.EOF)
{
for (i = 0; i < (rs.Fields.Count - 1); i++) {
window.document.write ( rs(i) + " | " );
}
window.document.write ( "<BR>" );
rs.MoveNext();
}
window.document.writeln("<BR><B>Done</B>");
}
//-->
</SCRIPT>
</BODY>
</HTML>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
</HEAD>
<BODY>
<INPUT id=button2 name=button2 type=button value="Create Recordset With VBScript">
<P> </P>
<SCRIPT LANGUAGE=vbscript>
<!--
Sub Button2_onClick()
'---- CursorTypeEnum Values ----
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
'---- LockTypeEnum Values ----
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4
'---- CursorLocationEnum Values ----
Const adUseServer = 2
Const adUseClient = 3
'Variable Declarations
Dim i
Const REMOTECONNECTOLEDB = "Provider=MS Remote;Remote Provider=SQLOLEDB;Data Source=your_sql_server;Remote Server=http://localhost;Initial Catalog=pubs;User Id=<username>;Password=<strong password>;"
Const SQL = "SELECT * FROM AUTHORS"
'Get the records from the database
Set rs = CreateObject("ADOR.Recordset")
rs.Open SQL, REMOTECONNECTOLEDB,adOpenStatic , adLockBatchOptimistic
window.document.writeln("<BR><B>Query issued:</B> " + SQL + "<BR><BR>")
window.document.writeln("<BR><B>DATA:</B><BR>")
rs.MoveFirst
while not rs.EOF
for i = 0 to (rs.Fields.Count - 1)
window.document.write ( rs(i).value & " | " )
next
window.document.write ( "<BR>" )
rs.MoveNext
wend
window.document.writeln("<BR><B>Done</B>")
End Sub
</SCRIPT>
</BODY>
</HTML>
Keywords: KB240838, kbhowto