datageneratorvb.aspx

掌握学习.net开发的非常好的资料

<%@ Page Language="VB" Debug="true"%>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.Common" %>
<%@ import Namespace="System.Data.SqlClient" %>
<%@ import Namespace="System.Globalization" %>

<script runat="server">

Sub Page_Init(Src As [Object], E As EventArgs)
   AddSampleData()
End Sub 'Page_Init
 
Sub AddSampleData()
   Dim result As Integer = 0
   Dim singleDate As DateTime = DateTime.Now
   Dim customers As String() =  {"David", "Moe", "Ali", "John", "Joe", "Kei", "Pearl", "Aida", "Ain", "Barbi", "Bard", "Bo", "David", "Moe", "Ali", "John", "Joe", "Kei", "Pearl", "Aida", "Ain", "Barbi", "Bard"}
   Dim conn As New SqlConnection("server=serverName;uid=user ID;pwd=password;database=db Name")
   conn.Open()
   Dim cmd As SqlCommand = conn.CreateCommand()
   Dim sqlStatement As StringBuilder
   Dim cfdb As New CultureInfo("en-US")
   
   Dim r As New Random()
   Dim r2 As New Random()
   Dim y As Integer
   Dim d As Integer
   For y = 2001 To 2002
      Dim m As Integer
      For m = 1 To 12
         Dim MaxDays As Integer = DateTime.DaysInMonth(y, m)
         For d = 1 To (MaxDays + 1) - 1
            Dim orderPerDay As Integer = r.Next(1, 23)
            
            Dim h As Integer
            For h = 1 To (orderPerDay + 1) - 1
               Dim q As Integer = r.Next(1, 23)
               Dim total As Double = CDbl(q) * 12.99
               Dim itemId As Integer = r2.Next(1, 4)
               singleDate = New DateTime(y, m, d, q, q, q)
               
               
               sqlStatement = New StringBuilder("INSERT INTO Orders VALUES('", 256)
               sqlStatement.Append(customers(h))
               sqlStatement.Append("', ")
               sqlStatement.Append(Convert.ToString(q))
               sqlStatement.Append(", ")
               sqlStatement.Append(total.ToString())
               sqlStatement.Append(", '")
               sqlStatement.Append(singleDate.ToString(cfdb))
               sqlStatement.Append("',")
               sqlStatement.Append(itemId.ToString())
               sqlStatement.Append(")")
               cmd.CommandText = sqlStatement.ToString()
               result = cmd.ExecuteNonQuery()
               If result <> 1 Then
                  Exit For
               End If
            Next h
            If result <> 1 Then
               Exit For
            End If
         Next d
         If result <> 1 Then
            Exit For
         End If
      Next m
   Next y 
   If result = 1 Then
      status.Text = "sample data successfully added to Orders table.<br>"
   Else
      status.Text = "sample generator failed.<br>"
   End If 
   
   
   'Add data to Financial table
   singleDate = New DateTime(2003, 6, 1)
   
   
   For d = 0 To 28
      singleDate = singleDate.AddDays(1)
      If singleDate.DayOfWeek = DayOfWeek.Saturday Or singleDate.DayOfWeek = DayOfWeek.Sunday Then
         GoTo ContinueFor1
      End If 
      Dim h As Integer
      For h = 0 To 4
         Dim stockPrice As Double = r.Next(5, 15) + r.NextDouble()
         singleDate = singleDate.AddHours(r.Next(0, 5))
         sqlStatement = New StringBuilder("INSERT INTO Financial VALUES(", 256)
         sqlStatement.Append(stockPrice.ToString("0.00"))
         sqlStatement.Append(", '")
         sqlStatement.Append(singleDate.ToString(cfdb))
         sqlStatement.Append("', ")
         sqlStatement.Append(r.Next(25, 1000))
         sqlStatement.Append(")")
         Console.WriteLine(("<br>sqlStatement=" + sqlStatement.ToString()))
         cmd.CommandText = sqlStatement.ToString()
         result = cmd.ExecuteNonQuery()
         If result <> 1 Then
            Exit For
         End If
      Next h
      If result <> 1 Then
         Exit For
      End If
   ContinueFor1:
   Next d
   If result = 1 Then
      status.Text += "sample data successfully added to Financial table.<br>"
   Else
      status.Text += "sample generator failed.<br>"
   End If 
   
   
   'Add data to ganttSample table
   cmd.CommandText = "INSERT INTO ganttSample VALUES('Research',0,6,'David',100,'" + New DateTime(2002, 1, 1).ToString(cfdb) + "','" + New DateTime(2002, 4, 30).ToString(cfdb) + "')"
   cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO ganttSample VALUES('Research',2,7,'Smith',100,'" + New DateTime(2002, 2, 1).ToString(cfdb) + "','" + New DateTime(2002, 3, 28).ToString(cfdb) + "')"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO ganttSample VALUES('Implementation',9,14,'Joe',50,'" + New DateTime(2002, 10, 1).ToString(cfdb) + "','" + New DateTime(2002, 5, 25).ToString(cfdb) + "')"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO ganttSample VALUES('Test',14,16,'Mary',0,'" + New DateTime(2002, 3, 1).ToString(cfdb) + "','" + New DateTime(2002, 7, 30).ToString(cfdb) + "')"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO ganttSample VALUES('Package',16,17,'Mary',0,'" + New DateTime(2002, 8, 1).ToString(cfdb) + "','" + New DateTime(2002, 8, 30).ToString(cfdb) + "')"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO ganttSample VALUES('Design',6,8,'David',100,'" + New DateTime(2002, 5, 1).ToString(cfdb) + "','" + New DateTime(2002, 8, 10).ToString(cfdb) + "')"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO ganttSample VALUES('Design',7,9,'Smith',100,'" + New DateTime(2002, 4, 1).ToString(cfdb) + "','" + New DateTime(2002, 10, 10).ToString(cfdb) + "')"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO ganttSample VALUES('Test',14,17,'Joe',0,'" + New DateTime(2002, 5, 26).ToString(cfdb) + "','" + New DateTime(2002, 6, 10).ToString(cfdb) + "')"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO ganttSample VALUES('Test',14,16,'David',0,'" + New DateTime(2002, 5, 1).ToString(cfdb) + "','" + New DateTime(2002, 7, 1).ToString(cfdb) + "')"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO ganttSample VALUES('Test',14,16,'Smith',0,'" + New DateTime(2002, 4, 1).ToString(cfdb) + "','" + New DateTime(2002, 7, 10).ToString(cfdb) + "')"
   result = cmd.ExecuteNonQuery()
   
   If result = 1 Then
      status.Text += "sample data successfully added to ganttSample table.<br>"
   Else
      status.Text += "sample generator failed.<br>"
   End If 
   
   'Add data to Employees table
   cmd.CommandText = "INSERT INTO Employees VALUES('Aida',45500,'Sales','[e-mail]','[phone]')"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO Employees VALUES('Ain',30500,'Sales','[e-mail]','[phone]')"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO Employees VALUES('John',31200,'Service','[e-mail]','[phone]')"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO Employees VALUES('David',41400,'Service','[e-mail]','[phone]')"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO Employees VALUES('Joe',26000,'Service','[e-mail]','[phone]')"
   result = cmd.ExecuteNonQuery()
   
   If result = 1 Then
      status.Text += "sample data successfully added to Employees table.<br>"
   Else
      status.Text += "sample generator failed.<br>"
   End If 
   
   'Add data to SampleData table
   cmd.CommandText = "INSERT INTO SampleData VALUES(1,2,1,'point 1')"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO SampleData VALUES(8,3,2,'point 2')"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO SampleData VALUES(6,7,3,'point 3')"
   result = cmd.ExecuteNonQuery()