cs.mfalac.com

this is for numeric (decimal) arguments.. use for bills.vb ...create an event handler for the ColumnChanging event that ensures that the UnitPrice, UnitsInStock, UnitsOnOrder, and ReorderLevel column values (if not NULL) are greater than or equal to zero. If any such column is out of range, throw an ArgumentException.

ProductsDataTable.ColumnChanging.vb

Public Class BlogCategorysDataTable

Imports System.data

Partial Public Class Northwind
    Partial Public Class ProductsDataTable
        Public Overrides Sub BeginInit()
            AddHandler Me.ColumnChanging, AddressOf ValidateColumn
        End Sub

        Sub ValidateColumn(ByVal sender As Object, ByVal e As DataColumnChangeEventArgs)
            If e.Column.Equals(Me.UnitPriceColumn) Then
                If Not Convert.IsDBNull(e.ProposedValue) AndAlso _
                    CType(e.ProposedValue, Decimal) < 0 Then
                    Throw New ArgumentException( _
                        "UnitPrice cannot be less than zero", "UnitPrice")
                End If
            ElseIf e.Column.Equals(Me.UnitsInStockColumn) OrElse _
                e.Column.Equals(Me.UnitsOnOrderColumn) OrElse _
                e.Column.Equals(Me.ReorderLevelColumn) Then
                If Not Convert.IsDBNull(e.ProposedValue) AndAlso _
                    CType(e.ProposedValue, Short) < 0 Then
                    Throw New ArgumentException(String.Format( _
                        "{0} cannot be less than zero", e.Column.ColumnName), _
                        e.Column.ColumnName)
                End If
            End If
        End Sub
    End Class
End Class

article about

get all  products

Imports NorthwindTableAdapters

   Partial Class AllProducts
       Inherits System.Web.UI.Page

       Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
           Handles Me.Load

           Dim productsAdapter As New ProductsTableAdapter
           GridView1.DataSource = productsAdapter.GetProducts()
           GridView1.DataBind()
       End Sub
   End Class

Get Products By CategoryID

           Dim productsAdapter As New ProductsTableAdapter
       GridView1.DataSource =
           productsAdapter.GetProductsByCategoryID(1)
           GridView1.DataBind()

SELECT     ProductID, ProductName, SupplierID, CategoryID,
QuantityPerUnit, UnitPrice, UnitsInStock, UnitsOnOrder, ReorderLevel, Discontinued,
(SELECT CategoryName FROM Categories
WHERE Categories.CategoryID = Products.CategoryID) as CategoryName,
(SELECT CompanyName FROM Suppliers
WHERE Suppliers.SupplierID = Products.SupplierID) as SupplierName
FROM         Products

article about

you do need a insert method, On the next screen the InsertCommand's CommandText appears. Augment this query by adding SELECT SCOPE_IDENTITY() at the end of the query, which will return the last identity value inserted into an IDENTITY column in the same scope. (See the technical documentation for more information about SCOPE_IDENTITY() and why you probably want to use SCOPE_IDENTITY() in lieu of @@IDENTITY.) Make sure that you end the INSERT statement with a semi-colon before adding the SELECT statement.

Dim productsAdapter As New NorthwindTableAdapters.ProductsTableAdapter()

Dim new_productID As Integer = Convert.ToInt32(productsAdapter.InsertProduct( _
    "New Product", 1, 1, "12 tins per carton", 14.95, 10, 0, 10, False))

productsAdapter.Delete(new_productID)

Sub Page_Load(sender as Object, e as EventArgs)
  BindData()
End Sub   
Sub BindData()
  '1. Create a connection
  Dim myConnection as New SqlConnection(
        ConfigurationSettings.AppSettings("connectionString"))

  '2. Create the command object, passing in the SQL string
  Const strSQL as String = "sp_Popularity"
  Dim myCommand as New SqlCommand(strSQL, myConnection)

  'Set the datagrid's datasource to the datareader and databind
  myConnection.Open()
  dgPopularFAQs.DataSource = myCommand.ExecuteReader(
                            CommandBehavior.CloseConnection)
  dgPopularFAQs.DataBind()   
End Sub

Imports NorthwindTableAdapters

Partial Class AllProducts
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
        Handles Me.Load

        Dim productsAdapter As New ProductsTableAdapter
        GridView1.DataSource = productsAdapter.GetProducts()
        GridView1.DataBind()
    End Sub
End Class

Dim productsAdapter As New NorthwindTableAdapters.ProductsTableAdapter()

       productsAdapter.Delete(3)

       productsAdapter.Update( _
           "Chai", 1, 1, "10 boxes x 20 bags", 18.0, 39, 15, 10, False, 1)

       productsAdapter.Insert( _
           "New Product", 1, 1, "12 tins per carton", 14.95, 15, 0, 10, False)

Dim productsAdapter As New NorthwindTableAdapters.ProductsTableAdapter()

Dim new_productID As Integer = Convert.ToInt32(productsAdapter.InsertProduct( _
    "New Product", 1, 1, "12 tins per carton", 14.95, 10, 0, 10, False))

This Nothing value is then passed down into the DAL's GetSupplierByCountry(country) method, where it's translated to a database NULL value for the @Country parameter in the following query:

Public Function GetSuppliersByCountry(country As String) _
    As Northwind.SuppliersDataTable
    If String.IsNullOrEmpty(country) Then
        Return GetSuppliers()
    Else
        Return Adapter.GetSuppliersByCountry(country)
    End If
End Function

return uniqe row

SELECT DISTINCT [ArticleId], [ArticleTitle] FROM [BlogArticles]

sql data getting avg and count data

SELECT        ArticleId, AVG(CONVERT(decimal(4, 2), RateNumber)) AS AvgRating, SUM(RateNumber) AS ExprSumRateNumber, COUNT(ArticleId) AS CountArticleId
FROM            BlogRating
WHERE        (ArticleId = @ArticleId)
GROUP BY ArticleId

displaying in item temp…

<ItemTemplate> <li> <a href='posts/<%# DataBinder.Eval(Container.DataItem, "ContentID") %>.aspx'> <%# DataBinder.Eval(Container.DataItem, "Title") %> </a> (<%# DataBinder.Eval(Container.DataItem, "AvgRating", "{0:0.00}")%> | <%# DataBinder.Eval(Container.DataItem, "TotalCount")%>)</li> </ItemTemplate>

counting rows

Dim dv As DataView
       Dim value As Integer
       dv = CType(SqlDataSourceRatingCount.Select(DataSourceSelectArguments.Empty), DataView)
       value = dv.Count
       LabelTest.Text = value

' Clear the current text.
       Message.Text = ""

       ' Iterate through the SelectedDates collection and display the
       ' dates selected in the Calendar control.
       Dim day As DateTime

       For Each day In Calendar1.SelectedDates

           Message.Text &= day.Date.ToShortDateString() & "<br>"

       Next

For Each ArticleRow As DataSetCalendarEvents.BlogArticlesRow In ArticleDayNumber
    If e.Day.Date.Date = ArticleRow.ArticleDate.Date Then
        Dim T As String = ArticleRow.ArticleTitle.ToString()
        Dim Id As String = ArticleRow.ArticleId.ToString()

        e.Cell.Controls.Add(New LiteralControl("<br/>-<a href='../Blog/BlogView.aspx?ArticleId=" + Id + "'>" + T + "</a>"))

Sub MonthChange(sender As Object, e As MonthChangedEventArgs)

         If e.NewDate.Month > e.PreviousDate.Month Then

            Message.Text = "You moved forward one month."

         Else

            Message.Text = "You moved backwards one month."

         End If

      End Sub

    End If
Next