tag:blogger.com,1999:blog-8923688899234668603.post2849209870843955527..comments2021-06-09T13:53:43.275+08:00Comments on 腦殘賤貓的備忘錄: 使用 SQL Server 開啟 DBF 檔案貓老大http://www.blogger.com/profile/08764504186896133997noreply@blogger.comBlogger7125tag:blogger.com,1999:blog-8923688899234668603.post-30720601819655773702021-06-09T13:53:43.275+08:002021-06-09T13:53:43.275+08:00將DOS CLIPPER5系統 轉換 改成 PYTHON 架構
因為 Clipper Program...將DOS CLIPPER5系統 轉換 改成 PYTHON 架構<br />因為 Clipper Program系統太好用了, 都是小模塊組成, 模塊改成PYTHON=>將ENDIF 移除>將IF 後加 ; 號<br />例如改成 PYTHON 案例:<br />Clipper code:<br />if upper(m_att)='A'<br />if !add_rec(5)<br />stderrmsg("Append failure!",1)<br />return<br />endif<br />endif<br /><br />Python code:<br />if upper(m_att)='A';<br />if !add_rec(5)<br />stderrmsg("Append failure!",1)<br />return<br /><br />因為 Clipper Program : 程式上有許多邏輯檢查, 管控點, 必須參照 Clipper Procedure Source, 將一個一個Function 轉成到新的平台上, 如果完全重頭設計, 會有諸多遺漏與盲點, 錯誤機率太高了!!!Anonymoushttps://www.blogger.com/profile/15655552009696036685noreply@blogger.comtag:blogger.com,1999:blog-8923688899234668603.post-12264278493796091082021-06-08T17:57:36.824+08:002021-06-08T17:57:36.824+08:00我以前也寫過 Clipper,如果願意談談系統改版的事情,請發郵件給我,或到用臉書發訊息給我。
謝謝...我以前也寫過 Clipper,如果願意談談系統改版的事情,請發郵件給我,或到用臉書發訊息給我。<br />謝謝!貓老大https://www.blogger.com/profile/08764504186896133997noreply@blogger.comtag:blogger.com,1999:blog-8923688899234668603.post-65908606891289931492021-06-08T09:43:24.275+08:002021-06-08T09:43:24.275+08:00
最後有 conn.close, 如下:
If cnn.Sta...<br />最後有 conn.close, 如下: <br /> If cnn.State = adStateOpen Then cnn.Close<br /> Set cnn = Nothing<br /> If rst.State = 1 Then rst.Close<br /> Set rst = Nothing<br />Clipper 系統,是我們自己開發的, 開發人員老了, <br /><br />ROBERT CHENAnonymoushttps://www.blogger.com/profile/15655552009696036685noreply@blogger.comtag:blogger.com,1999:blog-8923688899234668603.post-52813984517623076772021-06-07T19:04:11.362+08:002021-06-07T19:04:11.362+08:00我留意到了你最後沒有 conn.close,不知是否是這個原因,導致關檔不完全
現有的 Clippe...我留意到了你最後沒有 conn.close,不知是否是這個原因,導致關檔不完全<br />現有的 Clipper 的系統年代久遠了,要找到能改版的人不是很容易啊,原軟體廠商沒有新的版本嗎?貓老大https://www.blogger.com/profile/08764504186896133997noreply@blogger.comtag:blogger.com,1999:blog-8923688899234668603.post-45182873798668321682021-06-07T17:02:24.193+08:002021-06-07T17:02:24.193+08:00貓老大,
收到回郵, 太感謝了,
1. 原connection string 裡 沒有 &quo...貓老大,<br /><br />收到回郵, 太感謝了,<br /><br />1. 原connection string 裡 沒有 "HDR=NO;IMEX=2" 後加上它 是試試看 能否解決 問題<br />2. sql匯入dBASEIII 檔案; dBASE無法開啟dBASEIII 檔案; <br />唯一方法 是用 DBU software 開啟 dBASEIII 檔案;再將最後一個record最後一個FIELD/COLUMN的最後一字成重新打一次,<br />3. sql匯入的dBASEIII 檔案; Dbase 就可以開啟檔案;<br /><br />4. 使用 dBase III 嗎 & DOS 的軟體, 因為系統 是 novell file server, software is clipper program<br /><br />5. 一直希望 找到高手 將整個系統 改成 VM 架構 或 改成 PYTHON 架構<br /><br />THANKS A LOT,<br /><br />B. RGDS.,<br />ROBERT CHENAnonymoushttps://www.blogger.com/profile/15655552009696036685noreply@blogger.comtag:blogger.com,1999:blog-8923688899234668603.post-38891797060941423552021-06-07T15:06:43.969+08:002021-06-07T15:06:43.969+08:00試著去掉 connection string 裡的 "HDR=NO;IMEX=2"...試著去掉 connection string 裡的 "HDR=NO;IMEX=2"<br />或是把檔名改成 8.3 形式<br />有點好奇,這年頭還有人使用 dBase III 嗎?DOS 的軟體耶貓老大https://www.blogger.com/profile/08764504186896133997noreply@blogger.comtag:blogger.com,1999:blog-8923688899234668603.post-71503306487199034872021-06-07T14:57:13.328+08:002021-06-07T14:57:13.328+08:00在網路上搜尋 均無解答 是否可以請教您 問題出在哪裡??? 如何解決???
匯出的 dBASE II...在網路上搜尋 均無解答 是否可以請教您 問題出在哪裡??? 如何解決???<br />匯出的 dBASE III 檔無法在 dBASE III 中開啟<br /> Dim cnn As New ADODB.Connection<br /> Dim rst As New ADODB.Recordset<br /> Dim sqls As String<br /> ''20210410<br /> 'On Error Resume Next <br /> On Error GoTo ErrorHandler<br /> If cnn.State = adStateOpen Then cnn.Close<br /> If rst.State = 1 Then rst.Close<br /> cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='dBASE III;HDR=NO;IMEX=2';Data Source=" & "D:\AICUSTOMS-應收費用ACT帳單檔" <br /> If cnn.State = adStateOpen Then <br /> sqls = ""<br /> sqls = "select MAWB, HAWB from[ACCINOPM$] where MAWB = '" & MAWB_NO & "' AND HAWB = '" & HAWB_NO & "'"<br /> sqls = sqls + " AND INVOICENO = '" & M_INVOICENO & "' AND DBISSUE = 'Y'"<br /> rst.Open sqls, cnn, 1, 1<br /> If Not rst Is Nothing Then <br /> ''新增<br /> sqls = ""<br /> sqls = "insert into [ACCINOPM$] (MAWB, HAWB, ACCNO,APPDATE, ACCDATE, DPT, INVOICENO)" <br /> sqls = sqls + " values ('" & MAWB_NO & "','" & HAWB_NO & "','" & M_ACCNO & "'"<br /> sqls = sqls + ",'" & M_APPDATE & "','" & M_DATE & "','" & M_DPT & "','" & M_INVOICENO & "')" <br /> cnn.Execute sqls<br /> End If<br /> Else<br /> MsgBox "Connection was not created!", vbCritical, "Connection error"<br /> End If<br />匯出的 dBASE III 檔無法在 dBASE III 中開啟<br />在網路上搜尋 均無解答 是否可以請教您 問題出在哪裡??? 如何解決???Anonymoushttps://www.blogger.com/profile/15655552009696036685noreply@blogger.com