Re: Access Query w/VBScript

Thank you, that did it. I added a couple of touches that make 'getstring'
do the right (write) table stuff. Here is the final thing for those that
may need help in the future:

<%
Option Explicit
%>
<HEAD>
<TITLE>Use Access Query as Source</TITLE>
</HEAD>
<BODY>
<%
dim cn, objRS
Set cn = createobject("adodb.connection")
cn.open "Provider=microsoft.jet.oledb.4.0;" & _
"Data Source=C:\Bob\Personnel.mdb"
Set objRS = CreateObject("ADODB.Recordset")
cn.qrySel objRS
Response.Write "<TABLE BORDER=1><TR><TD>"
if not objRS.EOF then Response.Write
objrs.getstring(,,"</TD><TD>","</TD></TR><TR><TD>","&nbsp;")
Response.Write "</TD></TR></TABLE>"
objRS.Close
Set objRS=nothing
%>
</BODY>
</HTML>


.

Relevant Pages

  • RE: Error calling a function in SQL Server
    ... Private Sub ComboWorker_AfterUpdate ... Dim objCmd As New ADODB.Command ... Dim objRs As ADODB.Recordset ... You may need to preface the stored procedure name by its owner. ...
    (microsoft.public.access.modulesdaovba)
  • Re: Connecting to SQL Server via ADO
    ... ActiveConnection property of objRS to that connection. ... Dim Conn As ADODB.Connection ... Dim strInsert As String ...
    (microsoft.public.access.modulesdaovba)
  • Re: Connecting to SQL Server via ADO
    ... ActiveConnection property of objRS to that connection. ... Dim Conn As ADODB.Connection ... Dim strInsert As String ...
    (microsoft.public.access.modulesdaovba)
  • Need code assistance to update pivot table from an ADO recordset
    ... I am not able to refresh the pivot table without recreating it. ... Dim strDB_Location As String ... Dim objRS As ADODB.Recordset ...
    (microsoft.public.excel.programming)
  • Re: function to call an ODBC query...
    ... Dim objConn As ADODB.Connection ... Dim objRS As ADODB.Recordset ... Set objRS = New ADODB.Recordset ...
    (microsoft.public.excel.programming)
Loading