Dear, all
Mohon bantuan. saya sedang buat aplikasi. aplikasi ini akan meng-insert record baru jika sebelumnya tidak ada, dan akan mengupdate record jika sebelumnya sudah ada.
Berikut kodenya :
Try
OleDbConnection1.Open()
'set up an SQL select
Dim commands As String
commands = "SELECT * FROM tblLds WHERE fltno='" & "GA" & fltno & "' AND depsta='" & fromtomatch11.ToString & "' AND arrsta='" & fromtomatch3.ToString.Trim & "' AND datelds='" & depdate2 & "'"
OleDbDataAdapter1.SelectCommand.CommandText = commands
' do the select
OleDbDataAdapter1.SelectCommand.ExecuteNonQuery()
Dim j As Integer = OleDbDataAdapter1.SelectCommand.ExecuteNonQuery
If (j = 0) Then
'set up an SQL insert
Dim commandi As String
commandi = "INSERT INTO tblLds VALUES ('" & weightmatch.ToString.Trim & "','" & "GA" & fltno & "','" & ednomatch1.ToString & "','" & bacasign4 & "','" & signmatch5.ToString.Trim & "','" & fromtomatch11.ToString & "','" & fromtomatch3.ToString.Trim & "','" & "PK" & acmatch1.ToString & "','" & vermatch2.ToString & "','" & bacacock & "','" & bacacab1 & "','" & depdate2 & "')"
OleDbDataAdapter1.InsertCommand.CommandText = commandi
' do the insert
OleDbDataAdapter1.InsertCommand.ExecuteNonQuery()
Else
'set up an SQL update
Dim commandu As String
commandu = "UPDATE tblLds SET edno='" & ednomatch1.ToString & "' WHERE fltno='" & "GA" & fltno & "' AND depsta='" & fromtomatch11.ToString & "' AND arrsta='" & fromtomatch3.ToString.Trim & "' AND datelds='" & depdate2 & "'"
OleDbDataAdapter1.UpdateCommand.CommandText = commandu
' do the update
OleDbDataAdapter1.UpdateCommand.ExecuteNonQuery()
End If
Catch exceptionObject As Exception
MessageBox.Show(exceptionObject.Message)
Finally
OleDbConnection1.Close()
End Try
Untuk proses insert record baru sukses. tapi ketika untuk mengupdate record muncul error "object reference not set to an instance of an object" saat mengeksekusi "OleDbDataAdapter1.UpdateCommand.CommandText = commandu"
Mohon bantuan. Terimakasih :)
Ttd,
Ricoh Sanusi