Function bind_ddlb(ByVal dd As DropDownList, ByVal t_name As String, ByVal t_display As String, ByVal t_value As String) Dim con_ddlb As OleDbConnection Dim comm_ddlb As OleDbCommand Dim read As OleDbDataReader Dim str As String str = session("constr") con_ddlb = New OleDbConnection(str) comm_ddlb = New OleDbCommand("select " & t_value & "," & t_display & " from " & t_name, con_ddlb) con_ddlb.Open() dd.DataSource = comm_ddlb.ExecuteReader() dd.DataTextField = t_display dd.DataValueField = t_value dd.DataBind() con_ddlb.Close()End Function
<!-- #include File="OleDbFunction.inc" -->
<Script Language="VB" Runat="Server">
'读取数据库数据,并连接数据源到 DataGrid 控件
Sub BindList()
myNewsGroup.DataSource = CreateDataSet("Select top 19 newsid, title From news ", "news1.mdb", "news")
myNewsGroup.DataBind()
End Sub
Sub Page_Init(sender As Object, e As Eventargs)
BindList()
End Sub
</Script>
<Html>
<Body>
<Center><Img Src="title1.jpg"></Center>
<Form Runat="Server">
<Asp:DataGrid Runat="Server" Id="myNewsGroup" AutoGenerateColumns="False"
PageSize="50" AllowSorting="True" Width="600"
CellPadding="3" HorizontalAlign="Center" GridLines="None"
>
<ItemStyle BackColor="#FFFFCC" HorizontalAlign="Center" />
<AlternatingItemStyle BackColor="#CCFFCC" />
<HeaderStyle ForeColor="green" BackColor="#990000"
HorizontalAlign="Center" />
<PagerStyle HorizontalAlign="Center" BackColor="#990000"
ForeColor="#FFFFCC" Mode="NumericPages" />
<Columns>
<Asp:HyperLinkColumn HeaderText="title" DataTextField="title"
SortExpression="title" DataNavigateUrlField="newsid"
DataNavigateUrlFormatString="ShowNews.aspx?Id={0}"
ItemStyle-Width="400px" />
</Columns>
</Asp:DataGrid>
</Form>
</Body>
</Html>
<%@ Page language="c#" Codebehind="dataset.aspx.cs" AutoEventWireup="false" Inherits="DataGridMemo.dataset" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" >
<HTML>
<HEAD>
<title>dataset</title>
<meta content="Microsoft Visual Studio 7.0" name="GENERATOR">
<meta content="C#" name="CODE_LANGUAGE">
<meta content="JavaScript" name="vs_defaultClientScript">
<meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">
</HEAD>
<body>
<form id="dataset" method="post" runat="server">
<FONT face="宋体">
<P> </P>
<P> </P>
<P><asp:datagrid id="DataGrid1" runat="server" Height="185px" Width="380px">
</asp:datagrid></P>
</FONT>
</form>
</body>
</HTML>
dataset.aspx.cs
using System;
using System.Collections;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Web;
using System.Web.SessionState;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.HtmlControls;
using System.Data.SqlClient;namespace DataGridMemo
{
/// <summary>
/// dataset 的摘要说明。
/// </summary>
public class dataset : System.Web.UI.Page
{
protected DataSet ds=new DataSet();
protected SqlDataAdapter myad;
protected System.Web.UI.WebControls.DataGrid DataGrid1;
protected SqlConnection conn;
private void Page_Load(object sender, System.EventArgs e)
{
// 在此处放置用户代码以初始化页面
conn=new SqlConnection("server=LCL;initial catalog=mstable;data source=lcl;uid=testone;pwd=testone");
myad=new SqlDataAdapter("select * from tt",conn);
myad.Fill(ds,"tt");
DataGrid1.DataSource=ds.Tables["tt"].DefaultView; if(!Page.IsPostBack)
{
DataGrid1.DataBind();
}
}
}
Dim con_ddlb As OleDbConnection
Dim comm_ddlb As OleDbCommand
Dim read As OleDbDataReader
Dim str As String
str = session("constr")
con_ddlb = New OleDbConnection(str)
comm_ddlb = New OleDbCommand("select " & t_value & "," & t_display & " from " & t_name, con_ddlb)
con_ddlb.Open()
dd.DataSource = comm_ddlb.ExecuteReader()
dd.DataTextField = t_display
dd.DataValueField = t_value
dd.DataBind()
con_ddlb.Close()End Function