注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

奥巴马学技术

这年头,不学点技术奥巴马也为难!!!

 
 
 

日志

 
 

引用 asp.net连接数据库代码  

2010-10-26 22:23:08|  分类: C#编程 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

 

引用

wmnmtmasp.net连接数据库代码

Sub LoadCommandList()

   Dim objConn As New Odbc.OdbcConnection

   Dim objCmd As New Odbc.OdbcCommand

   Dim objDataReader As Odbc.OdbcDataReader

   CommandList.Items.Clear()

   objConn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Application.StartupPath & "\database.mdb"

   Debug.Print(Application.StartupPath & "\database.mdb")

   objConn.Open()'连接数据库

   objCmd.Connection = objConn

   objCmd.CommandText = "select * from Commands"

   objDataReader = objCmd.ExecuteReader()'执行SQL语句

   While objDataReader.Read()'读数据,以下和数据库连接无关

   CommandList.Items.Add(objDataReader.GetString(0) & "," & objDataReader.GetString(1))

   End While

   objConn.Close()

End Sub

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>

  评论这张
 
阅读(159)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017