Connection of VB.NET to SQL server

Question

I had a project running perfectly i.e. entering values in database linked by code. But in the other project I am implementing it shows values correctly submitted, gives no error while running but values are not entered in database.

Private Sub frmAddresume_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load cn.ConnectionString = "Data Source=ROHAN-PC\SQLEXPRESS;initial catalog=Libeasy;Integrated Security=true" DateTimePicker1.Value = DateTime.Now.ToShortDateString() End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click If (TextBox1.Text <> "" And TextBox2.Text <> "" And TextBox3.Text <> "") Then cn.Open() cmd.Connection = cn cmd.CommandText = "insert into StudResume values('" + TextBox1.Text + "','" + TextBox2.Text + "','" + DateTimePicker1.Value.ToShortDateString() + "'," + TextBox3.Text + ")" cmd.Dispose() cn.Close() MsgBox("Details saved Successfully", MsgBoxStyle.Information, "Done") TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" DateTimePicker1.Value = Now TextBox1.Focus() Else MsgBox("Please Enter Complete Details", MsgBoxStyle.Critical, "Error") End If End Sub

akhil kumar · Accepted Answer · 2015-02-12 05:52:11Z

You've missed the executenonquery(),so the query you have provided is niether executed.replace the below code and eeverything will be working.

cmd.Connection = cn cmd.CommandText = "insert into StudResume values('" + TextBox1.Text + "','" + TextBox2.Text + "','" + DateTimePicker1.Value.ToShortDateString() + "'," + TextBox3.Text + ")" cmd.ExecuteNonQuery() cmd.Dispose() cn.Close()

Ie Add cmd.ExecuteNonQuery() after providing the commandtext.

actually i have a working block of code of another project same like the above though that one was working
ohh anyway please check what will be the commandtext you are executing while you get n exception.

Osama Gadour · Accepted Answer · 2015-02-13 01:32:22Z

change your button3 code as the following, it will give u an error message in msgbox, post the error message here so may we can help,

 If (TextBox1.Text <> "" And TextBox2.Text <> "" And TextBox3.Text <> "") Then Try cn.Open() cmd.Connection = cn cmd.CommandText = "insert into StudResume values('" + TextBox1.Text + "','" + TextBox2.Text + "','" + DateTimePicker1.Value.ToShortDateString() + "'," + TextBox3.Text + ")" cmd.Dispose() cn.Close() MsgBox("Details saved Successfully", MsgBoxStyle.Information, "Done") TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" DateTimePicker1.Value = Now TextBox1.Focus() Catch ex As Exception MsgBox(ex.Message) Finally End Try Else MsgBox("Please Enter Complete Details", MsgBoxStyle.Critical, "Error") End If

I just found that may the problem is because of the (" + TextBox3.Text + ") if the value in texbox3 is string, so there should be the single quotation mark '"+TextBox3.text+"'

Abdul Ghaffar · Accepted Answer · 2017-02-01 11:11:51Z

Try this way cn =new SqlConnection("Data Source=ROHAN-PC\SQLEXPRESS;initial catalog=Libeasy;Integrated Security=true")

Collectives™ on Stack Overflow

Connection of VB.NET to SQL server

3 Answers 3

3 Comments

1 Comment

Comments

Hot Network Questions

Collectives™ on Stack Overflow

3 Answers 3

3 Comments

1 Comment

Comments

Related