SQLite 命令行客戶端 + HTA 實現簡易UI
- SQLite 客戶端.hta
- 目錄結構
- 參考資料
僅用于探索可行性，就只實現了 SELECT。
SQLite 客戶端.hta
<!DOCTYPE html>
<html>
<head><meta http-equiv="Content-Type" content="text/html; charset=utf-8"><HTA:APPLICATIONAPPLICATIONNAME="Demo"ID="JerryHTA"VERSION="1.0"ICON=""BORDER="dialog"SCROLL="no"SINGLEINSTANCE="yes"CONTEXTMENU="yes"NAVIGABLE="yes"/><meta http-equiv="x-ua-compatible" content="ie=edge"/><title>SQLite 客戶端 - HTA 版</title><style>body { font-family: Arial, sans-serif; }#cmdResult { white-space: pre-wrap; }/* 表格樣式 */table {width: 100%;border-collapse: collapse;margin-top: 20px;}table th,table td {border: 1px solid #ddd;padding: 8px;text-align: left;}/* 表頭樣式 */tabl thead th {background-color: #007BFF;color: white;font-weight: bold;text-transform: uppercase;}/* 鼠標懸停效果 */table tbody tr:hover {background-color: #f5f5f5;}/* 交替行顏色 */table tbody tr:nth-child(even) {background-color: #f2f2f2;}</style><script language="JScript">function runCmd() {var cmd = document.getElementById('cmdInput').value;try {var shell = new ActiveXObject("WScript.Shell");var sqlCmd = 'sqlite3.exe MY_DB.db ".mode html" ".headers on" ".width auto" "'+ cmd + '"';var encodingCmd = 'cmd /C CHCP 65001 > nul & ' + sqlCmd;var exec = shell.Exec(encodingCmd);while (exec.Status == 0){}var Stream = new ActiveXObject("ADODB.Stream");Stream.Open();Stream.Type = 2; // Text typeStream.Charset = "UTF-8";// 直接從文件讀取數據，確保編碼正確Stream.LoadFromFile('sqltemp');// 讀取所有數據var result = Stream.ReadText(-1);Stream.Close();// 清除之前的輸出并顯示新結果document.getElementById('cmdResult').innerHTML = '<table>' + result + '</table>';} catch (e) {document.getElementById('cmdResult').innerText = "Error: " + e.message;}}</script>
</head>
<body><h1>SQLite 客戶端</h1><textarea id="cmdInput" rows="5" cols="60">SELECT * FROM 訂單表;</textarea><br/><button onclick="runCmd()">執行</button><hr/><h2>執行結果</h2><pre id="cmdResult"></pre>
</body>
</html>
目錄結構
參考資料
笑蝦：SQLite 命令行客戶端 + Windows 批處理應用
VBScript Scripting Techniques > HTAs
HTA & WSC Examples
599cd：HTA Tips
)
：熱門的數據湖開源框架)
