Asp.net连接数据库教程（vb.net）

最新推荐文章于 2023-07-03 12:52:33 发布

zhangsong66

最新推荐文章于 2023-07-03 12:52:33 发布

阅读量594

点赞数 1

分类专栏： asp.net学习文章标签： asp.net 数据库 vb.net server datagrid sqlserver

本文链接：https://blog.csdn.net/zhangsong66/article/details/5546218

版权

asp.net学习专栏收录该内容

4 篇文章 0 订阅

订阅专栏

Asp.net连接SQL Server2000数据库例程详解:
<%@ Import Namespace="System.Data" %>
<%@ Import NameSpace="System.Data.SqlClient" %>
<script laguage="VB" runat="server">
sub page_load(sender as Object,e as EventArgs)
Dim myConnection As SqlConnection
Dim myCommand As SqlCommand
Dim ds as DataSet
'1.connect to sql server
myConnection = New SqlConnection( "server=localhost;database=Pubs;uid=ueytjdf;pwd=doekdf" )
myConnection.Open()
la1.text="Connection Opened!"

'2.Create a table
myCommand = New SqlCommand( "CREATE TABLE [test] ([id] [int] IDENTITY (1, 1) NOT NULL ,[name] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ,[sex] [char] (10) COLLATE Chinese_PRC_CI_AS NULL )", myConnection )
myCommand.ExecuteNonQuery()
la2.text="New table created!"

'2 添加纪录
myCommand = New SqlCommand( "Insert into [test] (name,sex) values( '黄志文','男' )", myConnection )
myCommand.ExecuteNonQuery()
la3.text="New Record Inserted!"

'3 更新数据
myCommand = New SqlCommand( "UPDATE [test] SET name='Smith' where name='李明'", myConnection )
myCommand.ExecuteNonQuery()
la4.text="Record Updated!"

'4 删除数据
myCommand = New SqlCommand( "delete from [test] where name='Smith'", myConnection )
myCommand.ExecuteNonQuery()
la5.text="Record Deleted!"

'5 用DataGrid显示数据
myCommand = New SqlCommand( "select * from [test]", myConnection )
MyDataGrid.DataSource=myCommand.ExecuteReader()
MyDataGrid.DataBind()
end sub
</script>
<html>
<body>
<asp:label id="la1" runat="server" /><br>
<asp:label id="la2" runat="server" /><br>
<asp:label id="la3" runat="server" /><br>
<asp:label id="la4" runat="server" /><br>
<asp:label id="la5" runat="server" /><br>
<ASP:DataGrid id="MyDataGrid" runat="server"
BorderColor="black"
BorderWidth="1"
GridLines="Both"
CellPadding="3"
CellSpacing="0"
Font-Name="Verdana"
Font-Size="10pt"
HeaderStyle-BackColor="#aaaadd"
AlternatingItemStyle-BackColor="#eeeeee"
>
</asp:DataGrid>

</body>
</html>
----------------------------------------------------------------------------------------------------
ASP.net连接access数据库例程
<%@ Import Namespace="System.Data" %>
<%@ Import NameSpace="System.Data.OleDb" %>
<script laguage="VB" runat="server">
Dim myConnection As OleDbConnection
Dim myCommand As OleDbCommand
sub page_load(sender as Object,e as EventArgs)
'1.连接数据库
dim dbname as string
dbname=server.mappath("authors.mdb")
myConnection = New OleDbConnection( "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source="&dbname )
myConnection.Open()
la1.text="Connection Opened!"

'2.添加记录
myCommand = New OleDbCommand( "Insert INTO Authors(Authors,country) Values('Simson','usa')", myConnection )
myCommand.ExecuteNonQuery()
la2.text="New Record Inserted!"

'3 更新数据(Access)
myCommand = New OleDbCommand( "UPDATE Authors SET Authors='Bennett' WHERE Authors = 'Simson'", myConnection )
myCommand.ExecuteNonQuery()
la3.text="Record Updated!"

'4 删除数据（access）
myCommand = New OleDbCommand( "DELETE FROM Authors WHERE Authors = 'David'", myConnection )
myCommand.ExecuteNonQuery()
la4.text="Record Deleted!"

'5 使用DateGrid显示数据
myCommand = New OleDbCommand( "select * FROM Authors", myConnection )
MyDataGrid.DataSource=myCommand.Executereader()
MyDataGrid.DataBind()

end sub
</script>
<html>
<body>
<asp:label id="la1" runat="server" /><br>
<asp:label id="la2" runat="server" /><br>
<asp:label id="la3" runat="server" /><br>
<asp:label id="la4" runat="server" /><br>
<ASP:DataGrid id="MyDataGrid" runat="server"
BorderColor="black"
BorderWidth="1"
GridLines="Both"
CellPadding="3"
CellSpacing="0"
Font-Name="Verdana"
Font-Size="10pt"
HeaderStyle-BackColor="#aaaadd"
AlternatingItemStyle-BackColor="#eeeeee"
>
</asp:DataGrid>

</body>
</html>
ASP.net中的几种分页方法

1、利用DataGrid内置的分页功能

在DataGrid控件的属性里加入以下语句　
AllowPaging="True"
PageSize="5"
PagerStyle-HorizontalAlign="Right"

注：AllowPaging是指允许分页。 PageSize是指定每页显示的记录数，如果不写，就会默认为10条。PagerStyle-HorizontalAlign是指定分页显示按钮的定位，默认是Left。

2、利用SQL语句

Select Top @pagesize * from topic where id Not IN (Select Top @pagesize*@pagenum id from topic)

注：@pagesize是指定每页显示的记录数，@pagenum是指第几页。
另外topic是表名，id是一个标识列。

3、利用DataSet.Fill

DataSet ds = new DataSet();
SqlDataAdapter MyAdapter = new SqlDataAdapter(strSel,Conn);
MyAdapter.Fill(ds,StartIndex,PageSize,"guest");
Mydatalist.DataSource = ds.Tables["guest"].DefaultView;

注：StartIndex是指读取第几条记录，PageSize是指要读取多少条记录

4、利用DataTable.Rows

For i = nStart To nEnd
Response.Write ( DT.Rows ( i ) ( "ItemName" ) & " <br > " )
Next

注：nStart是指开始读取的记录的序号，nEnd是指最后读取的记录的序号
DT是一个DataTable对象。

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

//去首页
private void BtnFirst_Click(object sender, System.EventArgs e)
{
Table.CurrentPageIndex=0;
BindData();
PageContr();

}
//去上一页
private void BtnPrev_Click(object sender, System.EventArgs e)
{
if (Table.CurrentPageIndex>0)
{
   Table.CurrentPageIndex--;
   BindData();

}
PageContr();

}
//去下一页
private void BtnNext_Click(object sender, System.EventArgs e)
{
if(Table.CurrentPageIndex<(Table.PageCount-1))
{
   Table.CurrentPageIndex++;
   BindData();
}
PageContr();

}
//去最后页
private void BtnLast_Click(object sender, System.EventArgs e)
{
Table.CurrentPageIndex=(Table.PageCount - 1);
BindData();
PageContr();
}
//去指定页
private void BtnGO_Click(object sender, System.EventArgs e)
{
string StrPage=TxtGoPage.Value.Trim();
TxtGoPage.Value ="";
if(StrPage!="")
{
   try
   {
     int PageI=Int32.Parse(StrPage)-1;
     if (PageI >=0 && PageI < (Table.PageCount))
       Table.CurrentPageIndex = PageI ;
     BindData();
     PageContr();
   }
   catch
   {
     return;
   }
}

}
//翻页控制
public void PageContr()
{
int PageI=Table.CurrentPageIndex;
if(PageI==0&&Table.PageCount>0)
{
   if (Table.PageCount==1)
   {
     BtnFirst.Enabled=false;
     BtnPrev.Enabled=false;
     BtnLast.Enabled=false;
     BtnNext.Enabled=false;
   }
   else
   {
     BtnFirst.Enabled=false;
     BtnPrev.Enabled=false;
     BtnLast.Enabled=true;
     BtnNext.Enabled=true;
   }
}
else if(PageI==Table.PageCount-1)
{


   BtnFirst.Enabled=true;
   BtnPrev.Enabled=true;
   BtnLast.Enabled=false;
   BtnNext.Enabled=false;

}

else
{
   BtnFirst.Enabled=true;
   BtnPrev.Enabled=true;
   BtnLast.Enabled=true;
   BtnNext.Enabled=true;

}
}
///
public void BindData()
{
Table.DataSource =DbServer.GetDataSet (this.Sql);
Table.DataBind ();
//显示页面信息
LblCurrentIndex.Text =Convert.ToString(Table.CurrentPageIndex+1);
LblPageCount.Text = Table.PageCount.ToString ();
if (Table.PageCount ==1)
{
   this.BtnGO .Enabled =false;
}
else
{
   this.BtnGO .Enabled =true;
}

}

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

zhangsong66

关注

1
点赞
踩
1

收藏

觉得还不错? 一键收藏
0
评论
Asp.net连接数据库教程（vb.net）

Asp.net连接SQL Server2000数据库例程详解: sub page_load(sender as Object,e as EventArgs) Dim myConnection As SqlConnection Dim myCommand As SqlCommand Dim ds as DataSet 1.connect to sql server myConnection
复制链接

扫一扫

专栏目录