<%@ Register TagPrefix="Title" TagName="TitleShow" Src="/aspnetdata/Title.ascx" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<%@ Import Namespace="System.Web" %>
<%@ Import Namespace="ACCDataProcess_vb" %>
<html>
<head>
	<script language="vb" runat="server">
	dim M as UseAccData_vb
	sub OKClick(sender as object,e as EventArgs)
		if MDB.Text<>"" then
			M = new UseAccData_vb(MDB.Text)
			dim strComm as string="select * from " & TB.Text
			dim tbName as string=TB.Text
			dim f as object=Session("NowDS")
			M.ControlBind(strComm, tbName,f, sf, "DataGrid",true)
		else
			err.Text="未输入文件名"
		end if
	end sub
	</script>
</head>
<body background="/aspnetdata/images/winback.gif">
<Title:TitleShow id="BookT" Runat="server" />
<form runat="server">
<asp:panel id="gData" runat="server" >
输入MDB文件名称及路径：<ASP:TEXTBOX runat="server" id="MDB" /><br>
输入数据表名称：<ASP:TEXTBOX runat="server" id="TB" /><ASP:button Text="OK" Runat="server" onclick="OKClick" /><br><br>
<asp:Label id="err" runat="server" />
</asp:panel>
      <ASP:DataGrid id="sf" runat="server"
        BorderColor="black"
        BorderWidth="1"
        GridLines="Both"
        CellPadding="3"
        CellSpacing="0"
        Font-Name="Verdana"
        Font-Size="9pt"
        HeaderStyle-BackColor="Yellow"
	SelectedItemStyle-BackColor="#FFFFC0"
	aUTOgENERATEcOLUMNS="true"
>

</ASP:DataGrid>
<asp:label id="rr" runat="server" />
</form>
</body>