您的位置：首页 > 数据库

asp.net vb 数据库操作技巧

2009-10-11 23:32 411 查看

Asp.net vb 对操作的方法 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 vb 对Access数据库操作方法
Asp.net连接Access数据库例程详解:
<%@ Import Namespace="System.Data" %>
<%@ Import NameSpace="System.Data.OleDb" %>
<s cript 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
</s cript>
<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>

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签：

相关文章推荐

新的分享

章节导航