datageneratorvb.aspx

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

   cmd.CommandText = "INSERT INTO SampleData VALUES(2,8,0,'point 4')"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO SampleData VALUES(4,10,0,'point 5')"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO SampleData VALUES(7,11,0,'point 6')"
   result = cmd.ExecuteNonQuery()
   
   If result = 1 Then
      status.Text += "sample data successfully added to SampleData table.<br>"
   Else
      status.Text += "sample generator failed.<br>"
   End If 
   
   'Add data to Countries table
   cmd.CommandText = "INSERT INTO Countries VALUES('United States',290342554)"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO Countries VALUES('Canada',32207113)"
   result = cmd.ExecuteNonQuery()
   
   If result = 1 Then
      status.Text += "sample data successfully added to Countries table.<br>"
   Else
      status.Text += "sample generator failed.<br>"
   End If 
   
   'Add data to States table
   cmd.CommandText = "INSERT INTO States VALUES('California',33871648,1)"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO States VALUES('Texas',20851820,1)"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO States VALUES('New York',18976457,1)"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO States VALUES('Ontario',11410046,2)"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO States VALUES('Quebec',7237479,2)"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO States VALUES('British Columbia',3907738,2)"
   result = cmd.ExecuteNonQuery()
   
   If result = 1 Then
      status.Text += "sample data successfully added to States table.<br>"
   Else
      status.Text += "sample generator failed.<br>"
   End If 
   
   'Add data to Cities table
   cmd.CommandText = "INSERT INTO Cities VALUES('Los Angeles',3807400,1)"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO Cities VALUES('San Diego',2859900,1)"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO Cities VALUES('SanFrancisco',793600,1)"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO Cities VALUES('Sacramento',1279900,1)"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO Cities VALUES('Houston',2009834,2)"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO Cities VALUES('Austin',671873,2)"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO Cities VALUES('Dallas',1211467,2)"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO Cities VALUES('El Paso',577415,2)"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO Cities VALUES('New Yourk City',8084316,3)"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO Cities VALUES('Buffalo',287698,3)"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO Cities VALUES('Albany',93779,3)"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO Cities VALUES('Vancouver',1829854,6)"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO Cities VALUES('Montreal',3215665,5)"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO Cities VALUES('Quebec City',635184,5)"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO Cities VALUES('Toronto',4366508,4)"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO Cities VALUES('Ottawa',827854,4)"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO Cities VALUES('Victoria',288346,6)"
   result = cmd.ExecuteNonQuery()
   
   If result = 1 Then
      status.Text += "sample data successfully added to Cities table.<br>"
   Else
      status.Text += "sample generator failed.<br>"
   End If 
   'Add data to Versions table
   cmd.CommandText = "INSERT INTO Versions VALUES('1.0',1,'','" + New DateTime(2002, 11, 18).ToString(cfdb) + "')"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO Versions VALUES('1.1',2,'" + New DateTime(2002, 11, 18).ToString(cfdb) + "','" + New DateTime(2002, 12, 9).ToString(cfdb) + "')"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO Versions VALUES('1.2',3,'" + New DateTime(2002, 12, 9).ToString(cfdb) + "','" + New DateTime(2003, 1, 14).ToString(cfdb) + "')"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO Versions VALUES('1.3',4,'" + New DateTime(2003, 1, 14).ToString(cfdb) + "','" + New DateTime(2003, 2, 17).ToString(cfdb) + "')"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO Versions VALUES('1.4',5,'" + New DateTime(2003, 2, 17).ToString(cfdb) + "','" + New DateTime(2003, 3, 21).ToString(cfdb) + "')"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO Versions VALUES('2.0',6,'" + New DateTime(2003, 3, 21).ToString(cfdb) + "','" + New DateTime(2003, 8, 11).ToString(cfdb) + "')"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO Versions VALUES('2.1',7,'" + New DateTime(2003, 11, 8).ToString(cfdb) + "','" + New DateTime(2003, 9, 30).ToString(cfdb) + "')"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO Versions VALUES('2.2',8,'" + New DateTime(2003, 9, 30).ToString(cfdb) + "','" + New DateTime(2003, 10, 29).ToString(cfdb) + "')"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO Versions VALUES('2.3',9,'" + New DateTime(2003, 10, 29).ToString(cfdb) + "','" + New DateTime(2004, 1, 26).ToString(cfdb) + "')"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO Versions VALUES('2.4',10,'" + New DateTime(2004, 1, 26).ToString(cfdb) + "','" + New DateTime(2004, 4, 14).ToString(cfdb) + "')"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO Versions VALUES('2.5',11,'" + New DateTime(2004, 4, 14).ToString(cfdb) + "','" + New DateTime(2004, 6, 14).ToString(cfdb) + "')"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO Versions VALUES('3.0',12,'" + New DateTime(2004, 6, 14).ToString(cfdb) + "','" + New DateTime(2004, 11, 18).ToString(cfdb) + "')"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO Versions VALUES('3.1',13,'" + New DateTime(2004, 11, 18).ToString(cfdb) + "','" + New DateTime(2005, 3, 1).ToString(cfdb) + "')"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO Versions VALUES('3.2',14,'" + New DateTime(2005, 3, 1).ToString(cfdb) + "','" + New DateTime(2005, 4, 11).ToString(cfdb) + "')"
   result = cmd.ExecuteNonQuery()
   
   
   
   
   If result = 1 Then
      status.Text += "sample data successfully added to Versions table.<br>"
   Else
      status.Text += "sample generator failed.<br>"
   End If 
   'Add data to Eaten table
   cmd.CommandText = "INSERT INTO Eaten VALUES('" + New DateTime(2004, 11, 5).ToString(cfdb) + "',530,6,75,0,'David')"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO Eaten VALUES('" + New DateTime(2004, 11, 5).ToString(cfdb) + "',220 ,0 ,59,0,'Joe')"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO Eaten VALUES('" + New DateTime(2004, 11, 5).ToString(cfdb) + "',100 ,5 ,85,0,'Mark' )"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO Eaten VALUES('" + New DateTime(2004, 11, 6).ToString(cfdb) + "',300 ,20 ,90,0,'Jim' )"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO Eaten VALUES('" + New DateTime(2004, 11, 7).ToString(cfdb) + "',200 ,2 ,6, 0,'Henry')"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO Eaten VALUES('" + New DateTime(2004, 11, 7).ToString(cfdb) + "',500 ,5 ,5, 1,'Peter')"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO Eaten VALUES('" + New DateTime(2004, 11, 8).ToString(cfdb) + "',800 ,15 ,5,0,'Sam' )"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO Eaten VALUES('" + New DateTime(2004, 11, 9).ToString(cfdb) + "',600 ,8 ,5, 0,'Mary')"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO Eaten VALUES('" + New DateTime(2004, 11, 10).ToString(cfdb) + "',200 ,23 ,5, 0,'Smith')"
   result = cmd.ExecuteNonQuery()
   cmd.CommandText = "INSERT INTO Eaten VALUES('" + New DateTime(2004, 11, 11).ToString(cfdb) + "',900 ,23 ,25, 0,'Jone')"
   result = cmd.ExecuteNonQuery()
   
   
   If result = 1 Then
      status.Text += "sample data successfully added to Eaten table.<br>"
   Else
      status.Text += "sample generator failed.<br>"
   End If 
   
   conn.Close()
End Sub 'AddSampleData 


</script>
<html>
<head>
</head>
<body>
<asp:Label id="status" runat="server"/>
</body>
</html>