DominoCLUB - Notes 討論區 : Re: Re: Re: Re: excel 轉入notes更新文件中部份欄位資料

DominoCLUB - Notes 討論區 : Re: Re: Re: Re: excel 轉入notes更新文件中部份欄位資料

11.從文件中以單一Key取得視界中所有的文件內容範例

若你想從這一份文件的的某一欄位當Key 而從視界中尋找與 該Key相關的文件，
可以從下面範例來修改，而從視界取得與該Key相關文件相關內容。
'-------------------------------------------------------------------------------
Sub Click(Source As Button)
'We are accessing a document in the same database the script lies.
'Therfore, get the session, the the current database.
Dim s As notessession
Set s=New notessession
Dim db As notesdatabase
Set db=s.currentdatabase

'get the front end document
Dim w As notesuiworkspace
Set w=New notesuiworkspace
Dim uidoc As notesuidocument
Set uidoc=w.currentdocument
'宣告ODBC connect
Dim conP As New ODBCConnection
Dim conC As New ODBCConnection
Dim qryP As New ODBCQuery
Dim qryC As New ODBCQuery
Dim resultP As New ODBCResultSet
Dim resultC As New ODBCResultSet
'
'Add code here
'
'get backend document of the current document
Dim doc As notesdocument
Set doc=uidoc.document
'將主文件資料存至Oracle
Set qryP.Connection = conP
Set qryC.Connection=conC
Set resultP.Query = qryP
Set resultC.Query=qryC
Call conP.ConnectTo("cerp","ymh","hedl26")
Call conC.ConnectTo("cerp","ymh","hedl26")
qryP.SQL = "SELECT * FROM scheduleoutline"
qryC.SQL="SELECT * FROM scheduleevent"
'----新增進度大綱資訊到Oracle scheduleoutlineTable-------------------------
resultP.Execute
resultP.addrow
Call resultP.setvalue("sitecode",Trim(uidoc.FieldGetText("sitecode")))
Call resultP.setvalue("sitelabel",Trim(uidoc.FieldGetText("sitelabel")))
Call resultP.setvalue("socode",Trim(uidoc.FieldGetText("socode")))
Call resultP.setvalue("rescode",Trim(uidoc.FieldGetText("rescode")))
Call resultP.setvalue("soname",Trim(uidoc.FieldGetText("soname")))
Call resultP.setvalue("soworkday",Trim(uidoc.FieldGetText("soworkday")))
Call resultP.setvalue("sostartdate",Trim(uidoc.FieldGetText("sostartdate")))
Call resultP.setvalue("sofinishdate",Trim(uidoc.FieldGetText("sofinishdate")))
Call resultP.setvalue("sorate",Trim(uidoc.FieldGetText("sorate")))
Call resultP.setvalue("somoney",Trim(uidoc.FieldGetText("somoney")))
Call resultP.setvalue("ndunid",Trim(uidoc.FieldGetText("unid")))
resultP.updaterow
'--------------------------------------------------------------------------
'---------取得進度項目資訊套表的進度項目文件轉入Oracle purchaseitem Table-------
Dim viewkey As String
Dim subnview As NotesView

Dim subndoc As NotesDocument

Set subnview=db.GetView("(ColScheduleoutlineR)")
Set subndoc=subnview.GetFirstDocument
viewkey=Trim(doc.socode(0)) 'Key請購單號

Do Until subndoc Is Nothing
If (subndoc.socode(0)=viewkey) Then
resultC.Execute
resultC.addrow
Call resultc.setvalue("sitecode",Trim(subndoc.sitecode(0)))
Call resultc.setvalue("socode",Trim(subndoc.socode(0)))
Call resultc.setvalue("rescode",Trim(subndoc.rescode(0)))
Call resultc.setvalue("resname",Trim(subndoc.resname(0)))
Call resultc.setvalue("seworkday",Trim(subndoc.seworkday(0)))
Call resultc.setvalue("sestartdate",Trim(subndoc.sestartdate(0)))
Call resultc.setvalue("sefinishdate",Trim(subndoc.sefinishdate(0)))
Call resultc.setvalue("serate",Trim(subndoc.serate(0)))
Call resultc.setvalue("semoney",Trim(subndoc.semoney(0)))
Call resultc.setvalue("ndpunid",Trim(subndoc.UnidParent(0)))
Call resultc.setvalue("ndcunid",Trim(subndoc.Unid(0)))
resultC.updaterow
End If
Set subndoc = subnview.GetNextDocument(subndoc)
Loop
'---------------------------------------------------------

resultP.close(DB_CLOSE)
conP.disconnect
resultC.close(DB_CLOSE)
conC.disconnect
End Sub
'-------------------------------------------------------------------------------

電腦突然無法進入windows下列檔案遺漏或損毀，無法啟動windows：c:\windows\system32\config\system

一、在正式解決問題前，希望你和我一起溫習一下在「修復主控台」裡會用到好久不見的「DOS」指令：
這些指令的用法都可以透過「 /?」的參數來獲得解答。
1、「cd /?」，按「Enter」鍵。
2、「dir /?」指令，按「Enter」鍵。
3、「attrib /?」指令，按「Enter」鍵。
4、「copy /?」，按「Enter」鍵。
5、「map /?」，按「Enter」鍵。
因為上面這些指令等一下都會用到，所以最少要弄懂「cd」和「copy」， 不然你可能沒有辦法將遺漏或損毀的檔案順利地拷貝回去正確的位置。

二、進入正題，因為你現在的硬碟已經沒有辦法順利進入 Windows XP或是 Windows 2000 了，我們打算進入「修復主控台」來解決。 所以，請先準備好可以光碟開機的 XP 光碟。

1、進入主機板的 BIOS 將光碟設為第一開機選項。
把光碟片放入光碟機裡存檔離開，
然後當我們看到「Press any key to boot from CD...」的提示時，
趕快隨便按任意鍵由光碟開機。
2、看到這個畫面按「R」進入「修復主控台」。
3、看到這個畫面按「1」按，「Enter」鍵。
4、如果你當年「Adinsitor」帳戶有設密碼請鍵入正確密碼，按「Enter」； 如果當年「Adinsitor」帳戶沒有設密碼請直接按「Enter」。
5、終於能進入「C:＼WINNT」或「C:＼WINDOWS」下了。
6、於「C:＼WINNT>」下輸入「map」，然後按「Enter」。
請記下您含有 Windows xp 安裝光碟的光碟機代號，例如圖示裡光碟機代號是「E」和「F」。
備註：這個動作不是必要的，只是萬一將來有可能需要從光碟片拷貝某些檔案出來用。
7、於「C:＼WINNT>」下輸入「cd system32」，然後按「Enter」，進入「C:＼WINNT＼SYSTEM32>」。
8、於「C:＼WINNT＼SYSTEM32>」下輸入「cd config」，然後按「Enter」，進入「C:＼WINNT＼SYSTEM32＼CONFIG>」
9、於「C:＼WINNT＼SYSTEM32＼CONFIG>」下輸入「attrib -s -r -a -h system」，然後按「Enter」，
這指令意思是：把這個資料夾的「system」檔解除「唯讀、保存、系統、隱藏，等屬性」，
主要目的是為了避免沒有辦法從其他地方拷貝「system」檔案到「C:＼WINNT＼SYSTEM32＼CONFIG>」資料夾裡。
10、連續鍵入下列指令「cd ..」或是「cd /..」，直到回到根目錄「C:＼>」。
11、於「C:＼>」下鍵入「cd winnt」，按 Enter，到「C:＼WINNT>」目錄。
12、於「C:＼WINNT>」下鍵入「cd repair」，按 Enter，進入「C:＼WINNT＼REPAIR>」目錄。
13、於「C:＼WINNT＼REPAIR>」下鍵入「copy system C：＼WINNT＼system32＼config＼」，按 Enter。
14、如果系統提示您是否要覆蓋此檔案，輸入「Y」然後按「Enter」。
15、接著鍵入「EXIT」，按 Enter，重新啟動系統測試是否正常。
16、如果經過上述努力若還無法進入視窗，那就可能必須重灌了。

備註３：其實上述步驟有很多可以合併成一個步驟，慢慢來的原因是希望，我們能很清楚地知道，我們到底想做什麼？
例如7和8可以合併成於「C:＼WINNT>」下輸入「cd "system32＼config"」
備註４：萬一遇到檔案具備唯讀、隱藏等屬性，而又沒對該檔下「attrib -r -h」指令，可會沒有辦法覆蓋哦！
備註５：挑選正確版本的檔案來拷貝COPY也是很重要的，例如下圖發生的原因是：
她原本安裝時的光碟片是XP SP1，但經過多年使用早已更新到SP2，但偏偏用了SP1版本來覆蓋回去..... ！剛剛的努力真是付諸流水啊！

三、馬後砲！
我個人的實務經驗是，很多人習慣把東西丟到桌面上，
「桌 面」「Desktop」的東西其實就是「C:＼Documents and Settings＼UserNames＼Desktop」， 日積月累的結果把「C」塞爆了，例如下圖用 DOS 版的 GHOST來檢查，「C」快滿了，所以檔案在沒中毒的狀況下會莫名奇妙消失。

參考資料 http://www.horngjyi.com.tw/sphpblog/index.php?entry=entry070620-022750