defaultvb.aspx.vb

Telerik是很大的第三方软件制造商

            Me.oleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Region1", System.Data.OleDb.OleDbType.VarWChar, 15, System.Data.ParameterDirection.Input, False, CType(0, System.Byte), CType(0, System.Byte), "Region", System.Data.DataRowVersion.Original, Nothing))
            ' 
            ' oleDbInsertCommand1
            ' 
            Me.oleDbInsertCommand1.CommandText = "INSERT INTO Customers(Address, City, CompanyName, ContactName, ContactTitle, Coun" + "try, CustomerID, Fax, Phone, PostalCode, Region) VALUES (?, ?, ?, ?, ?, ?, ?, ?," + " ?, ?, ?)"
            Me.oleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Address", System.Data.OleDb.OleDbType.VarWChar, 60, "Address"))
            Me.oleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("City", System.Data.OleDb.OleDbType.VarWChar, 15, "City"))
            Me.oleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("CompanyName", System.Data.OleDb.OleDbType.VarWChar, 40, "CompanyName"))
            Me.oleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("ContactName", System.Data.OleDb.OleDbType.VarWChar, 30, "ContactName"))
            Me.oleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("ContactTitle", System.Data.OleDb.OleDbType.VarWChar, 30, "ContactTitle"))
            Me.oleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Country", System.Data.OleDb.OleDbType.VarWChar, 15, "Country"))
            Me.oleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("CustomerID", System.Data.OleDb.OleDbType.VarWChar, 5, "CustomerID"))
            Me.oleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Fax", System.Data.OleDb.OleDbType.VarWChar, 24, "Fax"))
            Me.oleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Phone", System.Data.OleDb.OleDbType.VarWChar, 24, "Phone"))
            Me.oleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("PostalCode", System.Data.OleDb.OleDbType.VarWChar, 10, "PostalCode"))
            Me.oleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Region", System.Data.OleDb.OleDbType.VarWChar, 15, "Region"))
            ' 
            ' oleDbSelectCommand1
            ' 
            Me.oleDbSelectCommand1.CommandText = "SELECT * FROM Customers"
            ' 
            ' oleDbUpdateCommand1
            ' 
            Me.oleDbUpdateCommand1.CommandText = "UPDATE Customers SET Address = ?, City = ?, CompanyName = ?, ContactName = ?, ContactTitle = ?, Country = ?, CustomerID = ?, Fax = ?, Phone = ?, PostalCode = ?, Region = ? WHERE (CustomerID = ?) AND (Address = ? OR ? IS NULL AND Address IS NULL) AND (City = ? OR ? IS NULL AND City IS NULL) AND (CompanyName = ?) AND (ContactName = ? OR ? IS NULL AND ContactName IS NULL) AND (ContactTitle = ? OR ? IS NULL AND ContactTitle IS NULL) AND (Country = ? OR ? IS NULL AND Country IS NULL) AND (Fax = ? OR ? IS NULL AND Fax IS NULL) AND (Phone = ? OR ? IS NULL AND Phone IS NULL) AND (PostalCode = ? OR ? IS NULL AND PostalCode IS NULL) AND (Region = ? OR ? IS NULL AND Region IS NULL)"
            Me.oleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Address", System.Data.OleDb.OleDbType.VarWChar, 60, "Address"))
            Me.oleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("City", System.Data.OleDb.OleDbType.VarWChar, 15, "City"))
            Me.oleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("CompanyName", System.Data.OleDb.OleDbType.VarWChar, 40, "CompanyName"))
            Me.oleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("ContactName", System.Data.OleDb.OleDbType.VarWChar, 30, "ContactName"))
            Me.oleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("ContactTitle", System.Data.OleDb.OleDbType.VarWChar, 30, "ContactTitle"))
            Me.oleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Country", System.Data.OleDb.OleDbType.VarWChar, 15, "Country"))
            Me.oleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("CustomerID", System.Data.OleDb.OleDbType.VarWChar, 5, "CustomerID"))
            Me.oleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Fax", System.Data.OleDb.OleDbType.VarWChar, 24, "Fax"))
            Me.oleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Phone", System.Data.OleDb.OleDbType.VarWChar, 24, "Phone"))
            Me.oleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("PostalCode", System.Data.OleDb.OleDbType.VarWChar, 10, "PostalCode"))
            Me.oleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Region", System.Data.OleDb.OleDbType.VarWChar, 15, "Region"))
            Me.oleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_CustomerID", System.Data.OleDb.OleDbType.VarWChar, 5, System.Data.ParameterDirection.Input, False, CType(0, System.Byte), CType(0, System.Byte), "CustomerID", System.Data.DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Address", System.Data.OleDb.OleDbType.VarWChar, 60, System.Data.ParameterDirection.Input, False, CType(0, System.Byte), CType(0, System.Byte), "Address", System.Data.DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Address1", System.Data.OleDb.OleDbType.VarWChar, 60, System.Data.ParameterDirection.Input, False, CType(0, System.Byte), CType(0, System.Byte), "Address", System.Data.DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_City", System.Data.OleDb.OleDbType.VarWChar, 15, System.Data.ParameterDirection.Input, False, CType(0, System.Byte), CType(0, System.Byte), "City", System.Data.DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_City1", System.Data.OleDb.OleDbType.VarWChar, 15, System.Data.ParameterDirection.Input, False, CType(0, System.Byte), CType(0, System.Byte), "City", System.Data.DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_CompanyName", System.Data.OleDb.OleDbType.VarWChar, 40, System.Data.ParameterDirection.Input, False, CType(0, System.Byte), CType(0, System.Byte), "CompanyName", System.Data.DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ContactName", System.Data.OleDb.OleDbType.VarWChar, 30, System.Data.ParameterDirection.Input, False, CType(0, System.Byte), CType(0, System.Byte), "ContactName", System.Data.DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ContactName1", System.Data.OleDb.OleDbType.VarWChar, 30, System.Data.ParameterDirection.Input, False, CType(0, System.Byte), CType(0, System.Byte), "ContactName", System.Data.DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ContactTitle", System.Data.OleDb.OleDbType.VarWChar, 30, System.Data.ParameterDirection.Input, False, CType(0, System.Byte), CType(0, System.Byte), "ContactTitle", System.Data.DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ContactTitle1", System.Data.OleDb.OleDbType.VarWChar, 30, System.Data.ParameterDirection.Input, False, CType(0, System.Byte), CType(0, System.Byte), "ContactTitle", System.Data.DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Country", System.Data.OleDb.OleDbType.VarWChar, 15, System.Data.ParameterDirection.Input, False, CType(0, System.Byte), CType(0, System.Byte), "Country", System.Data.DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Country1", System.Data.OleDb.OleDbType.VarWChar, 15, System.Data.ParameterDirection.Input, False, CType(0, System.Byte), CType(0, System.Byte), "Country", System.Data.DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Fax", System.Data.OleDb.OleDbType.VarWChar, 24, System.Data.ParameterDirection.Input, False, CType(0, System.Byte), CType(0, System.Byte), "Fax", System.Data.DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Fax1", System.Data.OleDb.OleDbType.VarWChar, 24, System.Data.ParameterDirection.Input, False, CType(0, System.Byte), CType(0, System.Byte), "Fax", System.Data.DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Phone", System.Data.OleDb.OleDbType.VarWChar, 24, System.Data.ParameterDirection.Input, False, CType(0, System.Byte), CType(0, System.Byte), "Phone", System.Data.DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Phone1", System.Data.OleDb.OleDbType.VarWChar, 24, System.Data.ParameterDirection.Input, False, CType(0, System.Byte), CType(0, System.Byte), "Phone", System.Data.DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_PostalCode", System.Data.OleDb.OleDbType.VarWChar, 10, System.Data.ParameterDirection.Input, False, CType(0, System.Byte), CType(0, System.Byte), "PostalCode", System.Data.DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_PostalCode1", System.Data.OleDb.OleDbType.VarWChar, 10, System.Data.ParameterDirection.Input, False, CType(0, System.Byte), CType(0, System.Byte), "PostalCode", System.Data.DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Region", System.Data.OleDb.OleDbType.VarWChar, 15, System.Data.ParameterDirection.Input, False, CType(0, System.Byte), CType(0, System.Byte), "Region", System.Data.DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Region1", System.Data.OleDb.OleDbType.VarWChar, 15, System.Data.ParameterDirection.Input, False, CType(0, System.Byte), CType(0, System.Byte), "Region", System.Data.DataRowVersion.Original, Nothing))
            ' 
            ' dsNWind1
            ' 
            Me.dsNWind1.DataSetName = "dsNWind"
            Me.dsNWind1.Locale = New System.Globalization.CultureInfo("en-US")
            CType(Me.dsNWind1, System.ComponentModel.ISupportInitialize).EndInit()
        End Sub 'InitializeComponent 
#End Region


        Private Sub RadGrid1_NeedDataSource(ByVal [source] As Object, ByVal e As GridNeedDataSourceEventArgs)
            oleDbConnection1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + Server.MapPath("~/Grid/Data/Access/NWind.mdb")

            daCustomers.SelectCommand.Connection = oleDbConnection1
            daOrders.SelectCommand.Connection = oleDbConnection1
            daOrderDetails.SelectCommand.Connection = oleDbConnection1

            daCustomers.Fill(dsNWind1.Customers)

            RadGrid1.DataSource = dsNWind1
        End Sub


        Private Sub RadGrid1_DetailTableDataBind(ByVal [source] As Object, ByVal e As GridDetailTableDataBindEventArgs)
            Dim parentItem As GridDataItem = CType(e.DetailTableView.ParentItem, GridDataItem)
            If parentItem.Edit Then
                Return
            End If

            If e.DetailTableView.DataMember = "Orders" Then
                dsNWind1.Orders.Clear()
                daOrders.SelectCommand.CommandText = "Select * from Orders where CustomerID = '" + parentItem("CustomerID").Text + "'"
                daOrders.Fill(dsNWind1.Orders)
            ElseIf e.DetailTableView.DataMember = "OrderDetails" Then
                dsNWind1.OrderDetails.Clear()
                daOrderDetails.SelectCommand.CommandText = "Select * from [Order Details] where OrderID = " + parentItem("OrderID").Text
                daOrderDetails.Fill(dsNWind1.OrderDetails)
            End If
        End Sub


        Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        End Sub
    End Class
End Namespace