INSERT INTO Applicants (Name, OrientationLocation, Program)
VALUES ('John Adams',
CASE
WHEN Zip IN ('33311', '33309') THEN 'Dillard High School'
WHEN Zip IN ('33005', '33004') THEN 'Hallandale High School'
WHEN Zip IN ('34111', '34112') THEN 'Pompano Beach High School'
ELSE NULL
END,
SomeProgram)
ASKER
DBCmd.Parameters.Add("@ReviewType", SqlDbType.VarChar).Value = ddlReviewType.Text
If txtReviewDate.Text.Length <> 0 Then
DBCmd.Parameters.Add("@ReviewDate", SqlDbType.VarChar).Value = DateTime.Parse(txtReviewDate.Text)
Else
DBCmd.Parameters.Add("@ReviewDate", SqlDbType.VarChar).Value = DBNull.Value
End If
INSERT INTO Applicants (ReviewType, ReviewDate) VALUES (@ReviewType, @ReviewDate)
ASKER
ASKER
INSERT INTO Applicants (Name, OrientationLocation, Program) VALUES (@Name, @OrientationLocation, @Program)
DBCmd.Parameters.Add("@Name", SqlDbType.VarChar).Value = txtName.Text
CASE
WHEN txtZip.Text IN ('33311', '33309') THEN
DBCmd.Parameters.Add("@OrientationLocation", SqlDbType.VarChar).Value = 'Dillard High School'
WHEN txtZip.Text IN ('33005', '33004') THEN
DBCmd.Parameters.Add("@OrientationLocation", SqlDbType.VarChar).Value = 'Hallandale High School'
WHEN txtZip.Text IN ('34111', '34112') THEN
DBCmd.Parameters.Add("@OrientationLocation", SqlDbType.VarChar).Value = 'Pompano Beach High School'
ELSE NULL END
DBCmd.Parameters.Add("@Program", SqlDbType.VarChar).Value = txtProgram.Text
create procedure iApplicant
@name varchar(100),
@zip varchar(10),
@program varchar(500)
as
declare @OL varchar(1000)
-- new table, 2 columns zipcode, orientationlocation
select @ol = orientationLocation from orientationLocations where zipcode = @zip
INSERT INTO Applicants (Name, OrientationLocation, Program) VALUES (@Name, @ol, @Program)
DBCmd.Parameters.Add("@Name", SqlDbType.VarChar).Value = txtName.Text
DBCmd.Parameters.Add("@zip", txtZip.Text)
DBCmd.Parameters.Add("@Program", SqlDbType.VarChar).Value = txtProgram.Text
dbCmd.ExecuteNonScalar()
ASKER
ASKER
ASKER
ASKER
ASKER
ASKER
ASKER
Visual Basic .NET (VB.NET) is an object-oriented programming language implemented on the .NET framework, but also supported on other platforms such as Mono and Silverlight. Microsoft launched VB.NET as the successor to the Visual Basic language. Though it is similar in syntax to Visual Basic pre-2002, it is not the same technology,
TRUSTED BY
ASKER