Подключение сервера VB.NET к SQL

У меня был проект, отлично работающий, то есть ввод значений в базу данных, связанную кодом. Но в другом проекте, который я реализую, он показывает значения, правильно представленные, не дает ошибок во время работы, но значения не вводятся в базу данных.Подключение сервера VB.NET к SQL

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

источник

2015-02-12 Rohan Gosavi

Вы пропустили executenonquery(), поэтому запрос Предоставленный вами executed.replace НИ ниже код и eeverything будет работать.

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 Добавить cmd.ExecuteNonQuery() после предоставления командного текста.

источник

2015-02-12 05:52:11

он дает ошибку sqlException не удалось удалить –

проверить query.it может быть проблемой с параметрами запроса. –

На самом деле у меня есть рабочий блок кода другого проекта, такой же, как выше, хотя тот работал –

изменить ваш Button3 код в дальнейшем, он будет дать и сообщение об ошибке в MsgBox, отправьте сообщение об ошибке здесь, так что, возможно, мы можем помочь,

 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

источник

2015-02-13 01:32:22

Я только что обнаружил, что может возникнуть проблема из-за («+ TextBox3.Text +»), если значение в texbox3 является строкой, поэтому должен быть одинарный кавычек «+ TextBox3.text +» ' –

Попробуйте так КЧ = новый SqlConnection (» Источник данных = ROHAN-PC \ SQLEXPRESS; начальный каталог = Libeasy; Integrated Security = true ")

источник

2017-02-01 11:11:51 Baloch

Подключение сервера VB.NET к SQL

ответ

Смежные вопросы