一个用asp+存取数据库的例子

2016-01-29 17:22 1 1 收藏

一个用asp+存取数据库的例子,一个用asp+存取数据库的例子

【 tulaoshi.com - ASP 】

  <%@ Page Language="VB"%

<%@ Import Namespace="System.Data" %
<%@ Import Namespace="System.Data.ADO" %




<script language="VB" runat="server"
  Sub subbtn_OnClick(Sender As Object, E As EventArgs)
      Dim connobj As ADOConnection
      Dim dtsCmdobj As ADODataSetCommand
      Dim dtSobj As DataSet
      Dim str_sql As String
      dim conn_str As String
      str_sql = "select * from table_name"
      conn_str = "DBQ=" & Server.MapPath("database.mdb") &_
                 ";Driver={Microsoft Access Driver (*.mdb)};"

      connobj = New ADOConnection(conn_str)
      dtsCmdobj = New ADODataSetCommand(str_sql, connobj)
      dtSobj = New DataSet()
      dtsCmdob.FillDataSet(dtsobj, "table_name")
      dtgrid.DataSource = dtsobj.Tables("table_name").DefaultView
      dtgrid.DataBind()
End Sub
</script




<html
<body

<form action="db.aspx" method="post" runat="server"
<asp:Button type="submit" id="subbtn" text="Run Query" OnClick="subbtn_OnClick" runat="server" /
</form


<asp:DataGrid id="dtgrid" HeaderStyle-Font-Bold="True" ToolTip="data Grid provided with asp+" runat="server" maintainviewstate="false" /

</body
</html

 

来源:https://www.tulaoshi.com/n/20160129/1501109.html

延伸阅读
标签: ASP
  二、连接数据库和打开数据表 不同的数据库连接方法不一样(即建立Connection的实例方法不一样),一旦建立Connection实例完毕,利用Recordset对象进行存取数取数据的方法大同小异,下面对于不同的数据类型,编写了相对应的连接函数,其原型如下: 1)Function CreatMdbRecordset( 数据库文件名, 数据表文件名或Select语句 );...
标签: ASP
  一、ASP的对象存取数据库方法 在ASP中,用来存取数据库的对象统称ADO(Active Data Objects),主要含有三种对象:Connection、Recordset 、Command,其中Connection负责打开或连接数据库,Recordset负责存取数据表,Command负责对数据库执行行动查询(Action Query)命令和执行SQL Server的Stored Procedure。只依靠这三个对象还...
标签: ASP
  三、程序清单 '以下程序用VBScript编写 1)建立MdbRecordset对象,Mdb数据库是一个完整的数据库,内部可能含有若干个数据表,在此函数中,Connection的作用是连接数据库,Recordset的作用是打开数据表。 Function CreateMdbRecordset(数据库文件名, 数据表名或Select语句 ) Dim conn,Provider,DBPath ' 建立Connection 对象 Set con...
标签: ASP
  三、程序清单 '以下程序用VBScript编写 3)DBF文件不是一个标准的数据库文件,只相当于标准数据库文件中的一个数据表,所以为了使用DBF文件,采用把所有的DBF文件放在一个目录下,这样把目录名看成标准数据中的数据库表,每一个DBF文件相当于标准数据库的数据表。下面函数中Directory是DBF所在的目录名, Function CreateDbfRecordset...
Function CreateNormalDB(strPathName As String) As Boolean On Error GoTo Exit_ERR Dim wrkDefault As Workspace Dim NewDB As Database CreateNormalDB = False Set wrkDefault = DBEngine.Workspaces(0) If Dir(strPathName) < "" Then Kill strPathName Set NewDB = wrkDefault.CreateDatabase(strPathName, dbLangGeneral) NewDB.Cl...

经验教程

972

收藏

80
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部