Visual Basic

juno101 wrote:

One can enable ‘Option Strict’ per *.vb file by adding “Option Strict On” on the
first line of the code.

juno101 wrote:

What I was trying to do is to be able to do same with Microsoft.VisualBasic.dll
library

juno101 wrote:

When I start Visual Studio 2008 the Microsoft.VisualBasic.dll library is
automatically referenced. I was hoping to be able to turn it off.

Quote:

To what end?? All this would do is rip out VB-specific functions and classes

SELECT @@IDENTITY

using(SqlConnection con = new SqlConnection("yourConnectionString"))
{
    con.Open();
    SqlTransaction trans = con.BeginTransaction();
    try
    {
    	SqlCommand cmdFandB = new SqlCommand("INSERT INTO F&B (breakfast, lunch, dinner) VALUES (@breakfast, @lunch, @dinner);SELECT @@IDENTITY;", con);
    	cmdFandB.Parameters.AddWithValue("@breakfast", txtBreakfast.Text);
    	cmdFandB.Parameters.AddWithValue("@lunch", txtLunch.Text);
    	cmdFandB.Parameters.AddWithValue("@dinner", txtDinner.Text);
    	cmdFandB.Transaction = trans;
    	int FandBID = (int)cmdFandB.ExecuteScalar();
    	SqlCommand cmdExpenses = new SqlCommand("expenses insert query here", con);
    	cmdExpenses.Parameters.AddWithValue("@foodandbeverageid", FandBID);
    	//add other parameters here from text boxes
        cmdExpenses.Transaction = trans;
    	cmdExpenses.ExecuteNonQuery();
    	trans.Commit();
    	MessageBox.Show("Success");
    }
    catch (SqlException sex)
    {
    	trans.Rollback();
    	MessageBox.Show("Failure" + sex.Message);
    }
}

Quote:

int FandBID = (int)cmdFandB.ExecuteScalar();

Quote:

SELECT @@IDENTITY

Dim FandBID As Integer = CInt(cmdFandB.ExecuteScalar())

garyu87 wrote:

cmd1.Parameters.AddWithValue("@FNBID", txtExpensesID.Text)

cmd1.Parameters.AddWithValue("@FNBID", Food_And_BeverageID)

ctrl.Dispose

For Each ctrl as Control in Me.Controls
Next

dim NumberOfControl as Integer = Me.Controls.Count

for Counter as integer = 0 to NumberOfControls step -1
 if typeof ctrl is picturebox then
  'do stuff
 end if
Next

Simon_Whale wrote:

for Counter as integer = 0 to NumberOfControls step -1

for Counter as integer = NumberOfControls to 0 step -1