i need to convert this code from c# to vb.net

[ethicalhacker]

private void ins_Click(object sender, EventArgs e)
{
SqlConnection con = new SqlConnection("Server=.; database=amit;user id=sa; password=.");
con.Open();
SqlCommand com = new SqlCommand("insert into log1 values('" + textBox1.Text + "','" + textBox2.Text + "','" + textBox3.Text + "','" + textBox4.Text + "')", con);
com.ExecuteNonQuery();

con.Close();
}
also if I want to increase the number of columns to be inserted upto textbox7 and use an sql function in the query i get a runtime error saying the string or binary was truncated
for example if I use
SqlCommand com = new SqlCommand("insert into log1 values('" + textBox1.Text + "','" + textBox2.Text + "','" + textBox3.Text + "','" + textBox4.Text + "','" + textBox5.Text + "','" + textBox6.Text + "','" + textBox7.Text + "'," + "getdate()" + ")", con);

So I want 7 fields to have data taken from the 7 textboxes and the 8th field as getdate() which will insert the current date and time in the 8th field.
The above query with 8 fields just doesnt work...

 

[ScottyB]

Hi,

Rather than manually recodeing this in VB.NET if I need to quickly covert from one to the other I use one of the online conversion tools

http://www.carlosag.net/Tools/CodeTranslator/Default.aspx

I hope this helps

Kind Regards

ScottyB

 

[Bonekrusher]

This is a free online tool


http://http://www.kamalpatel.net/ConvertCSharp2VB.aspx

 

[JohnH]

There's also one here: http://www.developerfusion.co.uk/utilities/

 

[ajeeshco]

For quick conversions i'm using this, http://www.tangiblesoftwaresolutions.com/Demo.htm.

 

[robertx]

I use Instant VB from Tangible Software Solutions and it offers this translation:

Private Sub ins_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim con As SqlConnection = New SqlConnection("Server=.; database=amit;user id=sa; password=.")
con.Open()
Dim com As SqlCommand = New SqlCommand("insert into log1 values('" & textBox1.Text & "','" & textBox2.Text & "','" & textBox3.Text & "','" & textBox4.Text & "')", con)
com.ExecuteNonQuery()

con.Close()
End Sub