Catatan Pribadi

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

Pada kesempatan ini saya ingin membuat fungsi penomoran otomatis dengan menggunakan kombinasi bulan dan tahun , sebelumnya saya juga pernah menulis fungsi dengan penomoran otomatis tapi tidak menggunakan kombinasi bulan dan tahun. Import system.data.sqlclien ‘ digunakan supaya perintah sqlcommand dikenali Public class pinjam () public function autonumber ()                  Dim sql As String         Dim xcmd As SqlCommand          Dim xread As SqlDataReader         Dim hasil As String         Dim n As String         n = "NPJ" & Date .Today.ToString( "yyMM" )   sql = "select top 1 no_pjm from pinjamHdr   where no_pjm like '%" & n & "%' order by no_pjm desc "  ...

Koneksi VB .Net Dengan Database Mysql Untuk yang ini anda harus install ODBC MySql terlebih dahulu yang selanjutnya pada Project Anda Add Refernce lalu pilih ODBC MySql Imports MySql.Data.MySqlClient Module Module_koneksi Dim connection As New MySqlClientConection( "server=LOCALHOST; uid=UID; pwd=PASSWORD; database=NAMADATABASE" ) 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

Koneksi VB .Net Dengan Database Microsoft Accses Simpan Database Accses anda ke Folder Bin/Debug/NAMADATABASE dalam Poject VB .Net Imports System.Data.OleDb Module Module_koneksi Dim connection As New OleDbConnection( "provider=Microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\NAMADATABASE.mdb" ) 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

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

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

Buka Vb.net 2008 Pilih  icon combobox yang ada di toolbox