Catatan Pribadi

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

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