610 likes | 789 Views
ADO.NET. เอกสารประกอบการบรรยายรายวิชา 204200 Browser-Based Application Development. วัตถุประสงค์. นักศึกษาสามารถอธิบายเกี่ยวกับ ADO.NET อย่างคร่าวๆ และการนำข้อมูลจากฐานข้อมูลมาใช้ใน ASP.NET นักศึกษาสามารถพัฒนาโปรแกรมประยุกต์บนบราวเซอร์อย่างง่ายๆ ซึ่งเชื่อมต่อกับฐานข้อมูลได้. หัวข้อบรรยาย.
E N D
ADO.NET เอกสารประกอบการบรรยายรายวิชา204200Browser-Based Application Development
วัตถุประสงค์ • นักศึกษาสามารถอธิบายเกี่ยวกับ ADO.NET อย่างคร่าวๆและการนำข้อมูลจากฐานข้อมูลมาใช้ใน ASP.NET • นักศึกษาสามารถพัฒนาโปรแกรมประยุกต์บนบราวเซอร์อย่างง่ายๆ ซึ่งเชื่อมต่อกับฐานข้อมูลได้
หัวข้อบรรยาย • ADO.NET • SQLHelper and OleDbHelper • ASP.NET & ADO.NET • DataBinding
ADO.NET • ADO <% Set con=Server.CreateObject("ADODB.Connection") con.Open "Driver={SQL Server}; SERVER=MYCOM; DATABASE=library;UID=user01;PWD=password" strSQL = "SELECT * FROM book" Set rsBooks=Server.CreateObject("ADODB.Recordset") Set rsBooks=con.Execute(strSQL) Do While Not rsBooks.Eof Response.Write rsBooks.Fields("book_id") & " " Response.Write rsBooks.Fields("title") & "<BR>" rsBooks.MoveNext Loop con.Close Set con=Nothing %>
ADO.NET • ADO <% Set con=Server.CreateObject("ADODB.Connection") con.Open "Driver={SQL Server}; SERVER=MYCOM; DATABASE=library;UID=user01;PWD=password" strSQL = "SELECT * FROM book" Set rsBooks=Server.CreateObject("ADODB.Recordset") Set rsBooks=con.Execute(strSQL) Do While Not rsBooks.Eof Response.Write rsBooks.Fields("book_id") & " " Response.Write rsBooks.Fields("title") & "<BR>" rsBooks.MoveNext Loop con.Close Set con=Nothing %>
ADO.NET • ADO <% Set con=Server.CreateObject("ADODB.Connection") con.Open "Driver={SQL Server}; SERVER=MYCOM; DATABASE=library;UID=user01;PWD=password" strSQL = "SELECT * FROM book" Set rsBooks=Server.CreateObject("ADODB.Recordset") Set rsBooks=con.Execute(strSQL) Do While Not rsBooks.Eof Response.Write rsBooks.Fields("book_id") & " " Response.Write rsBooks.Fields("title") & "<BR>" rsBooks.MoveNext Loop con.Close Set con=Nothing %>
ADO.NET • ADO <% Set con=Server.CreateObject("ADODB.Connection") con.Open "Driver={SQL Server}; SERVER=MYCOM; DATABASE=library;UID=user01;PWD=password" strSQL = "SELECT * FROM book" Set rsBooks=Server.CreateObject("ADODB.Recordset") Set rsBooks=con.Execute(strSQL) Do While Not rsBooks.Eof Response.Write rsBooks.Fields("book_id") & " " Response.Write rsBooks.Fields("title") & "<BR>" rsBooks.MoveNext Loop con.Close Set con=Nothing %> 10001 คู่กรรม <BR>
ADO.NET • ADO <% Set con=Server.CreateObject("ADODB.Connection") con.Open "Driver={SQL Server}; SERVER=MYCOM; DATABASE=library;UID=user01;PWD=password" strSQL = "SELECT * FROM book" Set rsBooks=Server.CreateObject("ADODB.Recordset") Set rsBooks=con.Execute(strSQL) Do While Not rsBooks.Eof Response.Write rsBooks.Fields("book_id") & " " Response.Write rsBooks.Fields("title") & "<BR>" rsBooks.MoveNext Loop con.Close Set con=Nothing %> 10001 คู่กรรม <BR> 10002 บ้านทรายทอง <BR>
ADO.NET • ADO <% Set con=Server.CreateObject("ADODB.Connection") con.Open "Driver={SQL Server}; SERVER=MYCOM; DATABASE=library;UID=user01;PWD=password" strSQL = "SELECT * FROM book" Set rsBooks=Server.CreateObject("ADODB.Recordset") Set rsBooks=con.Execute(strSQL) Do While Not rsBooks.Eof Response.Write rsBooks.Fields("book_id") & " " Response.Write rsBooks.Fields("title") & "<BR>" rsBooks.MoveNext Loop con.Close Set con=Nothing %> 10001 คู่กรรม <BR> 10002 บ้านทรายทอง <BR> 10003 ดาวพระศุกร์ <BR>
ADO.NET • ADO <% Set con=Server.CreateObject("ADODB.Connection") con.Open "Driver={SQL Server}; SERVER=MYCOM; DATABASE=library;UID=user01;PWD=password" strSQL = "SELECT * FROM book" Set rsBooks=Server.CreateObject("ADODB.Recordset") Set rsBooks=con.Execute(strSQL) Do While Not rsBooks.Eof Response.Write rsBooks.Fields("book_id") & " " Response.Write rsBooks.Fields("title") & "<BR>" rsBooks.MoveNext Loop con.Close Set con=Nothing %> 10001 คู่กรรม <BR> 10002 บ้านทรายทอง <BR> 10003 ดาวพระศุกร์ <BR> 10004 พระเสาร์แทรก <BR>
ADO.NET • ADO <% Set con=Server.CreateObject("ADODB.Connection") con.Open "Driver={SQL Server}; SERVER=MYCOM; DATABASE=library;UID=user01;PWD=password" strSQL = "SELECT * FROM book" Set rsBooks=Server.CreateObject("ADODB.Recordset") Set rsBooks=con.Execute(strSQL) Do While Not rsBooks.Eof Response.Write rsBooks.Fields("book_id") & " " Response.Write rsBooks.Fields("title") & "<BR>" rsBooks.MoveNext Loop con.Close Set con=Nothing %> 10001 คู่กรรม <BR> 10002 บ้านทรายทอง <BR> 10003 ดาวพระศุกร์ <BR> 10004 พระเสาร์แทรก <BR> 10005 เขาว่าผมฆ่าพี่ห้าง <BR>
ADO.NET • ADO <HTML> <BODY> <H1>Example</H1> <B>Hello Bold</B><BR> <B>Hello Italic</B><BR> <% ASP Block แสดง book_id และ title %> </BODY> </HTML>
ADO.NET • ADO <% Set con=Server.CreateObject("ADODB.Connection") con.Open "Driver={SQL Server}; SERVER=MYCOM; DATABASE=library;UID=user01;PWD=password" strSQL = "SELECT * FROM book" Set rsBooks=Server.CreateObject("ADODB.Recordset") Set rsBooks=con.Execute(strSQL) Do While Not rsBooks.Eof Response.Write rsBooks.Fields("book_id") & " " Response.Write rsBooks.Fields("title") & "<BR>" rsBooks.MoveNext Loop con.Close Set con=Nothing %>
ADO.NET • ADO
ADO.NET • ADO <HTML> <BODY> <H1>Example</H1> <B>Hello Bold</B><BR> <B>Hello Italic</B><BR> <% ASP Block แสดง book_id และ title %> </BODY> </HTML>
ADO.NET • ADO Web Browser Web Server <HTML> <BODY> <H1>Example</H1> <B>Hello Bold</B><BR> <B>Hello Italic</B><BR> <% ASP Block แสดง book_id และ title %> </BODY> </HTML> ASP Engine Database
ADO.NET • ADO Web Browser Web Server <HTML> <BODY> <H1>Example</H1> <B>Hello Bold</B><BR> <B>Hello Italic</B><BR> <% ASP Block แสดง book_id และ title %> </BODY> </HTML> ASP Engine Database
ADO.NET • ADO Web Browser Web Server <HTML> <BODY> <H1>Example</H1> <B>Hello Bold</B><BR> <B>Hello Italic</B><BR> <% ASP Block แสดง book_id และ title %> </BODY> </HTML> ASP Engine Database
ADO.NET • ADO Web Browser Web Server <HTML> <BODY> <H1>Example</H1> <B>Hello Bold</B><BR> <B>Hello Italic</B><BR> <% ASP Block แสดง book_id และ title %> </BODY> </HTML> ASP Engine Database
ADO.NET • ADO Web Browser Web Server Set con=Server.CreateObject("ADODB.Connection") con.Open "Driver={SQL Server}; SERVER=MYCOM; DATABASE=library;UID=user01;PWD=password" strSQL = "SELECT * FROM book" Set rsBooks=Server.CreateObject("ADODB.Recordset") Set rsBooks=con.Execute(strSQL) Do While Not rsBooks.Eof Response.Write rsBooks.Fields("book_id") & " " Response.Write rsBooks.Fields("title") & "<BR>" rsBooks.MoveNext Loop con.Close Set con=Nothing ASP Engine Database
ADO.NET • ADO Web Browser Web Server Set con=Server.CreateObject("ADODB.Connection") con.Open "Driver={SQL Server}; SERVER=MYCOM; DATABASE=library;UID=user01;PWD=password" strSQL = "SELECT * FROM book" Set rsBooks=Server.CreateObject("ADODB.Recordset") Set rsBooks=con.Execute(strSQL) Do While Not rsBooks.Eof Response.Write rsBooks.Fields("book_id") & " " Response.Write rsBooks.Fields("title") & "<BR>" rsBooks.MoveNext Loop con.Close Set con=Nothing ASP Engine Database
ADO.NET • ADO Web Browser Web Server <HTML> <BODY> <H1>Example</H1> <B>Hello Bold</B><BR> <B>Hello Italic</B><BR> <% ASP Block แสดง book_id และ title %> </BODY> </HTML> ASP Engine Database
ADO.NET • ADO Web Browser Web Server <HTML> <BODY> <H1>Example</H1> <B>Hello Bold</B><BR> <B>Hello Italic</B><BR> 10001 คู่กรรม <BR> 10002 บ้านทรายทอง <BR> 10003 ดาวพระศุกร์ <BR> 10004 พระเสาร์แทรก <BR> 10005 เขาว่าผมฆ่าพี่ห้าง <BR> </BODY> </HTML> ASP Engine Database
ADO.NET • ADO Web Browser Web Server <HTML> <BODY> <H1>Example</H1> <B>Hello Bold</B><BR> <B>Hello Italic</B><BR> 10001 คู่กรรม <BR> 10002 บ้านทรายทอง <BR> 10003 ดาวพระศุกร์ <BR> 10004 พระเสาร์แทรก <BR> 10005 เขาว่าผมฆ่าพี่ห้าง <BR> </BODY> </HTML> ASP Engine Database
ADO.NET • ADO Web Browser Web Server Example Hello Bold Hello Italic 10001 คู่กรรม 10002 บ้านทรายทอง 10003 ดาวพระศุกร์ 10004 พระเสาร์แทรก 10005 เขาว่าผมฆ่าพี่ห้าง ASP Engine Database
ADO.NET • ADO <HTML> <BODY> <H1>Example</H1> <B>Hello Bold</B><BR> <B>Hello Italic</B><BR> <% ASP Block แสดง book_id และ title %> </BODY> </HTML>
ADO.NET • ADO & ADO.NET RecordSet DataSet
ADO.NET • Connection • Command • DataReader • DataSet • DataAdapter
ADO.NET • ADO & ADO.NET DataSet SqlDataAdaper SelectCommandUpdateCommandInsertCommandDeleteCommand SQL
ADO.NET • Connection • Command • DataReader • DataSet • DataAdapter
ADO.NET • ADO & ADO.NET RecordSet DataSet
หัวข้อบรรยาย • ADO.NET • SQLHelper and OleDbHelper • ASP.NET & ADO.NET • DataBinding
SQLHelper and OleDbHelper dbEmployee Determine Database Connect to the Database dbEmployee Execute Command SELECT * FROM employee Use Data Close Connection
SQLHelper and OleDbHelper Determine Database dbEmployee SELECT * FROM employee Execute Command Close Connection
SQLHelper and OleDbHelper • SQLHelper.cs • OleDbHelper.cs
SQLHelper and OleDbHelper • SQLHelper.cs using System; using System.Collections; using System.ComponentModel; using System.Data; … using System.Web.UI.HtmlControls; using Microsoft.ApplicationBlocks.Data;
SQLHelper and OleDbHelper • OleDbHelper.cs using System; using System.Collections; using System.ComponentModel; using System.Data; … using System.Web.UI.HtmlControls; using Microsoft.ApplicationBlocks.Data;
หัวข้อบรรยาย • ADO.NET • SQLHelper and OleDbHelper • ASP.NET & ADO.NET • DataBinding
ASP.NET & ADO.NET string ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\Inetpub\\wwwroot\\e-Commerce\\MyStore.mdb"; string SqlStatement = "SELECT * FROM car"; DataSet ds = new DataSet(); ds = OleDbHelper.ExecuteDataset(ConnectionString, CommandType.Text, SqlStatement);
ASP.NET & ADO.NET string ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\Inetpub\\wwwroot\\e-Commerce\\MyStore.mdb"; string SqlStatement = "SELECT * FROM car WHERE car_id = ' "+ TextCarID.Text + " ' "; DataSet ds = new DataSet(); ds = OleDbHelper.ExecuteDataset(ConnectionString, CommandType.Text, SqlStatement);
ASP.NET & ADO.NET string ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\Inetpub\\wwwroot\\e-Commerce\\MyStore.mdb"; string SqlStatement = "INSERT INTO car (make, model) VALUES( ' "+ TextMake.Text + " ' " + TextModel.Text + " ') "; OleDbHelper.ExecuteDataset(ConnectionString, CommandType.Text, SqlStatement);
ASP.NET & ADO.NET string ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\Inetpub\\wwwroot\\e-Commerce\\MyStore.mdb"; string SqlStatement = "DELETE FROM car WHERE car_id = ' " + TextCarID.Text + " ') "; OleDbHelper.ExecuteDataset(ConnectionString, CommandType.Text, SqlStatement);
ASP.NET & ADO.NET string ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\Inetpub\\wwwroot\\e-Commerce\\MyStore.mdb"; string SqlStatement = “UPDATE car SET price = ' " + TextPrice.Text + " ' WHERE car_id = ' " + TextCarID.Text + " ') "; OleDbHelper.ExecuteDataset(ConnectionString, CommandType.Text, SqlStatement);
หัวข้อบรรยาย • ADO.NET • SQLHelper and OleDbHelper • ASP.NET & ADO.NET • DataBinding
DataBinding • WebForm Controls • TextBox • Label • DropDownList • DataGrid • DataList • RadioButtonList • CheckBoxList • etc.
DataBinding string ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\Inetpub\\wwwroot\\e-Commerce\\MyStore.mdb"; string SqlStatement = "SELECT * FROM car"; DataSet ds = new DataSet(); ds = OleDbHelper.ExecuteDataset(ConnectionString, CommandType.Text, SqlStatement);
DataBinding • Label TextBox1.Text = ds.Tables["Car"].Rows[0]["make"].ToString();