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

Post a Comment

Popular posts from this blog

CARA MEMANGGIL STORED PROCEDURE DI VB.NET 2008

Salam damai sejahtera bagi kita semua, disini saya akan membagi totorial tentang bagaiman  cara memanggil stored procedure ke VB. Net. mungkin ada yang sudah mahir dalam hal ini, tapi tidak ada salahnya saya akan membagi ini buat teman-teman yang baru belajar seperti saya. oke langsung saja ......................................................................................................................................................... disini saya buat contoh stored procedurnya dengan nama  SP_simpansiswa ......................................................................................................................................................... CREATE PROCEDURE simpansiswa  @nis varchar (5), @nama varchar (10) AS BEGIN  insert into tblsiswa values(@nis,@nama) END GO ----------------------------------------------------------------------------------------------------------------- sekarang kita masuk ke VB.net 2008 pertama-tama kita bua...
1 comment
Read more

Koneksi VB .Net Menggunakan Menggunakan ODBC

Imports System.Data.ODbC Module Module_koneksi Dim connection As New OdbcConnection( "DSN= NAMADSN ;" ) Private Sub connection_open() Try If connection.State <> ConnectionState.Closed Then connection.Close() connection.Open() Catch ex As Exception End Try End Sub Private Sub connection_close() Try If connection.State <> ConnectionState.Open Then connection.Open() connection.Close() Catch ex As Exception End Try End Sub End Module
Post a Comment
Read more

cara membuat hapus data di vb.net 2008

public function hapus data () as integer '--------------------------------------------- 'class untuk menghapus data '--------------------------------------------- dim sql as string dim xcmd as sqlcomand dim x sql ="delete from siswa where nis=@nis" xcmd = new sqlcommand (sql ,con) xcmd.paramater.addwithvalue("nis", Fnis) x = xcmd.executenonquery xcmd.dispose () return x end function
Post a Comment
Read more