Catatan Pribadi

Disini saya ingin mendokumentasikan, cara membuat penomoran otomatis di php mysql dengan kombinasi Huruf , angka , tanggal , dan tahun. sebagai contoh sebagai berikut: Nomor  yang dilingkarin dibawah ini (PO202201002) NB : - PO adalah huruf depan             - 2022 adalah Tahun ini.           - 01 adalah tanggal hari ini.           - 002 adalah nomor urut, jika data 002 sudah disimpan maka dengan otomatis berubah menjadi                    003, begitu selanjutnya. di bawah ini contoh kodingannya : <?php                 //TIMEZONE date_default_timezone_set("Asia/Jakarta"); $date= date("Y-m-d"); // NOMOR URUT ORDER $query =mysqli_query($GLOBALS["___mysqli_ston"], "SELECT max(no_beli) as maxKode FROM tbl_buy"); $data = mysqli_fetch_array($query); $noOrder = $data['maxKode']; $noUr...

Urutan dan cara membuat kabel lan  1. Straight      kabel lan dan susunan seperti ini biasanya digunakan untuk menghungkan device yang berbeda.     ada 2 ujung kabel - ujung pertama dengan urutan warna : Putih Orenge , Orange, Putih Hijau , Hijau , Putih Biru ,Biru , Putih coklat, coklat. - ujung satunya dengan urutan yang sama. 2.Cross     Kabel dengan susunan seperti ini biasanya digunakan untuk menghubungkan device yang sama. contoh : komputer dengan komputer.      ada 2 ujung kabel  - ujung pertama dengan urutan warna : Putih Orenge , Orange, Putih Hijau , Hijau , Putih Biru ,Biru , Putih coklat, coklat.    - ujung kedua : Putih Hijau , Hijau , Putih Orange , Orange , Putih Biru , Biru , Putih Coklat , Coklat. Semoga bermanfaat.

Selamat siang, teman - teman?  disini saya ingin share pengalaman saya, ketika saya bekerja di suatu Perusahan Distributor peralatan rumah tangga dan kebetuan saya dikasih kepercayaan sebagai IT Staff  . Begiani ceritanya. Pada waktu itu saya  kebetualan diutus oleh atasan saya untuk kunjungan ke kantor cabang untuk mengecek software dan hardware dikarenakan Perusahan tempat saya bekerja disetiap cabang tidak ada IT nya.  saya berangkat dari jam 10 pagi dan sampai ke cabang jam 1 siang disitu kita becanda, akan tetapi sekitar jam 4 sore saya di minta untuk install server , sebelum saya install saya tanya dulu sama kariawan kantor? pak ...?  ada datannya sudah di backup ?   jawabnnya : sudah pak ! yakin ini pak? langsung di  format saja pak? jawabnya? iya pak format saja! ok.     Dengan tidak ragu-ragu lagi saya langsung format hardisknya dan install driver dan sofrware yang dibutuhkanya.     Tiba - tiba karyawan kantor, memang...

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

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

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

Imports System.Data.SqlClient ---------------------------------------------------------------------------------------------------------- Module modulkoneksi     Public mycn As New SqlConnection ----------------------------------------------------------------------------------------------------------     Sub bukaconn()         mycn.ConnectionString = "data source=.\sqlexpress;initial catalog=dbpejualan; integrated security=SSPI"         If mycn.State = ConnectionState.Closed Then             Try                 mycn.Open()             Catch ex As Exception                 MsgBox(ex.Message)      ...

Public Function autonumber()         Dim query As String         Dim xmyread As SqlDataReader         Dim xmycmd As SqlCommand         Dim nilaiawal, nilaiauto, nilaiakhir As String

Sejarah de untuk menyatukan dua daratan di Kota Palembang ”Seberang Ulu dan Seberang Ilir” dengan jembatan, sebetulnya sudah ada sejak zaman Gemeente Palembang, tahun 1906. Saat jabatan Walikota Palembang dijabat Le Cocq de Ville, tahun 1924, ide ini kembali mencuat dan dilakukan banyak usaha untuk merealisasikannya. Namun, sampai masa jabatan Le Cocq berakhir, bahkan ketika Belanda hengkang dari Indonesia, proyek itu tidak pernah terealisasi. Pada masa kemerdekaan, gagasan itu kembali mencuat. DPRD Peralihan Kota Besar Palembang kembali mengusulkan pembangunan jembatan kala itu, disebut Jembatan Musi dengan merujuk na-ma Sungai Musi yang dilintasinya, pada sidang pleno yang berlangsung pada 29 Oktober 1956. Usulan ini sebetulnya tergolong nekat sebab anggaran yang ada di Kota Palembang yang akan dijadikan modal awal hanya sekitar Rp 30.000,00. Pada tahun 1957, dibentuk panitia pembangunan, yang terdiri atas Penguasa Perang Komando Daerah Militer IV/Sriwijaya, Harun...

Jembatan Ampera Jembatan ini dibangun diatas sungai Musi dengan panjang 1.177 meter, lebar 22 meter dan tinggi diatas permukaan air 11, 50 meter, dengan dana pampasan perang dari Pemerintah Jepang atas perintah Soekarno pada bulan April 1962 dan diresmikan Mei 1965. Orang menyebutnya Jembatan AMPERA karena pemakaiannya secara resmi dilakukan pada saat masa menegakkan Orde Baru yang sebelumnya bernama Jembatan "Musi". Jembatan AMPERA berarti jembatan Amanat Penderitaan Rakyat. Bagian tengan jembatan ini dulu dapat diangkat dan dilalui kapal yang tingginya maksimum 44,50 meter , sedangkan bila tidak diangkat hanya 9 meter, namun pada saat ini mobilitas penduduk semakin tinggi dan jumlah kendaraan bertambah banyak serta dasar lain yang bersifat teknis maka pada tahun 1977 jembatan tersebut tidak dapat lagi dinaikkan bagian tengahnya. Pada tahun 2004 jembatan ini direnovasi.

Ampera Bridge Ampera Bridge is a Vertical-lift bridge in the city of Palembang, South Sumatra, Indonesia, which is the landmark of the city. It connects Seberang Ulu and Seberang Ilir, two regions of Palembang. It can no longer be opened to allow ships to pass. Wikipedia Clearance below : 30' (9.00 m) Location : Palembang Address : Jalan Sultan Mahmud Badarudin, Indonesia Body of water : Musi River