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

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

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. selama...

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

Catatan Pribadi

Search This Blog