<%@ استيراد مساحة الاسم = "System.Data" %>
<%@ Import NameSpace="System.Data.OleDb" %>
<script laguage="VB" runat="server">
تعتيم myConnection باسم OleDbConnection
تعتيم myCommand باسم OleDbCommand
subpage_load(sender as Object,e as EventArgs)
'1.连接数据库
اسم dbname خافت كسلسلة
dbname=server.mappath("authors.mdb")
myConnection = New OleDbConnection( "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source="&dbname )
myConnection.Open()
la1.text="تم فتح الاتصال!"
'2.الأمر الجيد
myCommand = New OleDbCommand( "أدخل قيم المؤلفين (المؤلفين، البلد) ('Simson'،'usa')"، myConnection )
myCommand.ExecuteNonQuery()
la2.text="تم إدراج سجل جديد!"
'3 更新数据(الوصول)
myCommand = New OleDbCommand( "تحديث المؤلفين SET Authors='Bennett' WHERE Authors = 'Simson'"، myConnection )
myCommand.ExecuteNonQuery()
la3.text="تم تحديث السجل!"
'4 删除数据(الوصول)
myCommand = New OleDbCommand( "حذف من المؤلفين حيث المؤلفون = 'David'"، myConnection )
myCommand.ExecuteNonQuery()
la4.text="تم حذف السجل!"
'5 تم تحديث DateGrid
myCommand = New OleDbCommand("select * FROM Authors"، myConnection )
MyDataGrid.DataSource=myCommand.Executereader()
MyDataGrid.DataBind()
النهاية الفرعية
</script>
<أتش تي أم أل>
<الجسم>
<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 معرف = "MyDataGrid" تشغيل = "الخادم"
لون الحدود = "أسود"
عرض الحدود = "1"
خطوط الشبكة = "كلاهما"
حشوة الخلية = "3"
تباعد الخلايا = "0"
اسم الخط = "فيردانا"
حجم الخط = "10 نقطة"
HeaderStyle-BackColor = "#aaaadd"
AlternatingItemStyle-BackColor = "#eeeeee"
>
</asp:DataGrid>
</body>
</html>