小弟是.net新手,请教vs生成的代码怎么显示datagrid?

srz007 2003-08-20 06:14:21
我是新手,现在用vs.net2003做的一页测试页面,功能很简单,就想连上数据库后把数据提取出来在datagrid中显示出来,在vs中调试都一切正常了,但在ie中就是看不到数据库中的数据,显示页面中还有一个DropDownList,也是绑定完数据显示不了,所以请大家帮帮忙看看源代码,是怎么回事?

显示页面:srz.aspx

---------------------------------------------------------------------

<%@ Page Language="vb" AutoEventWireup="false" Codebehind="srz.aspx.vb" Inherits="WebApplication1.srz"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>srz</title>
<meta content="Microsoft Visual Studio .NET 7.0" name="GENERATOR">
<meta content="Visual Basic 7.0" name="CODE_LANGUAGE">
<meta content="VBScript" name="vs_defaultClientScript">
<meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">
</HEAD>
<body MS_POSITIONING="GridLayout">
<form id="Form1" method="post" runat="server">
<asp:datagrid id=DataGrid1 style="Z-INDEX: 101; LEFT: 64px; POSITION: absolute; TOP: 45px" runat="server" DataSource="<%# My_DataSet1 %>" DataKeyField="user_id" DataMember="f_board">
<Columns>
<asp:ButtonColumn Text="选择" CommandName="Select"></asp:ButtonColumn>
<asp:EditCommandColumn ButtonType="LinkButton" UpdateText="更新" CancelText="取消" EditText="编辑"></asp:EditCommandColumn>
<asp:ButtonColumn Text="删除" CommandName="Delete"></asp:ButtonColumn>
</Columns>
</asp:datagrid>
<asp:DropDownList id=DropDownList1 style="Z-INDEX: 102; LEFT: 320px; POSITION: absolute; TOP: 418px" runat="server" DataSource='<%# DataBinder.Eval(My_DataSet1, "Tables[f_board].DefaultView.[0].id", "{0}") %>' >
</asp:DropDownList></form>
</body>
</HTML>


---------------------------------------------------------------------

第二个文件srz.aspx.vb

---------------------------------------------------------------------

Public Class srz
Inherits System.Web.UI.Page
Protected WithEvents MyConnection As System.Data.OleDb.OleDbConnection
Protected WithEvents myOleDbDataAdapter As System.Data.OleDb.OleDbDataAdapter
Protected WithEvents my_OleDbSelectCommand As System.Data.OleDb.OleDbCommand
Protected WithEvents DropDownList1 As System.Web.UI.WebControls.DropDownList
Protected WithEvents My_DataSet1 As WebApplication1.my_DataSet
Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid

#Region " Web 窗体设计器生成的代码 "

'该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.MyConnection = New System.Data.OleDb.OleDbConnection()
Me.myOleDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter()
Me.my_OleDbSelectCommand = New System.Data.OleDb.OleDbCommand()
Me.My_DataSet1 = New WebApplication1.my_DataSet()
CType(Me.My_DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
'
'MyConnection
'
Me.MyConnection.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Cata" & _
"log=temp_web;Data Source=SRZ-BIRD;Use Procedure for Prepare=1;Auto Translate=Tru" & _
"e;Packet Size=4096;Workstation ID=SRZ-BIRD;Use Encryption for Data=False;Tag wit" & _
"h column collation when possible=False"
'
'myOleDbDataAdapter
'
Me.myOleDbDataAdapter.SelectCommand = Me.my_OleDbSelectCommand
Me.myOleDbDataAdapter.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "f_board", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("id", "id"), New System.Data.Common.DataColumnMapping("related_id", "related_id"), New System.Data.Common.DataColumnMapping("re_id", "re_id"), New System.Data.Common.DataColumnMapping("_top", "_top"), New System.Data.Common.DataColumnMapping("quintessence", "quintessence"), New System.Data.Common.DataColumnMapping("lock", "lock"), New System.Data.Common.DataColumnMapping("user_id", "user_id"), New System.Data.Common.DataColumnMapping("face", "face"), New System.Data.Common.DataColumnMapping("enclosure", "enclosure"), New System.Data.Common.DataColumnMapping("_date", "_date"), New System.Data.Common.DataColumnMapping("total_mark", "total_mark"), New System.Data.Common.DataColumnMapping("title", "title"), New System.Data.Common.DataColumnMapping("text", "text")})})
'
'my_OleDbSelectCommand
'
Me.my_OleDbSelectCommand.CommandText = "SELECT id, related_id, re_id, _top, quintessence, lock, user_id, face, enclosure," & _
" _date, total_mark, title, text FROM f_board"
Me.my_OleDbSelectCommand.Connection = Me.MyConnection
'
'My_DataSet1
'
Me.My_DataSet1.DataSetName = "my_DataSet"
Me.My_DataSet1.Locale = New System.Globalization.CultureInfo("zh-CN")
Me.My_DataSet1.Namespace = "http://www.tempuri.org/my_DataSet.xsd"
CType(Me.My_DataSet1, System.ComponentModel.ISupportInitialize).EndInit()

End Sub


Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
'不要使用代码编辑器修改它。
InitializeComponent()
End Sub

#End Region

Private Sub OleDbConnection1_InfoMessage(ByVal sender As System.Object, ByVal e As System.Data.OleDb.OleDbInfoMessageEventArgs) Handles MyConnection.InfoMessage

End Sub
End Class


---------------------------------------------------------------------
...全文
37 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
srz007 2003-08-20
  • 打赏
  • 举报
回复
其实就是因为我是新手才不知道该怎么做的,看了很多代码都是手写的,我想知道怎么通过VS.NET生成大部分的代码,毕竟全部手写是很累的,关键还是效率低,我想充分的利用好VS这个工具,但刚开始用,有点找不到门道,还是谢谢楼上的两位老兄的指点,在发这个问题之前我也想到可能是没有bind的原因,但以前没弄过asp.net,不能确定,所以才问的,再次感谢,结贴
junches 2003-08-20
  • 打赏
  • 举报
回复
小弟弟,不要什么问题都来问,这种基础的问题应该发扬刻苦钻研的作风,这才像个程序员。
guoyan19811021 2003-08-20
  • 打赏
  • 举报
回复
自己写吧
Sub BindGrid()
Dim cnn As OleDb.OleDbConnection = data.Connection
Dim da As New OleDbDataAdapter("select * from log", cnn)
Dim ds As New DataSet()
da.Fill(ds, "employees")

DataGrid1.DataSource = ds
DataGrid1.DataBind()
End Sub
eshusheng 2003-08-20
  • 打赏
  • 举报
回复
我用ctrl+f没有找到 databind().

两个控件都没有绑定数据源,哪里会有数据?我没有看全部代码。要看球了。呵呵。
你试着在page_load()里面加上 page.databind()
srz007 2003-08-20
  • 打赏
  • 举报
回复
怎么没人帮呢,顶一下,分不够再加;)

62,025

社区成员

发帖
与我相关
我的任务
社区描述
.NET技术交流专区
javascript云原生 企业社区
社区管理员
  • ASP.NET
  • .Net开发者社区
  • R小R
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告

.NET 社区是一个围绕开源 .NET 的开放、热情、创新、包容的技术社区。社区致力于为广大 .NET 爱好者提供一个良好的知识共享、协同互助的 .NET 技术交流环境。我们尊重不同意见,支持健康理性的辩论和互动,反对歧视和攻击。

希望和大家一起共同营造一个活跃、友好的社区氛围。

试试用AI创作助手写篇文章吧