asp.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>

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值