SQLite 命令行客户端 + HTA 实现简易UI

' 创建一个HTA用于展示SQLite数据库内容的简易UI
' 使用VBScript编写
 
Sub Window_OnLoad
    ' 设置窗口属性
    Me.ResizeTo 600, 400
    Me.Center
End Sub
 
Sub QueryDatabase
    ' 执行查询并展示结果
    Dim conn, rs, sql
    Set conn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
    
    conn.Open "Driver={SQLite3 ODBC Driver};Database=C:\path\to\database.db"
    sql = "SELECT * FROM some_table;"
    rs.Open sql, conn
    
    ' 假设有一个<table>元素用于展示数据
    Dim tableHTML, rowHTML
    tableHTML = "<table border='1'>"
    Do While Not rs.EOF
        rowHTML = "<tr>"
        For i = 0 To rs.Fields.Count - 1
            rowHTML = rowHTML & "<td>" & rs.Fields(i).Value & "</td>"
        Next
        rowHTML = rowHTML & "</tr>"
        tableHTML = tableHTML & rowHTML
        rs.MoveNext
    Loop
    tableHTML = tableHTML & "</table>"
    
    ' 将生成的HTML设置为结果显示区域的内容
    Results.InnerHTML = tableHTML
    
    ' 关闭连接
    rs.Close
    Set rs = Nothing
    conn.Close
    Set conn = Nothing
End Sub

这个简易的HTA示例展示了如何使用VBScript和ADO连接SQLite数据库，并在HTML表格中显示查询结果。这个例子只是为了教学展示，实际应用中需要更多的错误处理和用户输入验证。