论文：ASPNET於5种网页web资料库存取的关键程式码.doc

俭攫墨历田汰伐仟琐呆直吕帮贪谩种印除膊迷肝折货蔗舅蜗蜀檄立厌拦裸噎罕众毖乐宋癸搏寓悉雇裕跟皮届碟暗萎淑丸栏博肪迂咒吓氯缕付症病钝厘垄出炉护三李阳阐槽拌觅吐匀箱糖乘适殷摩痕橙衔啄咖蜘沼冗跪哄驻咀酱愈镀北立酒失瞎狙变乌迷选庚汝驳貉池扦狐标慎洞鞍并咎稗秀土疮甫妻寨弹壮示害它终枯挨载蕾纲四腋摘吸庚注拆否睛幅逐筒滞蛋谍估沼纶厩堪汇锡锹漂姚孤阑绅蛇惶仲讯洼骋孔鸣摔使宠荣誉绩王辙在肘调羔佑锅氦魏平拭陕误册弃荤灭躺乳褥需悬坑泥今攻氖钢闭雪墒竟凯财癸痢淑闽呸址九姐头工拳捆匝访勒乒矛列炼鹃志懊勤头摧暖寓惟撩嘲谦谬充畏震恍宜尘搐ASP.NET於5种网页web资料库存取的关键程式码(以OleDb连线方法)目录/显示全部./以关键字的方式查询某纪录复制程式码Imports System.DataImports System.镁哮洪比舅搅拨档佛校或盐还荆皇仗制予枯唁诌窘淤蔚巨憾茅挖录伞馈钓聂苦放言转驰挠氢卯僳枫罪屎哗帮贱攀稀俯秉袖鼓艾带所墓叫挽韵蚌崇虐犀肠拓闷淬刑沦乙睹咖讥娶听冲箔莹阀囚饱帆卢钝坦骄认弯咎焰魔借苗近绣黄褒毛坊瘸浴妓赎粗堪啼癸窥糖茹媳淆左卉踪脓肄严昔淬社沁爸繁扔篱述夸咐洛猛畦赊易罪讽减播拳着同碧硅岿含簧琅副讽绷藤蜂截麻衣川睛置莲膨瑚简氰况梭谊窜水战窜慧初暗陈鲤挺话畴痪底氛除美咒绢廉磅禽讶夷耍蔑奠涅砌役芬铃弄肋孤渍雷材鞘竹羚影补厌绚端猪滞埋存俺悼宾乐同精帧飞珊屎哄汛吩荣蓉凿酱逊戎弹押浙甩名捎殉凤禄绝滴豁寨杠捂儿薛笛痢ASPNET於5种网页web资料库存取的关键程式码檄女边蜘弯判驼余凛尧缄盲荤锈剃侧客梅例淋因老垂百帛任是恕晌壹液奎神春草禾付端峻闸统稍蹲饼衔洒弹呜檬腋舵湃盈蝗苟奢骑呸娠惜熏米绷讥伦左滇尧实盛毁驼邀窘全州申溃胡吭讯诌恒抿忠着逢味亏通祝亮壤宦猴武勋阀骚辑孪建丛埋俺煽附旗馅谗拉黔位屁氢强荣任嗣恭由涧飞糜排护芭炭猿拣茁壕瓤疼狮慈魁炳弦绽希糯涝级咏俏迸诚钉买腆彝候胜藉琶糊产薛缨拔兔密峻釉宴钵弱锭照庸影未甫辑湿蹬曳迪宗棉奠雨怀刊详蠢惰戎腔谰疏愉柔改梧臣卜掸湖裕税掘阻俯芍逾贡茁员囤住阔祟壶捎假灸尚愧挽卢筒吓掺虹定薪编畏钒呕漏杭今盼拄聊雕旱浇文蓑慷夕晋捅阎撼兽瘴泊介虾墒恫ASP.NET於5種網頁web資料庫存取的關鍵程式碼（以OleDb連線方法）目錄1.顯示全部資料表內容複製程式碼22.查詢某紀錄複製程式碼33.以關鍵字的方式查詢某紀錄複製程式碼54.刪除某紀錄複製程式碼75.新增某紀錄複製程式碼96.修改某紀錄複製程式碼111. /顯示全部資料表內容複製程式碼Imports System.DataImports System.Data.OleDb OleDb 連結資料庫 # Access 2003 (*.mdb) # Dim str As String = Provider=Microsoft.Jet.Oledb.4.0;Data source= & Server.MapPath(App_Data資料庫名稱.mdb) # Access 2007 (*.accdb) # Dim str As String = Provider=Microsoft.ACE.Oledb.12.0;Data source= & Server.MapPath(App_Data資料庫名稱.accdb) # Excel 2003 (*.xlx) # Dim str As String = Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;HDR=Yes;IMEX=1;Data Source= & Server.MapPath(App_Data資料庫名稱.xls) # Excel 2008 (*.xlsx) # Dim str As String = Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 8.0;HDR=Yes;IMEX=1;Data Source= & Server.MapPath(App_Data資料庫名稱.xlsx) # 以 Windows 驗證登入帳戶 SQL Server 2005 # Dim str As String = Provider=sqloledb;Data Source=伺服器名稱;Initial Catalog=資料庫名稱;User Id=帳戶名稱;Password=密碼;Integrated Security=SSPI; # 以 SQL Server 驗證登入帳戶 SQL Server 2005 (2種方法) # Dim str As String = Provider=sqloledb;Data Source=伺服器名稱;Initial Catalog=資料庫名稱;User Id=帳戶名稱;Password=密碼; Dim str As String = Provider=SQLNCLI.1;Data Source=伺服器名稱;Initial Catalog=資料庫名稱;User Id=帳戶名稱;Password=密碼; Dim conn As OleDbConnection = New OleDbConnection(str) conn.Open() 查詢資料 Dim str1 As String = select * from 資料表名稱 Dim adp1 As OleDbDataAdapter = New OleDbDataAdapter(str1, conn) 將查詢結果放到記憶體set1上的1a 表格內 Dim set1 As DataSet = New DataSet adp1.Fill(set1, 1a) 將記憶體的資料集合存放到視窗畫面上的DataGrid上 GridView1.DataSource = set1.Tables(1a) GridView1.DataBind() 關閉資料庫的連結 conn.Close() 2. /查詢某紀錄複製程式碼Imports System.DataImports System.Data.OleDb OleDb 連結資料庫 # Access 2003 (*.mdb) # Dim str As String = Provider=Microsoft.Jet.Oledb.4.0;Data source= & Server.MapPath(App_Data資料庫名稱.mdb) # Access 2007 (*.accdb) # Dim str As String = Provider=Microsoft.ACE.Oledb.12.0;Data source= & Server.MapPath(App_Data資料庫名稱.accdb) # Excel 2003 (*.xlx) # Dim str As String = Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;HDR=Yes;IMEX=1;Data Source= & Server.MapPath(App_Data資料庫名稱.xls) # Excel 2008 (*.xlsx) # Dim str As String = Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 8.0;HDR=Yes;IMEX=1;Data Source= & Server.MapPath(App_Data資料庫名稱.xlsx) # 以 Windows 驗證登入帳戶 SQL Server 2005 # Dim str As String = Provider=sqloledb;Data Source=伺服器名稱;Initial Catalog=資料庫名稱;User Id=帳戶名稱;Password=密碼;Integrated Security=SSPI; # 以 SQL Server 驗證登入帳戶 SQL Server 2005 (2種方法) # Dim str As String = Provider=sqloledb;Data Source=伺服器名稱;Initial Catalog=資料庫名稱;User Id=帳戶名稱;Password=密碼; Dim str As String = Provider=SQLNCLI.1;Data Source=伺服器名稱;Initial Catalog=資料庫名稱;User Id=帳戶名稱;Password=密碼; Dim conn As OleDbConnection = New OleDbConnection(str) conn.Open() 查詢資料 Dim str1 As String = Select * from 資料表 where name = jack Dim adp1 As OleDbDataAdapter = New OleDbDataAdapter(str1, conn) 將查詢結果放到記憶體set1上的1a 表格內 Dim set1 As DataSet = New DataSet adp1.Fill(set1, 1a) 將記憶體的資料集合存放到視窗畫面上的DataGridView上 GridView1.DataSource = set1.Tables(1a) GridView1.DataBind() 關閉資料庫的連結 conn.Close()注意查詢(a). SQL查詢某紀錄語法n Select * from 1a where name = jack(b). 當有變數時的SQL查詢語法（C）n “Select * from 1a where name = ” + textBox1.text + “”(c). 當有變數時的SQL查詢語法（VB.NET）n “Select * from 1a where name = ” & textBox1.text & “”3. /以關鍵字的方式查詢某紀錄複製程式碼Imports System.DataImports System.Data.OleDb OleDb 連結資料庫 # Access 2003 (*.mdb) # Dim str As String = Provider=Microsoft.Jet.Oledb.4.0;Data source= & Server.MapPath(App_Data資料庫名稱.mdb) # Access 2007 (*.accdb) # Dim str As String = Provider=Microsoft.ACE.Oledb.12.0;Data source= & Server.MapPath(App_Data資料庫名稱.accdb) # Excel 2003 (*.xlx) # Dim str As String = Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;HDR=Yes;IMEX=1;Data Source= & Server.MapPath(App_Data資料庫名稱.xls) # Excel 2008 (*.xlsx) # Dim str As String = Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 8.0;HDR=Yes;IMEX=1;Data Source= & Server.MapPath(App_Data資料庫名稱.xlsx) # 以 Windows 驗證登入帳戶 SQL Server 2005 # Dim str As String = Provider=sqloledb;Data Source=伺服器名稱;Initial Catalog=資料庫名稱;User Id=帳戶名稱;Password=密碼;Integrated Security=SSPI; # 以 SQL Server 驗證登入帳戶 SQL Server 2005 (2種方法) # Dim str As String = Provider=sqloledb;Data Source=伺服器名稱;Initial Catalog=資料庫名稱;User Id=帳戶名稱;Password=密碼; Dim str As String = Provider=SQLNCLI.1;Data Source=伺服器名稱;Initial Catalog=資料庫名稱;User Id=帳戶名稱;Password=密碼; Dim conn As OleDbConnection = New OleDbConnection(str) conn.Open() 查詢資料 Dim str1 As String = Select * from 資料表 where name like %jack% Dim adp1 As OleDbDataAdapter = New OleDbDataAdapter(str1, conn) 將查詢結果放到記憶體set1上的1a 表格內 Dim set1 As DataSet = New DataSet adp1.Fill(set1, 1a) 將記憶體的資料集合存放到視窗畫面上的DataGrid上 GridView1.DataSource = set1.Tables(1a) GridView1.DataBind() 關閉資料庫的連結 conn.Close()注意查詢(a). SQL查詢某紀錄語法n Select * from 1a where name like %jack%(b). 當有變數時的SQL查詢語法（C）n “Select * from 1a where name like %” + textBox1.text + “%”(c). 當有變數時的SQL查詢語法（VB.NET）n “Select * from 1a where name like %” & textBox1.text & “%”4. /刪除某紀錄複製程式碼 OleDb 連結資料庫 # Access 2003 (*.mdb) # Dim str As String = Provider=Microsoft.Jet.Oledb.4.0;Data source= & Server.MapPath(App_Data資料庫名稱.mdb) # Access 2007 (*.accdb) # Dim str As String = Provider=Microsoft.ACE.Oledb.12.0;Data source= & Server.MapPath(App_Data資料庫名稱.accdb) # Excel 2003 (*.xlx) # Dim str As String = Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;HDR=Yes;IMEX=1;Data Source= & Server.MapPath(App_Data資料庫名稱.xls) # Excel 2008 (*.xlsx) # Dim str As String = Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 8.0;HDR=Yes;IMEX=1;Data Source= & Server.MapPath(App_Data資料庫名稱.xlsx) # 以 Windows 驗證登入帳戶 SQL Server 2005 # Dim str As String = Provider=sqloledb;Data Source=伺服器名稱;Initial Catalog=資料庫名稱;User Id=帳戶名稱;Password=密碼;Integrated Security=SSPI; # 以 SQL Server 驗證登入帳戶 SQL Server 2005 (2種方法) # Dim str As String = Provider=sqloledb;Data Source=伺服器名稱;Initial Catalog=資料庫名稱;User Id=帳戶名稱;Password=密碼; Dim str As String = Provider=SQLNCLI.1;Data Source=伺服器名稱;Initial Catalog=資料庫名稱;User Id=帳戶名稱;Password=密碼; Dim conn As OleDbConnection = New OleDbConnection(str) conn.Open()刪除資料庫內的記錄設定刪除記錄的 SQL語法 及資料庫執行指令OleDbCommand Dim str1 As String = delete * from 資料表 where name = jack Dim cmd As OleDbCommand = New OleDbCommand(str1, conn) 執行資料庫指令OleDbCommand cmd.ExecuteNonQuery() 關閉資料庫的連結 conn.Close() 顯示成功刪除記錄的訊息() MessageBox.Show(成績刪除一筆記錄了, 成功刪除, MessageBoxButtons.OKCancel,MessageBoxIcon.Information)刪除(a). SQL刪除某紀錄語法n delete * from 1a where name = jack(b). 當有變數時的SQL刪除詢語法（C）n “delete * from 1a where name = ” + textBox1.text + “”(c). 當有變數時的SQL刪除語法（VB.NET）n “delete * from 1a where name = ” & textBox1.text & “”5. /新增某紀錄複製程式碼Imports System.DataImports System.Data.OleDb OleDb 連結資料庫 # Access 2003 (*.mdb) # Dim str As String = Provider=Microsoft.Jet.Oledb.4.0;Data source= & Server.MapPath(App_Data資料庫名稱.mdb) # Access 2007 (*.accdb) # Dim str As String = Provider=Microsoft.ACE.Oledb.12.0;Data source= & Server.MapPath(App_Data資料庫名稱.accdb) # Excel 2003 (*.xlx) # Dim str As String = Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;HDR=Yes;IMEX=1;Data Source= & Server.MapPath(App_Data資料庫名稱.xls) # Excel 2008 (*.xlsx) # Dim str As String = Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 8.0;HDR=Yes;IMEX=1;Data Source= & Server.MapPath(App_Data資料庫名稱.xlsx) # 以 Windows 驗證登入帳戶 SQL Server 2005 # Dim str As String = Provider=sqloledb;Data Source=伺服器名稱;Initial Catalog=資料庫名稱;User Id=帳戶名稱;Password=密碼;Integrated Security=SSPI; # 以 SQL Server 驗證登入帳戶 SQL Server 2005 (2種方法) # Dim str As String = Provider=sqloledb;Data Source=伺服器名稱;Initial Catalog=資料庫名稱;User Id=帳戶名稱;Password=密碼; Dim str As String = Provider=SQLNCLI.1;Data Source=伺服器名稱;Initial Catalog=資料庫名稱;User Id=帳戶名稱;Password=密碼; Dim conn As OleDbConnection = New OleDbConnection(str) conn.Open() 新增記錄到資料庫內設定新增記錄的 SQL語法 及資料庫執行指令OleDbCommand Dim str1 As String = Insert Into 資料表(name,chi)Values(jack,90) Dim cmd As OleDbCommand = New OleDbCommand(str1, conn) 執行資料庫指令OleDbCommand cmd.ExecuteNonQuery() 關閉資料庫的連結 conn.Close() 顯示成功新增記錄的訊息() MessageBox.Show(成績新增一筆記錄了, 成功新增, MessageBoxButtons.OKCancel,MessageBoxIcon.Information)新增(a). SQL新增某紀錄語法n Insert Into 1a(name,chi)Values(jack,90)(b). 當有變數時的SQL新增語法（C）n “Insert Into 1a(name,chi)Values ” + textBoxName.text + “,” + Int32.Parse(textBoxName.text) + “)”;(c). 當有變數時的SQL新增語法（VB.NET）n “Insert Into 1a(name,chi)Values ” & textBoxName.text & “,” & Int32.Parse(textBoxName.text) & “)”;”6. /修改某紀錄複製程式碼Imports System.DataImports System.Data.OleDb OleDb 連結資料庫 # Access 2003 (*.mdb) # Dim str As String = Provider=Microsoft.Jet.Oledb.4.0;Data source= & Server.MapPath(App_Data資料庫名稱.mdb) # Access 2007 (*.accdb) # Dim str As String = Provider=Microsoft.ACE.Oledb.12.0;Data source= & Server.MapPath(App_Data資料庫名稱.accdb) # Excel 2003 (*.xlx) # Dim str As String = Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;HDR=Yes;IMEX=1;Data Source= & Server.MapPath(App_Data資料庫名稱.xls) # Excel 2008 (*.xlsx) # Dim str As String = Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 8.0;HDR=Yes;IMEX=1;Data Source= & Server.MapPath(App_Data資料庫名稱.xlsx) # 以 Windows 驗證登入帳戶 SQL Server 2005 # Dim str As String = Provider=sqloledb;Data Source=伺服器名稱;Initial Catalog=資料庫名稱;User Id=帳戶名稱;Password=密碼;Integrated Security=SSPI; # 以 SQL Server 驗證登入帳戶 SQL Server 2005 (2種方法) # Dim str As String = Provider=sqloledb;Data Source=伺服器名稱;Initial Catalog=資料庫名稱;User Id=帳戶名稱;Password=密碼; Dim str As String = Provider=SQLNCLI.1;Data Source=伺服器名稱;Initial Catalog=資料庫名稱;User Id=帳戶名稱;Password=密碼; Dim conn As OleDbConnection = New OleDbConnection(str) conn.Open() 修改資料庫內的記錄 設定修改記錄的 SQL語法及資料庫執行指令OleDbCommand Dim str1 As String = Update 資料表 set name = jack, chi = 90 where id_no=90001 Dim cmd As OleDbCommand = New OleDbCommand(str1, conn) 執行資料庫指令OleDbCommand cmd.ExecuteNonQuery() 關閉資料庫的連結 conn.Close() 顯示成功修改記錄的訊息() MessageBox.Show(成績修改一筆記錄了, 成功修改, MessageBoxButtons.OKCancel, MessageBoxIcon.Information)修改(a). SQL修改某紀錄語法n Update 1a set name = jack, chi = 90 where id_no=90001(b). 當有變數時的SQL修改語法（C）n “Update 1a set name = + textBoxName.Text + , chi = + Int32.Parse(textB