Advertisement
Advertisement
| 04.18.2008 at 03:33AM PDT, ID: 23333724 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: 50: 51: 52: 53: 54: 55: 56: 57: 58: 59: 60: 61: 62: 63: 64: 65: 66: 67: 68: 69: 70: 71: 72: 73: 74: 75: 76: 77: 78: 79: 80: 81: 82: 83: 84: 85: 86: 87: 88: 89: 90: 91: 92: 93: 94: 95: 96: 97: 98: 99: 100: 101: 102: 103: 104: |
***************************************DBclass.vb*******************************
Imports Microsoft.VisualBasic
Imports System.Data.OleDb
Imports System.Data
Public Class DSClass
Function Select_BookIDs()
Dim DBConnection As OleDbConnection
Dim DBCommand As OleDbCommand
Dim DBReader As OleDbDataReader
Dim SQLString As String
DBConnection = New OleDbConnection( _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\BooksDB.mdb")
DBConnection.Open()
SQLString = "SELECT DISTINCT BookID FROM Books ORDER BY BookID"
DBCommand = New OleDbCommand(SQLString, DBConnection)
DBReader = DBCommand.ExecuteReader()
Return DBReader
DBReader.Close()
DBConnection.Close()
End Function
Function Select_Book(ByVal BookID As String)
Dim DBConnection As OleDbConnection
Dim DBAdapter As OleDbDataAdapter
Dim DBDataSet As DataSet
Dim SQLString As String
DBConnection = New OleDbConnection( _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\BooksDB.mdb")
SQLString = "SELECT * FROM Books WHERE BookID = '" & BookID & "'"
DBAdapter = New OleDbDataAdapter(SQLString, DBConnection)
DBDataSet = New DataSet
DBAdapter.Fill(DBDataSet)
Return DBDataSet
End Function
Function Delete_Book(ByVal BookID As String)
Dim DBConnection As OleDbConnection
Dim DBAdapter As OleDbDataAdapter
Dim DBDataSet As DataSet
Dim SQLString As String
Dim DBCommandBuilder As OleDbCommandBuilder
DBConnection = New OleDbConnection( _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\BooksDB.mdb")
SQLString = "SELECT * FROM Books WHERE BookID = '" & BookID & "'"
DBAdapter = New OleDbDataAdapter(SQLString, DBConnection)
DBDataSet = New DataSet
DBAdapter.Fill(DBDataSet)
DBDataSet.Tables(0).Rows(0).Delete()
DBCommandBuilder = New OleDbCommandBuilder(DBAdapter)
DBAdapter.Update(DBDataSet)
End Function
End Class
**************************************** default.aspx**************
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>Untitled Page</title>
</head>
<body>
<form id="form1" runat="server">
<div>
<asp:ObjectDataSource id="BookIDSource" Runat="Server"
TypeName="DSClass"
SelectMethod="Select_BookIDs"/>
<asp:DropDownList id="DropList" DataSourceID="BookIDSource" Runat="Server"
DataTextField="BookID"
DataValueField="BookID"
AutoPostBack="True"/>
<asp:ObjectDataSource id="BookSource" Runat="Server"
TypeName="DSClass"
SelectMethod="Select_Book"
DeleteMethod="Delete_Book">
<SelectParameters>
<asp:ControlParameter ControlID="DropList" Name="BookID" PropertyName="SelectedValue"
Type="String" />
</SelectParameters>
<DeleteParameters>
<asp:Parameter Name="BookID" Type="String" />
</DeleteParameters>
</asp:ObjectDataSource>
<asp:DetailsView id="BookView" DataSourceID="BookSource" Runat="Server"
AutoGenerateEditButton="True"
AutoGenerateDeleteButton="True"
AutoGenerateInsertButton="True"
RowStyle-VerticalAlign="Top"
RowStyle-Font-Size="10pt">
<RowStyle Font-Size="10pt" VerticalAlign="Top" />
</asp:DetailsView>
</div>
</form>
</body>
</html>
|