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