全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1720
推到 Plurk!
推到 Facebook!

一個簡易可查詢MS SQL Server的表格, 欄位等資訊的小程式

 
Wesly
中階會員


發表:14
回覆:103
積分:53
註冊:2002-05-31

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-03-26 00:34:02 IP:218.163.xxx.xxx 未訂閱
透過ADO連接MS SQL Server, 可觀看表格, 欄位等資訊.
附加檔案:47105_SQLMaintain.zip
Wesly
中階會員


發表:14
回覆:103
積分:53
註冊:2002-05-31

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-03-26 12:32:19 IP:218.170.xxx.xxx 未訂閱
對不起, 這支程式沒有OnLine Help, 只好請各位自己去試試. 除了上述功能外, 還能將資料集轉成XML, XLS格式檔案, 對MS SQL 索引檔重整, 資料備份, 資料壓縮. 網路芳鄰的查詢及廣播, 但若執行主機有二片(含)以上則無法廣播. 個人認為可把它當做MS SQL的小工具 希望能對你有所幫助.
P.D.
版主


發表:603
回覆:4038
積分:3874
註冊:2006-10-31

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-03-28 13:05:24 IP:61.71.xxx.xxx 未訂閱
引言: 對不起, 這支程式沒有OnLine Help, 只好請各位自己去試試. 除了上述功能外, 還能將資料集轉成XML, XLS格式檔案, 對MS SQL 索引檔重整, 資料備份, 資料壓縮. 網路芳鄰的查詢及廣播, 但若執行主機有二片(含)以上則無法廣播. 個人認為可把它當做MS SQL的小工具 希望能對你有所幫助.
試過功能, 不錯的工具, 對於想以ADO作業的網友來說應是一個不錯的學習資訊, 可惜沒有source code, 不知Wesly是否願意分享出來?
Wesly
中階會員


發表:14
回覆:103
積分:53
註冊:2002-05-31

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-03-29 10:14:33 IP:218.170.xxx.xxx 未訂閱
對不起, 不是我不想公佈Source Code, 只是內部使用到一些公用程式及特殊元件, 因為是公司的所以公佈後怕會造成一些困擾. 基本上當初我的構想是模擬BDE的部份功能, 使得在ADO時可以隨時轉換Catalog, 且去記錄其登錄MS SQL的方法, 帳號及密碼, 不必每次去記錄及設定, 所以這些設定都會存在ADOConneciton.ini內, 它是一個隱藏檔。若是有設定密碼, 程式會自動加密。 有"關資料庫相關資訊"是利用 TADOConnection.OpenSchema 去取得資料, 至於OpenSchema這個方法個人認為還不錯, 至少我不必去安裝其它元件就可以達到簡易查詢資料庫的Schema. 至於工具內的索引檔重整, 檔案壓縮, 備份, 這些是MS SQL Server的特殊指令(至少我這麼認為, 因為小弟我其它資料庫沒有試過), 所以只能給MS SQL Server使用, 我有在MS SQL Server 7.0 及 2000測過, 似乎沒有問題, 這也解決我客戶LOG檔不斷增大的問題. 我本來的另一個構想是想透過此一程式去建立SQL的建立表格, 修改表格及刪除表的語法, 但在此小弟還有些問題, 所以沒有包在內. 至於網路->廣播, 我之所以會使用, 是因為想通知網路上的芳鄰訊息, 是利用Net Send, 但又經過這幾天的測試發現似乎對Win 98無效, 我不知道為什麼, 還在查原因中. 版主, 個人有一個小問題, 若針對此程式若我有修改時, 可不可以重傳? 還是要另外開一個版面? 謝謝
pigbaby
初階會員


發表:2
回覆:84
積分:47
註冊:2002-09-02

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-03-29 11:29:19 IP:203.73.xxx.xxx 未訂閱
可以請您PO出如何取得表格及欄位那段好嗎? 謝謝^^
Wesly
中階會員


發表:14
回覆:103
積分:53
註冊:2002-05-31

發送簡訊給我
#6 引用回覆 回覆 發表時間:2004-03-30 09:25:04 IP:218.170.xxx.xxx 未訂閱
如果不透過OpenSchema, 其實TADOConnection就已提供該功能 取得表格名稱 ADOConnection1.GetTableNames(lbxTableName.Items, False); 取得欄位名稱 ADOConnection1.GetFieldNames(lbxTableName.Items[lbxTableName.ItemIndex], lbxFieldName.Items); 取得索引 ADOTable1.TableName := lbxTableName.Items[lbxTableName.ItemIndex]; ADOTable1.GetIndexNames(lbxIndexFile.Items); 至於相關參數, 請參照Online Help 本程式在Delphi 6.0下完成. 希望能對你有所幫助.
pigbaby
初階會員


發表:2
回覆:84
積分:47
註冊:2002-09-02

發送簡訊給我
#7 引用回覆 回覆 發表時間:2004-04-09 20:03:51 IP:61.64.xxx.xxx 未訂閱
謝謝您的回答^^ 真的是十分有用^^ 謝謝^^
系統時間:2024-07-01 21:24:05
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!