|
#2
ladapt2008-07-23 16:50
|
<html>
<head>
<title>测试工具</title>
</head>
<body>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub Button1_OnClick
Private Sub CommandButton1_Click()
Dim cn As Object, rst As Object, rst1 As Object
Set cn = CreateObject("ADODB.Connection"): Set rst = CreateObject("ADODB.Recordset"): Set rst1 = CreateObject("adodb.recordset")
cn.Open "provider=microsoft.jet.oledb.4.0;data source=" & "H:\SYSchange\DeskTop\最新测试数据\AB.mdb"
rst.Open "select * from sheet"‘就想让sheet中所有的数据显示出来
rs.open sql,conn,1,1
do while not rs.eof
rst.Close
End Sub
-->
</SCRIPT>
</BODY>
</HTML>
我就想让数据库里的信息显示出来！！ 要如何编写呢？？谢谢大哥指点了..
