不再回头 .net学习日记＆资料

我再也不愿听你要求 我受够了你那些自私要求
  IT博客 :: 首页 :: 新随笔 :: 联系 :: 聚合  :: 管理 ::
  39 随笔 :: 2 文章 :: 14 评论 :: 0 Trackbacks
access asp.net

 

 1 Dim  myConnection  As  OleDbConnection 
  2      Dim  myCommand  As  OleDbCommand
  3      sub  page_load(sender  as   Object ,e  as  EventArgs)
  4
 5      ' 1.连接数据库
 6      dim  dbname  as   string
 7     dbname = server.mappath( " authors.mdb " )
  8     myConnection  =   New  OleDbConnection(  " PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source= " & dbname )
  9     myConnection.Open()
 10     la1.text = " Connection Opened! "
11
12  
 13
14      ' 2.添加记录
15     myCommand  =   New  OleDbCommand(  " Insert INTO Authors(Authors,country) Values('Simson','usa') " , myConnection )
 16     myCommand.ExecuteNonQuery()
 17     la2.text = " New Record Inserted! "
18
19  
 20
21      ' 3 更新数据(Access) 
22     myCommand  =   New  OleDbCommand(  " UPDATE Authors SET Authors='Bennett' WHERE Authors = 'Simson' " , myConnection )
 23     myCommand.ExecuteNonQuery()
 24     la3.text = " Record Updated! "
25
26  
 27
28      ' 4 删除数据（access） 
29     myCommand  =   New  OleDbCommand(  " DELETE FROM Authors WHERE Authors = 'David' " , myConnection )
 30     myCommand.ExecuteNonQuery()
 31     la4.text = " Record Deleted! "
32
33  
 34
35      ' 5 使用DateGrid显示数据 
36     myCommand  =   New  OleDbCommand(  " select * FROM Authors " , myConnection )
 37     MyDataGrid.DataSource = myCommand.Executereader()
 38     MyDataGrid.DataBind()
 39
40  
 41
42      end sub  
 43
44


 

posted on 2006-08-24 13:05 不再回头 阅读(156) 评论(0)  编辑 收藏 引用 所属分类: SQL
只有注册用户登录后才能发表评论。