兩資料庫在同一頁面的無縫輸出 (轉)
例項說明:
公司有新舊兩部分產品分別以不同形式存在兩個中,由於兩資料表的結構上有較大差異,不便於兩資料庫(表)的合併。
本例在不改動資料庫(表)的情況下,實現在同一頁面的無縫輸出。
程式碼如下,沒做太多的註釋
file name simple.
dim Page
dim NeedPage '存放需求頁碼數
dim NeedRecord '存放需求記錄數
dim NextPage '翻頁標誌變數
dim PageSize
NextPage=False
PageSize=15
%>
<!--html程式碼區-->
page=request.querystring("page")
if page="" then page=1
if not(isnumeric(page)) then page=1
if page<1 then page=1
page=int(page)
%>
<!--html程式碼區-->
Call GetData(Page)
Call FillData(NeedPage,NeedRecord)
%>
<!--html程式碼區-->
<!--html程式碼區-->
Function GetData(Page)
Dim LPRCount '存放資料集分頁後最後一頁的記錄數
Dim i '迴圈記數器
'從MAD.m中獲取資料集
Set conn1=Server.Create("adodb.connection")
Set rs1=Server.CreateObject("adodb.recordset")
conn1.open "provr=.jet.oledb.4.0;data ="&server.mappath("DData1.mdb")
1=" * from DTable1"
rs1.open sql1,conn1,1,1
If rs1.EOF or rs1.BOF Then
NeedPage=1
NeedRecord=PageSize
Else
rs1.PageSize=PageSize
'記錄集頁碼數大於需求頁碼
If rs1.PageCount>Page Then
rs1.AbsolutePage=Page
i=0
Do While Not rs1.EOF And (i
rs1.MoveNext
i=i+1
L
NeedPage=Page-rs1.PageCount
NeedRecord=0
End If
'記錄集頁碼數等於需求頁碼
If rs1.PageCount=Page Then
rs1.AbsolutePage=Page
i=0
Do While Not rs1.EOF And (i
rs1.MoveNext
i=i+1
Loop
LPRCount=i
NeedPage=0
NeedRecord=PageSize-LPRCount
End If
'記錄集頁碼數小於需求頁碼
If rs1.PageCount
NeedPage=Page-rs1.PageCount
NeedRecord=PageSize-LPRCount
End If
End If
'關閉記錄集
rs1.close
conn1.close
Set rs1=nothing
Set conn1=nothing
End Function
Function FillData(NeedPage,NeedRecord)
'填補頁面剩餘記錄行,並設定下翻頁標記變數
Dim i '迴圈記數器
Dim MoveStep '記錄集移動步長
'需求頁碼小於零(不需要填補)
If NeedPage<0 Then
NextPage=True '啟用下翻頁標記
Else
'從new.mdb中獲取記錄集
Set conn1=Server.CreateObject("adodb.connection")
Set rs1=Server.CreateObject("adodb.recordset")
conn1.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("DData2.mdb")
sql1="select * from DTable2"
rs1.open sql1,conn1,1,1
If rs1.EOF Then
NextPage=False '關閉下翻頁標記
Else
'需求頁碼為零(僅當需求記錄數不為零時,填補頁面剩餘記錄行)
If NeedPage=0 Then
If NeedRecord=0 Then '不需填補頁面剩餘記錄行
NextPage=True '啟用下翻頁標記
Else
'填補頁面剩餘記錄行
i=0
Do While Not rs1.EOF And (i
rs1.MoveNext
i=i+1
Loop
If rs1.RecordCount>NeedRecord Then
NextPage=True '啟用下翻頁標記
Else
NextPage=False '關閉下翻頁標記
End If
End If
End If
'需求頁碼大於零
If NeedPage>0 Then
MoveStep=(NeedPage-1)*PageSize+NeedRecord '計算記錄集移動步長
If rs1.RecordCount<=MoveStep Then '記錄集不夠
'出錯處理
Else
rs1.Move MoveStep
i=0
Do While Not rs1.EOF And (i
rs1.MoveNext
i=i+1
Loop
If rs1.RecordCount>(MoveStep+PageSize) Then
NextPage=True '啟用下翻頁標記
Else
NextPage=False '關閉下翻頁標記
End If
End If
End If
End If
'關閉記錄集
rs1.close
conn1.close
Set rs1=nothing
Set conn1=nothing
End If
End Function
Function DataOutput(url,id,field1,field2,field3)
'生成頁面記錄行
Response.Write "
"&field1&" | ""&field2&" | ""&field3&" | "|
" |
End Function
%>
來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/10752043/viewspace-962172/,如需轉載,請註明出處,否則將追究法律責任。
相關文章
- Android activity相互跳轉後臺出現兩個頁面的坑Android
- 同一資料庫資料SCN號與時間的轉化資料庫
- pbootcms模板如何輸出當前頁面的完整url地址boot
- sqlplus格式化輸出(輸出結果顯示在同一行)SQL
- 在同一臺主機上建立複製資料庫資料庫
- 父頁面如何輸出iframe裡面的變數,或者呼叫iframe裡面的方法?變數
- mysql資料庫在不同的伺服器,無法進行資料傳輸,或者匯入匯出資料錯誤,原因分析MySql資料庫伺服器
- ionic3 進子頁面修改資料,帶參返回父頁面的兩種方法
- java抓取HTML頁面的資料(淘寶頁面),JavaHTML
- 在兩個資料庫之間進行資料同步資料庫
- 爬取多個頁面的資料
- 在ASP.NET中將資料直接輸出成Excel內容 (轉)ASP.NETExcel
- 資料無界:大型企業如何實現多區域檔案安全傳輸的無縫體驗?
- 如何將企業資料無縫過渡到雲端
- Android監聽輸入法並獲取高度——輸入法與頁面佈局無縫切換Android
- 表在同一庫中不同表空間上轉移[轉]
- 資料的輸入輸出
- 03 資料輸入-輸出
- ETL資料整合丨SQLServer到Doris的無縫資料同步策略SQLServer
- 淺談在瀏覽器中輸入URL返回頁面的過程瀏覽器
- JAVA 兩個類同時實現同一個介面的方法Java
- 解決兩相同資料庫資料同步的問題 (轉)資料庫
- 資料流輸出
- 同一個server內將資料從A資料庫導到B資料庫Server資料庫
- 資料庫學習:在資料庫中存取檔案(轉)資料庫
- ENVI無縫鑲嵌、拼接柵格資料的方法
- 續上_在同一節點上利用rman duplicate複製資料庫資料庫
- PB內建OEACLE資料庫介面的使用方法(轉)資料庫
- C# 的輸入輸出,(同一行/換行)C#
- 表在同一庫中不同表空間上轉移
- css兩個div在同一行排列CSS
- app中無網路頁面的新增APP
- 資料庫學習:透過作業定時同步兩個資料庫(轉)資料庫
- 金蝶雲星空與吉客雲的採購入庫資料無縫對接方案
- 在SQL Server資料庫中匯入匯出資料SQLServer資料庫
- 在Linux下用DMA方式傳輸資料(轉)Linux
- 資料庫鍵方面的內容資料庫
- 資料儲存與輸出輸入