Skip to main content

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

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