Skip to main content

membuat perintah ubah di vb.net

public function ubahdata () as integer
     dim sql as string
     dim xcmd as sqlcomand
     dim x as integer

     sql ="update siswa set nm_siswa=@nm_siswa,Jenkel=@jenkel,Alamat=@alamat where      nis=@nis"

     xcmd = new slqcomand (sql, con)

     with parameter
           .addwithvalue("nm_siswa", Fnm_siswa)
           .addwithvalue("jenkel",Fjenkel)
           .addwithvalue ("nis",Fnis)
     end with 
     x = xcmd.excutenonquery
     xcmd.dispose ()
     return x

end function


jangan lupa di class ini yang paling atas harus ditulis import system.data.sqlclient
karena jika tidak di tulis maka sqlcommand tidak kebaca maka error.

selamat mencoba

maaf jika ada kesalahan kata - kata karena penulis baru saja belajar membuat aplikasi ini.

Comments

Popular posts from this blog

cara menampilkan data di combobox di vb.net 2008

Buka Vb.net 2008 Pilih  icon combobox yang ada di toolbox
Sejarah de untuk menyatukan dua daratan di Kota Palembang ”Seberang Ulu dan Seberang Ilir” dengan jembatan, sebetulnya sudah ada sejak zaman Gemeente Palembang, tahun 1906. Saat jabatan Walikota Palembang dijabat Le Cocq de Ville, tahun 1924, ide ini kembali mencuat dan dilakukan banyak usaha untuk merealisasikannya. Namun, sampai masa jabatan Le Cocq berakhir, bahkan ketika Belanda hengkang dari Indonesia, proyek itu tidak pernah terealisasi. Pada masa kemerdekaan, gagasan itu kembali mencuat. DPRD Peralihan Kota Besar Palembang kembali mengusulkan pembangunan jembatan kala itu, disebut Jembatan Musi dengan merujuk na-ma Sungai Musi yang dilintasinya, pada sidang pleno yang berlangsung pada 29 Oktober 1956. Usulan ini sebetulnya tergolong nekat sebab anggaran yang ada di Kota Palembang yang akan dijadikan modal awal hanya sekitar Rp 30.000,00. Pada tahun 1957, dibentuk panitia pembangunan, yang terdiri atas Penguasa Perang Komando Daerah Militer IV/Sriwijaya, Harun...

Cara menyimpan data di vb.net 2008

public function simpan () as integer dim sql as string dim xcmd as sqlcommand dim x as integer sql = "insert into siswa (nis,nama) values (@nis,@nama) xcmd = new sqlcommand (sql,conn) with parameter     .addwithvalue ("nis",Fnis)     .addwithvalue ("nama",Fnama") end with  x  = xcmd.executenonquery return x end function