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

我再也不愿听你要求 我受够了你那些自私要求

  IT博客 :: 首页 :: 新随笔 :: 联系 :: 聚合  :: 管理 ::
  39 随笔 :: 2 文章 :: 14 评论 :: 0 Trackbacks

 

 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 不再回头 阅读(81) 评论(0)  编辑 收藏 引用 所属分类: SQL
只有注册用户登录后才能发表评论。