چند سوال درباره SQL server داشتم.
1) در این کد چه ایرادی وجود داره؟
وقتی برای بار دوم این کد اجرا میشه، dsDataSet.HasErrors=true میشه. این کد رو از روی کتاب database انتشارات WROX نوشتم. در اون کد یه دستور Movelast() ( در محلی که * گذاشتم)وجود داشت که مشخص نبود مرجعش کجا ست.
Dim myRow As DataRow
myRow = dsDataSet.Tables(0).NewRow()
myRow("iduser") = intIDUser
myRow("date") = Date.Today.Date
myRow("action") = strMessage
dsDataSet.Tables(0).Rows.Add(myRow)
'**
Dim last As Integer = dsDataSet.Tables(0).Rows.Count
dsDataSet.Tables(0).GetChanges()
If dsDataSet.HasErrors Then
ErrorHandled()
Else
If Not (UpdateDataBase(strDataSourceConnection, dsDataSet, "logfile")) Then
MsgBox(" LogFile " & "خطا در به روزرسانی پایگاه داده", MsgBoxStyle.OKOnly)
End If
End If
2)در این تکه کد که برای Update شدن Databse اصلی هست، این خطا رو می گیره.( در دستور myDataAdapter.Update(dsChangedRows, strTable) این خطا رو میگیره)
دلیلش چی هست؟
Update requires a valid InsertCommand when passed DataRow collection with new rows
Public Function UpdateDataBase(ByVal strConnection As String, ByVal _
dsDataSet As DataSet, ByVal strTable As String) As Boolean
Dim dsDataSetChanges As DataSet
dsDataSetChanges = dsDataSet.GetChanges
If (Not (dsDataSetChanges) Is Nothing) Then
Try
UpdateDataSource(dsDataSetChanges, strTable)
dsDataSet.Merge(dsDataSetChanges)
dsDataSet.AcceptChanges()
Catch eUpdate As System.Exception
Return False
ErrorHandled()
End Try
End If
Return True
End Function
Public Sub UpdateDataSource(ByVal dsChangedRows As DataSet, ByVal strTable As String)
Dim myDataAdapter As New SqlClient.SqlDataAdapter
Try
'The data source only needs to be updated if there are changes pending.
If (Not (dsChangedRows) Is Nothing) Then
'Attempt to update the data source.
myDataAdapter.Update(dsChangedRows, strTable)
End If
Catch updateException As System.Exception
ErrorHandled()
End Try
End Sub
پاسخ با نقل قول
