扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
作者:基督山 来源:yesky 2007年11月8日
关键字: Windows
Dim myConnection As SQLConnection = New SQLConnection("server=localhost;uid=sa; pwd=;database=pubs") Dim myCommand As SQLCommand = New SQLCommand("select * from Authors", myConnection) myConnection.Open() Dim dr As New SQLDataReader myCommand.Execute(dr) ... myConnection.Close() 或者 这样做 Dim myConnection As New SQLConnection("server=localhost;uid=sa;pwd=;database=pubs") Dim mycommand As New SQLCommand( _ "UPDATE Authors SET phone='(800) 555-5555' WHERE au_id = '123-45-6789'", _ myConnection) myCommand.ActiveConnection.Open() myCommand.ExecuteNonQuery() myCommand.ActiveConnection.Close() |
uid | username | |
1 | User1 | Mail1 |
2 | User2 | Mail2 |
3 | User3 | Mail3 |
<script language="VB" runat="server"> Sub Page_Load(Src As Object, E As EventArgs) Dim MyConnection As SQLConnection = New SQLConnection("server=localhost;uid=sa; pwd=;database=aspnet") Dim MyCommand As SQLCommand = New SQLCommand("select * from User", MyConnection) MyConnection.Open() Dim DR As SQLDataReader MyCommand.Execute(DR) MyDataGrid.DataSource = DR MyDataGrid.DataBind() MyConnection.Close() End Sub </script> <ASP:DataGrid id="MyDataGrid" runat="server" Width="700" BackColor="#ccccff" BorderColor="black" ShowFooter="false" CellPadding=3 CellSpacing="0" Font-Name="Verdana" Font-Size="8pt" HeaderStyle-BackColor="#aaaadd" /> |
Dim DR As SQLDataReader |
<%@ Import Namespace="System.Data" %> <%@ Import Namespace="System.Data.SQL" %> <html> <script language="VB" runat="server"> Sub Page_Load(Src As Object, E As EventArgs) Dim DS As DataSet Dim MyConnection As SQLConnection Dim MyCommand As SQLDataSetCommand MyConnection = New SQLConnection("server=localhost;uid=sa;pwd=;database=aspnet") MyCommand = New SQLDataSetCommand("select * from User",MyConnection) DS = new DataSet() ~~~初始化DataSet() MyCommand.FillDataSet(ds, "User") ~~~FillDataSet顾名思义把整个查询内容储存进DataSet中 MyDataGrid.DataSource=ds.Tables("User").DefaultView MyDataGrid.DataBind() ~~~绑定数据 End Sub </script> <body> <h3><font face="Verdana"> Simple Select to a DataGrid Control </font></h3> <ASP:DataGrid id="MyDataGrid" runat="server" Width="700" BackColor="#ccccff" BorderColor="black" ShowFooter="false" CellPadding=3 CellSpacing="0" Font-Name="Verdana" Font-Size="8pt" HeaderStyle-BackColor="#aaaadd" MaintainState="false" /> </body> </html> |
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。
现场直击|2021世界人工智能大会
直击5G创新地带,就在2021MWC上海
5G已至 转型当时——服务提供商如何把握转型的绝佳时机
寻找自己的Flag
华为开发者大会2020(Cloud)- 科技行者