.:: Jasa Membuat Aplikasi Website,Desktop,Android Order Now..!! | | Order Now..!! Jasa Membuat Project Arduino,Robotic,Print 3D ::.

Cara baik dalam melakukan penginputan data pada vb.net dengan Access sebagai DB

0 komentar


بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم
bismillaahirrahmaanirrahiim

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Assalamu'alaikum warahmatullahi wabarakatuh

Jika para pembaca jeli dan teliti pada setiap artikel saya terlebih pada Step 1 yang melakukan pengolahan data dengan Access sebagai Database nya, pasti akan timbul pertanyaan pada saya atau mungkin diri sendiri, kenapa penulis artikel ini menggunakan fungsi Replace terlebih dahulu sebelum melakukan proses Insert dan Update seperti dibawah ini
myconnectionUsaha.AccessUsahaInsert(txtID.Text, Replace(txtNama.Text, "'", """"))
Fungsi Replace tersebut untuk mengantisipasi, jika user melakukan penginputan dengan memasukkan karakter � � � (tanda petik), jika tidak ada fungsi Replace maka akan muncul error message seperti dibawah.


Kenapa bisa muncul error seperti ini, kalau di ingat lagi pada Class AccessUsaha.vb, kita menggunakan Sintaks seperti dibawah ini.
Public Function AccessUsahaInsert(ByVal IDUsaha As String, ByVal NamaUsaha As String)

Dim myCmd As New OleDbCommand
Dim myconnection As New AccessData.DatabaseConnection
myCmd.CommandText = "Insert Into [TbUsaha]" _
& " (IDUsaha,NamaUsaha) Values (" _
& "'" & IDUsaha & "', '" & NamaUsaha & "') ;"
myCmd.Connection = myconnection.open
myCmd.ExecuteNonQuery()
myconnection.close()
End Function

Dan jika masukkan data dengan menggunakan (�), lalu kita trace maka sintaks SQL nya akan seperti ini
myCmd.CommandText "Insert Into [TbUsaha] (IDUsaha,NamaUsaha) Values ('U06', 'Makan Sia'ng') ;" String
tanda petik tersebut telah membuat sintaks SQL menjadi tidak sempurna dan menimbulkan error.
Oleh karena itu penulis melakukan pengubahan data sebelum program melakukan proses simpan. Tapi apakah setelah dengan melakukan Replace dari satu tanda petik (�) ke dua tanda petik (�) masalah sudah selesai, penulis rasa tidak. Karena data yang di inputkan user secara otomatis telah di ubah oleh program (berarti data tersebut sudah tidak valid lagi). Dan menurut penulis sintaks diatas tidak layak dipakai lagi dan sintaks yang benar adalah seperti dibawah ini :
Public Function AccessUsahaInsert(ByVal IDUsaha As String, ByVal NamaUsaha As String)

Dim myconnection As New AccessData.DatabaseConnection

Dim SqlString As String = "Insert Into [TbUsaha] " _
& " (IDUsaha,NamaUsaha) Values (" _
& " ?,?);"

Dim myCmd As New OleDbCommand(SqlString)

myCmd.Connection = myconnection.open
myCmd.CommandType = CommandType.Text

myCmd.Parameters.Add("IDUsaha", IDUsaha)
myCmd.Parameters.Add("NamaUsaha", NamaUsaha)

myCmd.ExecuteNonQuery()
myconnection.close()

End Function

Dan jika menggunakan Vb 2005 sintaks nya seperti dibawah ini.
Public Function AccessUsahaInsert(ByVal IDUsaha As String, ByVal NamaUsaha As String) As OleDbDataReader

Dim myconnection As New AccessData.DatabaseConnection

Dim SqlString As String = "Insert Into [TbUsaha] " _
& " (IDUsaha,NamaUsaha) Values (" _
& " ?,?);"

Dim myCmd As New OleDbCommand(SqlString)

myCmd.Connection = myconnection.open
myCmd.CommandType = CommandType.Text

myCmd.Parameters.AddWithValue("IDUsaha", IDUsaha)
myCmd.Parameters.AddWithValue("NamaUsaha", NamaUsaha)


Dim result As OleDbDataReader = myCmd.ExecuteReader(CommandBehavior.CloseConnection)
Return result
End Function

Semoga artikel ini bermanfaat dan membuat kita lebih baik dalam pemograman..

Wassalam


Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
NB :: Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code, membeli hardware elektronika untuk kepentingan Perusahaan maupun Tugas Akhir (TA/SKRIPSI), Insyaallah Saya siap membantu, untuk Respon Cepat dapat menghubungi kami, melalui :

No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com


atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :

ٱلْحَمْدُ لِلَّهِ رَبِّ ٱلْعَٰلَمِين
Alhamdulilah hirobil alamin

وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
wassalamualaikum warahmatullahi wabarakatuh


Artikel Cara baik dalam melakukan penginputan data pada vb.net dengan Access sebagai DB, Diterbitkan oleh scodeaplikasi pada Senin, 08 Desember 2008. Semoga artikel ini dapat menambah wawasan Anda. Website ini dipost dari beberapa sumber, bisa cek disini sumber, Sobat diperbolehkan mengcopy paste / menyebar luaskan artikel ini, karena segala yang dipost di public adalah milik public. Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code ,Dengan Cara menghubungi saya Ke Email: Fajarudinsidik@gmail.com, atau No Hp/WA : (fajar) : 085369237896, (puat) : 085267792168.

Tawk.to