Insert query выполняется правильно, но не отображается в базе данных.executenonquery возвращает 1.
всякий раз, когда он пытался выполнить его, но не может обновить базу данных.
Что я уже пробовал:
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
Try
Dim sqlconn As New OleDb.OleDbConnection
Dim sqlquery As New OleDb.OleDbCommand
Dim connString As String
connString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\PrMas.accdb"
sqlconn.ConnectionString = connString
sqlquery.Connection = sqlconn
sqlconn.Open()
sqlquery.CommandText = "INSERT INTO Project(ProjectName,Abstract,SemesterCreated,AuthorName) VALUES (@projectname,@abstract,@semestercreated,@authname)"
sqlquery.Parameters.AddWithValue("@projectname", txtProjectName.Text)
sqlquery.Parameters.AddWithValue("@abstract", txtAbstract.Text)
' cmd.Parameters.AddWithValue("@creationDate", Convert.ToDateTime(DPCreationDate.Value.ToString))
sqlquery.Parameters.AddWithValue("@semestercreated", CBSemCreated.Text)
'cmd.Parameters.AddWithValue("@addeddate", DateTime.Now)
sqlquery.Parameters.AddWithValue("@authname", txtAuthorName.Text)
Dim a As Integer
a = sqlquery.ExecuteNonQuery()
If a > 0 Then
MessageBox.Show("New User successfully added.")
Else
MessageBox.Show("Try Again")
End If
sqlconn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Richard MacCutchan
Как вы проверяете результаты?
RajkumarGnanaraj
я открыл базу данных там ничего не было
Richard MacCutchan
Вы уверены, что проверяете правильный файл? Я использовал тот же код, что и у вас выше, и он работает правильно.
Ashwin. Shetty
Можете ли вы проверить значение DataDirectory и проверить путь к файлу, который вы проверяете? Кроме того, проверьте, не перераспределяется ли файл данных при каждой сборке, и мне кажется, что код в порядке.
Maciej Los
Как уже упоминал Ричард, вы должны проверить путь к базе данных. Видеть: Где находится DataDirectory ?[^]
RajkumarGnanaraj
Да, каталог данных-это проблема...спасибо вам всем.