转至繁体中文版　　　  | 网站首页 | 图文教程 | 资源下载 | 站长博客 | 图片素材 | 武汉seo | 武汉网站优化 | 
最新公告：     敏韬网|教学资源学习资料永久免费分享站！  [mintao  2008年9月2日]        
您现在的位置： 学习笔记 >> 图文教程 >> 站长学院 >> Web开发 >> 正文
创建并控制一个asp.net程序！(for delphi.net )    热     ★★★★

创建并控制一个asp.net程序！(for delphi.net )

作者：闵涛 文章来源：闵涛的学习笔记 点击数：707 更新时间：2009/4/23 10:45:37
<%@ Page Language="Delphi" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.OleDb" %>
<script runat="server">

    procedure Button1Click(Sender: System.Object; E: EventArgs);
      var
          MyConnection : OleDbConnection ;
          dbReader : OleDbDataReader;
          cmd : OleDbCommand;
          abc : string;
          outval : string;
          intval : longint;
      begin
          abc := ''''Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data Source=c:\mydb.mdb'''';
          MyConnection := OleDbConnection.Create(abc);
          MyConnection.Open;

          cmd := MyConnection.CreateCommand;
          cmd.CommandText := ''''Select * from Table1'''';

          dbReader := cmd.ExecuteReader;

          while (dbReader.Read) do
          begin
              intval := dbReader.GetInt32(0);
              outval := dbReader.GetString(1);
          end;

          Label1.Text := inttostr(intval);

      end;

      procedure Button2Click(Sender: System.Object; E: EventArgs);
      var
        ConnStr : string;
        CommTxt : string;
        MyConnection : OleDbConnection ;
        abc : string;
        cmdText : string;
        cmd : OleDbCommand;

      begin
        ConnStr := ''''Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data Source=c:\mydb.mdb'''';
        CommTxt := ''''select andy as [first name], chapman as [Last Name] from Table1'''';
        abc := ''''Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data Source=c:\mydb.mdb'''';

        MyConnection := OleDbConnection.Create(abc);
        cmd := OleDbCommand.Create(CommTxt,MyConnection);

        MyConnection.Open;

        DataGrid1.DataSource := cmd.ExecuteReader(CommandBehavior.CloseConnection);
        DataGrid1.DataBind();

      end;

</script>
<html>
<head>
</head>
<body style="FONT-FAMILY: arial">
    <h2>Simple Data Report
    </h2>
    <hr size="1" />
    <form runat="server">
        <asp:datagrid id="DataGrid1" runat="server" CellSpacing="1" GridLines="None" CellPadding="3" BackColor="White" ForeColor="Black" EnableViewState="False">
            <HeaderStyle font-bold="True" forecolor="White" backcolor="#4A3C8C"></HeaderStyle>
            <ItemStyle backcolor="#DEDFDE"></ItemStyle>
        </asp:datagrid>
        <asp:Button id="Button1" style="Z-INDEX: 100; LEFT: 284px; POSITION: absolute; TOP: 151px" onclick="Button1Click" runat="server" Text="Bind To Data Grid"></asp:Button>
        <asp:Label id="Label1" style="Z-INDEX: 100; LEFT: 467px; POSITION: absolute; TOP: 156px" runat="server" Width="42px">Label</asp:Label>
        <asp:Button id="Button2" style="Z-INDEX: 101; LEFT: 283px; POSITION: absolute; TOP: 182px" onclick="Button2Click" runat="server" Text="Button"></asp:Button>
    </form>
</body>
</html>

(*
请设置你的webconfig文件如下：
*)

<configuration>

    <system.web>

<compilation debug="true">
<assemblies>
  <add assembly="DelphiProvider" />
</assemblies>
            <compilers>
                <compiler language="Delphi" extension=".pas" type="Borland.Delphi.DelphiCodeProvider,DelphiProvider" />
            </compilers>

        </compilation>

    </system.web>
</configuration>


<configuration>

    <system.web>

<compilation debug="true">
<assemblies>
  <add assembly="DelphiProvider" />
</assemblies>
            <compilers>
                <compiler language="Delphi" extension=".pas" type="Borland.Delphi.DelphiCodeProvider,DelphiProvider" />
            </compilers>

        </compilation>

    </system.web>
</configuration>


[C语言系列]NET 中C#的switch语句的语法  [系统软件]托拽Explore中的文件到VB.net的窗口
[系统软件]Boost库在XP+Visual C++.net中的安装  [常用软件]新配色面板：Paint.Net3.0RC1官方下载
[常用软件]用内建的“Net Meeting”聊天  [VB.NET程序]Henry的VB.NET之旅（三）—共享成员
[VB.NET程序]Henry的VB.NET之旅（二）—构造与析构  [VB.NET程序]Henry的VB.NET之旅（一）—失踪的窗体
[VB.NET程序]在托盘上显示Balloon Tooltip（VB.NET）  [VB.NET程序]Henry手记－VB.NET中动态加载Treeview节点（二）
教程录入：mintao    责任编辑：mintao 
  • 上一篇教程：

  • 下一篇教程：
    • 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】
    　 注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]
    　　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
    同类栏目
    · Web开发  · 网页制作
    · 平面设计  · 网站运营
    · 网站推广  · 搜索优化
    · 建站心得  · 站长故事
    · 互联动态
    更多内容
    热门推荐 更多内容
  • 没有教程
    		•
    赞助链接
    更多内容
    闵涛博文 更多关于武汉SEO的内容
    500 - 内部服务器错误。

    500 - 内部服务器错误。

    您查找的资源存在问题，因而无法显示。
    | 设为首页 |加入收藏 | 联系站长 | 友情链接 | 版权申明 | 广告服务
    MinTao学以致用网

    Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
    闵涛 投放广告、内容合作请Q我! E_mail:admin@mintao.net(欢迎提供学习资源)

    站长：MinTao ICP备案号：鄂ICP备11006601号-18

    闵涛站盟:医药大全-武穴网。A打造B、C、D……
    		咸宁网络警察报警平台