<html> <head> <META content="text/html; charset=gb2312" http-equiv=Content-Type> <title>客户端电子表格打印</title> </head> <body bgColor=skyblue topMargin=5 leftMargin="20" oncontextmenu="return false" rightMargin=0 bottomMargin="0"> <div align="center"><center> <table border="1" bgcolor="#ffe4b5" style="HEIGHT: 1px; TOP: 0px" bordercolor="#0000ff"> <tr> <td align="middle" bgcolor="#ffffff" bordercolor="#000080"> <font color="#000080" size="3"> 客户端电子表格打印 </font> </td> </tr> </table> </div> <form name="myform"> <DIV align=left> <input type="button" value="Excel Report" name="report" language="vbscript" onclick="fun_excel()" style="HEIGHT: 32px; WIDTH: 90px"> </div> </form> </body> </html> <script language="vbscript"> sub fun_excel() Dim rds,rs,df dim strCn,strSQL,StrRs Dim xlApp, xlBook, xlSheet1 set rds = CreateObject("RDS.DataSpace") Set df = rds.CreateObject("RDSServer.DataFactory","http://192.168.0.1") '192.168.0.1 为WEB服务器IP地址 strcn="provider=ms remote;remote server=http://192.168.0.1;handler=msdfmap.handler;data source=pubsdatabase;" '192.168.0.1 为WEB服务器IP地址 strsql= "getalljobs" Set rs = df.Query(strCn, strSQL) Set xlApp = CreateObject("EXCEL.APPLICATION") '注意不是:Server.CreateObject("EXCEL.APPLICATION") Set xlBook = xlApp.Workbooks.Add Set xlSheet1 = xlBook.Worksheets(1) xlSheet1.cells(1,1).value ="职务表" xlSheet1.range("A1:D1").merge xlSheet1.cells(2,1).value = "job_id" xlSheet1.cells(2,2).value = "job_desc" xlSheet1.cells(2,3).value = "max_lvl" xlSheet1.cells(2,4).value = "min_lvl" cnt =3 do while not rs.eof xlSheet1.cells(cnt,1).value = rs("job_id") xlSheet1.cells(cnt,2).value = rs("job_desc") xlSheet1.cells(cnt,3).value = rs("max_lvl") xlSheet1.cells(cnt,4).value = rs("min_lvl") rs.movenext cnt = cint(cnt) + 1 loop xlSheet1.Application.Visible = True end sub </script> |
set rds = CreateObject("RDS.DataSpace") Set df = rds.CreateObject("RDSServer.DataFactory","http://192.168.0.1") '192.168.0.1 为WEB服务器IP地址 strcn="provider=ms remote;remote server=http://192.168.0.1;handler=msdfmap.handler;data source=pubsdatabase;" '192.168.0.1 为WEB服务器IP地址 strsql= "getalljobs" Set rs = df.Query(strCn, strSQL) |
set DC = createobject("RDS.DataControl") dc.ExecuteOptions =1 '设置成同步执行,可以简化下步代码 dc.FetchOptions = 1 With dc .Server = "http://192.168.0.1" .Handler = "MSDFMAP.Handler" .Connect = "Data Source=pubsdatabase;" .Sql = "getalljobs" .Refresh End With set rs= dc.Recordset |
[sql getalljobs] Sql="SELECT * FROM jobs" [connect pubsDatabase] Access=Readonly Connect="provider=sqloledb;data source=sql server;initial catalog=pubs;UID=userid;PWD=password" |
'编写ActiveX DLL,名称:rsget.dll,包含类rsreturn,方法returnrs Public Function ReturnRs(strDB As Variant, strSQL As Variant) As ADODB.Recordset 'Returns an ADODB recordset. On Error GoTo ehGetRecordset Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Select Case strDB Case "ydjjspdatabase" strDB = "ydjjsp" Case "pubsdatabase" strDB = "pubs" End Select If strSQL = "getallbuy" Then strSQL = "select * from buyuser" GoTo nextstep End If If Left(strSQL, InStr(strSQL, "(") - 1) = "getpubsbyid" Then If InStr(strSQL, ",") <= 0 Then Dim str As String str = Mid(strSQL, InStr(strSQL, "(") + 2, InStr(strSQL, ")") - InStr(strSQL, "(") - 3) strSQL = "select * from jobs where job_id='" & str & "'" Else Dim strstart, strend As String strstart = Mid(strSQL, InStr(strSQL, "(") + 2, InStr(strSQL, ",") - InStr(strSQL, "(") - 3) strend = Mid(strSQL, InStr(strSQL, ",") + 2, InStr(strSQL, ")") - InStr(strSQL, ",") - 3) strSQL = "select * from jobs where job_id>='" & strstart & "' and job_id<='" & strend & "'" End If End If nextstep: Dim strConnect As String strConnect = "Provider=SQLOLEDB;Server=ddk;uid=ydj;pwd=ydj; Database=" & strDB & ";" cn.Open strConnect rs.CursorLocation = adUseClient rs.Open strSQL, cn, adOpenStatic, adLockOptimistic, adCmdText Set ReturnRs = rs Exit Function ehGetRecordset: Err.Raise Err.Number, Err.Source, Err.Description End Function |
set rds = CreateObject("RDS.DataSpace") Set df = rds.CreateObject("RDSServer.DataFactory","http://192.168.0.1") '192.168.0.1 为WEB服务器IP地址 strcn="provider=ms remote;remote server=http://192.168.0.1;handler=msdfmap.handler;data source=pubsdatabase;" '192.168.0.1 为WEB服务器IP地址 strsql= "getalljobs" Set rs = df.Query(strCn, strSQL) |
set rds = CreateObject("RDS.DataSpace") Set df = rds.CreateObject("rsget.rsreturn","http://192.168.0.1") set rs=df.returnrs("pubsdatabase","getpubsbyid('2','10')") |
新闻热点
疑难解答