Fungsi dibawah ini berhasil bila saya melakukan penambahan 1 record saja.
Bila saya lakukan penambahan 2 record, maka record 1 (pertama) akan berhasil disimpan, sementara record ke 2 (kedua) terjadi error.
Berikut adalah Coding-nya:
Private Sub fSaveDetails()
Dim strSQLUpdate As String = "INSERT INTO InvoiceARDetails" & _
"(InvoiceNo, MainProductID) " & _
"VALUES(@InvoiceNo, @MainProductID)"
Dim cmInsert As SqlCommand
Dim prmSQLInsert As SqlParameter
cmInsert = New SqlCommand(strSQLUpdate, cnWIS)
myDA.InsertCommand = cmInsert
cmInsert.Parameters.Add("@InvoiceNo", SqlDbType.Char, 7, "InvoiceNo")
cmInsert.Parameters.Add("@MainProductID", SqlDbType.Char, 6, MainProductID")
If myDS.HasChanges Then
dsChanges = myDS.GetChanges()
If dsChanges.HasErrors() Then
MessageBox.Show("Ada Error nich!")
myDS.RejectChanges()
Else
myDS.AcceptChanges()
myDA.Update(dsChanges, strTableName)
End If
End If -à error terjadi pd posisi ini, stlh myDA.Update(..) di eksekusi
End Sub
Berikut adalah pesan Error-nya:
An unhandled exception of type 'System.Data.SqlClient.SqlException' occurred in system.data.dll
Additional information: System error.
Muliadi Liem
> -----Original Message-----
> From: [email protected] [mailto:Programmer-
> [EMAIL PROTECTED] On Behalf Of Setiawan
>
> Pertanyaan ini luas sekali, bisa di spesifik?
>
> Untuk melakukan Update Dataset, anda harus pastikan anda mensupply command
> insert, update dan delete melalui DataAdapter.
>
> Kalau boleh tau apa yach error messagenya.
>
> ________________________________
>
> From: [email protected] [mailto:Programmer-
> [EMAIL PROTECTED] On Behalf Of Muliadi Liem
>
> Bagaimana caranya melakukan Update dari Dataset ke Data Source.
>
> Kalo lihat di MSDN, katanya pake:
>
> Dataadapter.Update(dataset)
>
> Kalo utk 1 recod saja memang bisa. Tetapi bagaimana kalo seandainya saya
> melakukan penambahan beberapa Records (atau Delete dan Edit) pada Dataset
> tersebut?? Karena bila saya gunakan syntax:
>
> If myDS.HasChanges Then
>
> dsChanges = dsDistricts.GetChanges()
>
> myDS.AcceptChanges()
>
> myDA.Update(dsChanges)
>
> endif
>
> Hasilnya: Jalan utk perubahan 1 record, tetapi Error utk lebih dari 1 record.
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
YAHOO! GROUPS LINKS
- Visit your group "Programmer-VB" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
