使用HTA创建Access数据库

来源：互联网发布：华莱士油炸蛤蟆知乎编辑：程序博客网时间：2024/05/11 13:09

hta测试-会自动创建ACCESS数据库，这个例子主要是想测试一下看看到底hta有多好用，用了下感觉还成，因为没有设计过程序，不知道是不是比程序设计更简单，呵呵，下面是个实例，主要是用hta创建数据库，建表，添加数据等，理论上来说比web程序方便，比vbs脚本程序多了图形界面。
将以下代码保存为dbo.hta然后运行一下试试，也许对你很有用
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta name="author" content="柳永法,yongfa365,http://www.yongfa365.com/">

<title>hta测试-会自动创建ACCESS数据库</title>
<script language="VBScript" type="text/vbscript">
On Error Resume Next
dbpath = "www.yongfa365.com.mdb" '数据库路径，没有数据库会自动创建
Set DB = CreateObject("ADOX.Catalog")
DB.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&dbpath)
'向该数据库中建立相应表格
Set rs = CreateObject("adox.table")
'设置在没有添加前就可以引用
rs.ParentCatalog = DB
'该表格名称
rs.Name = "FriendsLinks"
'该表格字段(字段类型见相关附录)
rs.columns.append "id", 3 ' 单精度
rs.Columns("id").Properties("AutoIncrement") = True 'ID设为自动编号
rs.columns.append "WebName", 202
rs.columns.append "WebURL", 202
'rs.Columns.Append "col1", 3 ' integer '数字
'rs.Columns.Append "col2", 7 ' date '日期时间
'rs.Columns.Append "col3", 205 ' long binary 'OLE 对象
'rs.Columns.Append "col4", 203 ' memo '备注
'rs.Columns.Append "col5", 202 ' text '文本
'rs.Columns.Append "col6", 130 ' text '文本
'rs.Columns.Append "col7", 11 ' boolean '是/否
'rs.Columns.Append "col8", 6 ' currency '货币
'rs.Columns.Append "col9", 72 ' guid '数字同步复制ID
DB.tables.append rs
connstr = "provider=microsoft.jet.oledb.4.0;data source=" & dbpath
Set conn = CreateObject("adodb.connection")
conn.Open connstr
Function Add()
conn.Execute("insert into FriendsLinks (WebName,WebURL) values ('" & WebName.Value & "','" & WebURL.Value & "')")
window.location.reload
End Function
Function del()
conn.Execute("delete * from FriendsLinks where id="&id.Value)
window.location.reload
End Function
Set rs = CreateObject("adodb.recordset")
sql = "select * from FriendsLinks"
rs.Open sql, conn, 1, 1
For i = 1 To rs.recordcount
aa = aa&rs("id")&" <-- "&rs("WebName")&" : "&rs("WebURL")&"<br>"
rs.movenext
Next
document.Write aa
</script>
</head>
<body>
<hr>
网站名称：
<input name="WebName" value="柳永法(yongfa365)地blog" />
网站地址：
<input name="WebURL" value="www.yongfa365.com" />
<input type="button" onclick="add()" value="添加" />
<br />
<input name="id" value="1" />
<input type="button" onclick="del()" value="删除输入的ID" />
</body>
</html>

可修改代码后再运行

如果您想了解更多相关内容可以上http://msdn2.microsoft.com/en-us/library/ms536496.aspx查看官方说明。
还有一个非常有用的例子是：http://www.microsoft.com/downloads/details.aspx?FamilyID=09dfc342-648b-4119-b7eb-783b0f7d1178&DisplayLang=en
代码相关问题可以上这：http://www.microsoft.com/technet/scriptcenter/tools/scripto2.mspx
以下为网上转载的一些相关介绍：

HTA的全名为HTML Application，翻译过来就是HTML应用程序，你只要简单的用.hta为扩展名保存HTML页面就算创建了一个HTA文件，下面我们就用HTA来编个窗口，将以下这段代码保存为.hta文件，然后再用浏览器打开。

<HTML>
<HEAD>
<TITLE>www.yongfa365.com</TITLE>
<HTA:APPLICATION ID="oHTA"
APPLICATIONNAME="myApp"
　　BORDER="thin"
　　BORDERSTYLE="normal"
　　CAPTION="yes"
　　ICON="filename.ico"
　　MAXIMIZEBUTTON="yes"
　　MINIMIZEBUTTON="yes"
　　SHOWINTASKBAR="no"
　　INGLEINSTANCE="no"
　　SYSMENU="yes"
　　VERSION="1.0"
　　WINDOWSTATE="normal" />
</HEAD>
<BODY>
<b>www.yongfa365.com</b><br>hello!! 大家好，看我是hta还是html呢，呵呵，把您的html扩展名改成hta看看喽
</BODY>
</HTML>

上面代码与平时的html有点不同，多了HTA:APPLICATION标签，这就是关键之处，hta通过它来提供一系列面向应用程序的功能，接下来再讲一讲它的属性

    APPLICATIONNAME属性(applicationName)
　　此属性为设置HTA的名称。
　　BORDER属性(border)
　　此属性为设置为HTA的窗口边框类型，默认值为 thick。
　　它可以设为　thick 指定窗口为粗边框
　　　　　　　　dialog window 指定窗口为对话框
　　　　　　　　none 指定窗口无边框
　　　　　　　　thin 指定窗口为窄边框
    BORDERSTYLE属性(borderStyle)
　　此属性为设置HTA窗口的边框格式，默认值为 normal。
　　它可以设为
　　 normal 普通边框格式
　　 complex 凹凸格式组合边框
　　 raised 凸出的3D边框
　　 static 3D边框格式
　　 sunken 凹进的3D边框
    CAPTION属性(caption)
　　此属性为设置HTA窗口是否显示标题栏或标题，默认值为 yes。
    ICON属性(icon)
　　此属性为设置应用程序的图标。
    MAXIMIZEBUTTON属性(maximizeButton)
　　此属性为设置是否在HTA窗口中显示最大化按钮，默认值为 yes。
    MINIMIZEBUTTON属性(minimizeButton)
　　此属性为设置是否在HTA窗口中显示最小化按钮，默认值为 yes。
SHOWINTASKBAR属性(showInTaskBar)
　　此属性为设置是否在任务栏中显示此应用程序，默认值为 yes。
SINGLEINSTANCE属性(singleInstance)
　　此属性为设置是否此应用程序同时只能运行一次。次属性以APPLICATIONNAME属性作为标识，默认值为 no。
SYSMENU属性(sysMenu)
　　此属性为设置是否在HTA窗口中显示系统菜单，默认值为 yes。
VERSION属性(version)
　　此属性为设置应用程序的版本，默认值为空。
WINDOWSTATE属性(windowState)
　　此属性为设置HTA窗口的初始大小，默认值为 normal。
　　它可以设为 normal 默认大小
　　　　　　　 minmize 最小化
　　　　　　　 maximize 最大化
以上括号中的是在脚本引用的属性。在脚本中以上属性皆为只读属性。此外，在脚本中还可以使用commandLine属性来检索应用程序启动时的参数。
　　在HTA中还可以继续使用html中的绝大多数标签、脚本等。