62,046
社区成员
发帖
与我相关
我的任务
分享
Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
Response.Write("Hello World!")
End Sub
Dim myConnection As New OleDb.OleDbConnection
Dim myDataAdapter As OleDb.OleDbDataAdapter
Dim myDataset As DataSet
Dim myDataTable As New Data.DataTable
Dim mySql As String
Public Sub ReadData()
mySql = "select * from list"
myDataAdapter = New OleDb.OleDbDataAdapter(sSql, myConnection)
myDataset = New DataSet()
myDataAdapter.Fill(myDataset, "Table1")
myDataTable = myDataset.Tables("Table1")
Response.Write(myDataTable.Rows.Item(0)("name"))
GridView1.DataSource = myDataTable
GridView1.DataBind()
Response.Write(GridView1.Columns.Count) '这个地方显示出来也是0
End Sub
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>无标题页</title>
</head>
<body>
<form id="form1" runat="server">
<div>
<br />
<br />
<%
Call ReadData()
%>
<asp:Button ID="Button1" runat="server" Text="Button" Width="144px" />
<asp:Button ID="Button2" runat="server" Text="Button2" Width="128px" />
<asp:Button ID="Button3" runat="server" Text="Button" />
<asp:GridView ID="GridView1" runat="server" Height="240px" Width="416px" AllowPaging="True" PageSize="20" OnPageIndexChanging="GridView1_PageIndexChanging">
</asp:GridView>
</div>
</form>
</body>
</html>
Imports System.Data
Partial Class _Default
Inherits System.Web.UI.Page
Dim myConnection As New OleDb.OleDbConnection
Dim myDataAdapter As OleDb.OleDbDataAdapter
Dim myDataset As DataSet
Dim myDataTable As New Data.DataTable
Dim myCmd As New OleDb.OleDbCommand
Dim strSql As String
Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
myConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("") & "\app_data\shuzi.mdb;User Id=admin;Password=;"
myConnection.Open()
End Sub
Public Function getconn() As String
getconn = myConnection.ConnectionString
End Function
Public Sub ReadData()
strSql = "select * from list"
myDataAdapter = New OleDb.OleDbDataAdapter(sSql, myConnection)
myDataset = New DataSet()
myDataAdapter.Fill(myDataset, "Table1")
myDataTable = myDataset.Tables("Table1")
Response.Write(myDataTable.Rows.Item(0)("name"))
GridView1.DataSource = myDataTable
GridView1.DataBind()
Response.Write(GridView1.Columns.Count)
End Sub
Protected Sub GridView1_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles GridView1.PageIndexChanging
GridView1.PageIndex = e.NewPageIndex
GridView1.DataBind()
End Sub