RDS This thing I was in an article on the report in the ASP, but I have never understood what it is doing, because I have done countless tests, check countless information, or can't complete A simplest test program.
The following procedure (change from others) As long as one executing SET RS = DF.Query (strcn, strsql) said that the server is wrong, I really make me confused, I decided not to study it in the future.
"DIV align = left>" INPUT language = vbscript style = "WIDTH: 90px; HEIGHT: 32px" οnclick = fun_query () type = button value = "Query Data" name = query> "INPUT language = vbscript style =" WIDTH: 90px; HEIGHT: 32px "οnclick = fun_clear () type = button value =" Clear Data "name = Clear>" INPUT language = vbscript style = "WIDTH: 90px; HEIGHT: 32px" οnclick = fun_excel () type = button value = "Excel Report" Name = report> "DIV>" DIV ID = adddata> "/ div>" / form>
Script language = VBScript>
SET CONN = CreateObject ("AdoDb.Connection")
Set rr = creteObject ("AdoDb.Recordset")
Conn.open "DSN = SQLS; UID = SA; PWD = Myseelf"
Rr.Open "Select * from Jobs", CONN, 3, 1
Msgbox r.fields (0)
DIM RDS, RS, DF
DIM STRSQL, STRRS, STRCN, ROWCNT
DIM XLAPP, XLBOOK, XLSHEET1, XLMODULE, XLPAGESETUP
Dim Headrowcnt, Titlerowcnt, Contentrowcnt, FootrowCnt
DIM PageRowcnt, Pageno, TotalPagecnt, Contentrownowcnt
Dim ColumnallWidth, Columnawidth, ColumnBwidth, ColumncWidth, ColumnDwidth Sub Fun_Query ()
SET RDS = CREATEOBJECT ("RDS.Dataspace")?
SET DF = rds.createObject ("rdsserver.datafactory", "http://192.168.22.205") STRCN = "DSN = SQLS; UID = SA; PWD = Myseelf"
strsql = "SELECT * from JOBS"
SET RS = DF.Query (strcn, strsql)
'Set = rr
IF not r.
STRRS = "" Table Border = 1> "TBODY>" TD> JOB_DESC "TD>" TD> MAX_LVL "TD> min_lvl" TD> " RS.Getstring (," "TD>", "Tr>" TD> "," ") " AddData. Innerhtml = STRS
STRS = ""
Else
Msgbox "No Data in the Table!"
END IF
SET DF = Nothing
End Sub
"/ Script>
