stmikbg-dot-com

Kebanyakan programer yang basis sebelumnya vb 6.0 ketika beralih ke vb.net masih senang dengan recordset dalam memanipulasi data pada database, hal ini tidak salah karena kemudahan dan mungkin juga sudah sangat familiar dengan recordset. Saya sendiri yang baru-baru ini konsen kembali ke vb.net masih bingung dengan konsep dataset. Karena bingungnya saya terpaksa mengimport dan tetap mempertahankan ADODB di VB.NET, bagi rekan-rekan yang sama seperti saya untuk mengimport ADODB bisa mengikuti step berikut ini

• Import ADODB dengan jalan memasukkan kereference diproject.
• Untuk urusan code sama seperti VB 6.0, seperti yang ditampilkan dibawah ini

Dim cnn As New Connection()
Dim cm As New Command()
Dim rs As New Recordset()

Private Sub btnDataset_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnDataset.Click
        ' An ADO 2.6 connection and recordset are created to pull back
        ' data using a SELECT statement.  A data adapter and dataset are
        ' created.  The data Adapters fill method is used to populate
        ' the dataset with the data in the ADO 2.6 recordset.
        ' The dataset is then assigned to the data grid control.
        Dim strSQL As String = "SELECT CustomerID, " & _
                               "       CompanyName, " & _
                               "       ContactName, " & _
                               "       COuntry, " & _
                               "       Region, " & _
                               "       Phone, " & _
                               "       Fax " & _
                               "FROM Customers"
        rs = cnn.Execute(strSQL)
        ' Create Dataset and data adapter objects
        Dim ds As New DataSet("Recordset")
        Dim da As New OleDb.OleDbDataAdapter()
        ' Call data adapter's Fill method to fill data from ADO
        ' Recordset to ADO.NET dataset
        da.Fill(ds, rs, "Customers")
        ' Assign data set to grid control
        dgMain.DataSource = ds
        dgMain.DataMember = "Customers"
    End Sub

Ini pengalaman pribadi, kemarin sempat bingung untuk memanggil dan menampilkan sebuah form dari sebuah form pada MS-Visual Studio .NET 2003 ( VB.NET 2003) . Sederhana tapi susah. Ok langsung aja kita akan coba buat dua buah form, form_induk dan form_anak. Pada form_induk dalam event_load masukkan kode dibawah ini

 Dim Jendela = New Form_Anak
 Jendela.Show()

Tapi pada Visual Studio 2005 keatas ( VB.NET 2005 to 2008 ) anda cukup memasukkan kode berikut ini pada Form_Induk untuk memanggil Form_Anak.

Form_Anak.MdiParent = Me
Form_Anak.Show()

Sederhana bukan untuk memanggil form dari sebuah form, jadi ada sedikit perbedaan konsep pemerograman antara VB.NET 2003 Dan VB.NET 2005 keatas.

Gak mau banyak ngomong, ini postingan diwebnya erwin ( moonbluez.web.id ).

Register Globals adalah fitur pada konfigurasi php yang memungkinan anda menuliskan variabel code secara global, pada umumnya hosting-hosting mendisable fitur ini secara default. Jika anda memiliki masalah dengan konfigurasi php yang mengharuskan anda menggunakan penulisan kode php menggunakan mode register_globals=ON, maka berikut ada tips yang dapat anda manfaatkan untuk merubah code anda secara massive yang sebelumnya menggunakan aturan register_globals=ON dan merubahnya menjadi code yang dapat di gunakan pada saat fitur register global dalam mode off (register_globals=OFF).

Berikut script yang harus anda buat dengan nama file globals.php

<?php
/**
* Use 1 to emulate register_globals = on
* WARNING: SETTING TO 1 MAY BE REQUIRED FOR BACKWARD COMPATIBILITY
* OF SOME THIRD-PARTY COMPONENTS BUT IS NOT RECOMMENDED
*
* Use 0 to emulate regsiter_globals = off
* NOTE: THIS IS THE RECOMMENDED SETTING FOR YOUR SITE BUT YOU MAY
* EXPERIENCE PROBLEMS WITH SOME THIRD-PARTY COMPONENTS
*/

define( 'RG_EMULATION', 1 );
/**
* Adds an array to the GLOBALS array and checks that the GLOBALS variable is
* not being attacked
* @param array
* @param boolean True if the array is to be added to the GLOBALS
*/

function checkInputArray( &$array, $globalise=false ) {
static $banned = array( '_files', '_env', '_get', '_post', '_cookie', '_server', '_session', 'globals' );
foreach ($array as $key => $value) {
$intval = intval( $key );
// PHP GLOBALS injection bug
$failed = in_array( strtolower( $key ), $banned );
// PHP Zend_Hash_Del_Key_Or_Index bug
$failed |= is_numeric( $key );
if ($failed) {
die( 'Illegal variable ' . implode( ' or ', $banned ) . ' passed to script.' );
}
if ($globalise) {
$GLOBALS[$key] = $value;
}
}
}
/**
* Emulates register globals = off
*/
function unregisterGlobals () {
checkInputArray( $_FILES );
checkInputArray( $_ENV );
checkInputArray( $_GET );
checkInputArray( $_POST );
checkInputArray( $_COOKIE );
checkInputArray( $_SERVER );
if (isset( $_SESSION )) {
checkInputArray( $_SESSION );
}
$REQUEST = $_REQUEST;
$GET = $_GET;
$POST = $_POST;
$COOKIE = $_COOKIE;
if (isset ( $_SESSION )) {
$SESSION = $_SESSION;
}
$FILES = $_FILES;
$ENV = $_ENV;
$SERVER = $_SERVER;
foreach ($GLOBALS as $key => $value) {
if ( $key != 'GLOBALS' ) {
unset ( $GLOBALS [ $key ] );
}
}
$_REQUEST = $REQUEST;
$_GET = $GET;
$_POST = $POST;
$_COOKIE = $COOKIE;
if (isset ( $SESSION )) {
$_SESSION = $SESSION;
}
$_FILES = $FILES;
$_ENV = $ENV;
$_SERVER = $SERVER;
}
/**
* Emulates register globals = on
*/
function registerGlobals() {
checkInputArray( $_FILES, true );
checkInputArray( $_ENV, true );
checkInputArray( $_GET, true );
checkInputArray( $_POST, true );
checkInputArray( $_COOKIE, true );
checkInputArray( $_SERVER, true );
if (isset( $_SESSION )) {
checkInputArray( $_SESSION, true );
}
foreach ($_FILES as $key => $value){
$GLOBALS[$key] = $_FILES[$key]['tmp_name'];
foreach ($value as $ext => $value2){
$key2 = $key . '_' . $ext;
$GLOBALS[$key2] = $value2;
}
}
}
if (RG_EMULATION == 0) {
// force register_globals = off
unregisterGlobals();
} else if (ini_get('register_globals') == 0) {
// php.ini has register_globals = off and emulate = on
registerGlobals();
} else {
// php.ini has register_globals = on and emulate = on
// just check for spoofing
checkInputArray( $_FILES );
checkInputArray( $_ENV );
checkInputArray( $_GET );
checkInputArray( $_POST );
checkInputArray( $_COOKIE );
checkInputArray( $_SERVER );
if (isset( $_SESSION )) {
checkInputArray( $_SESSION );
}
}
?>

Lebih lengkapnya buka aja http://moonbluez.web.id

Entah mengapa, apa mungkin karena telat membayar sewa hosting, atau mungkin juga terlalu banyak masalah yang ditimbulkan aplikasi webnya yang penuh dengan backdoor, so pihak andalan.net sebagai penyedia jasa hosting mengambil keputusan untuk menutup/suspend account stmikbumigora.ac.id.

Pihak kampus berulang-ulang tercoreng mukanya diranah maya ini. Sejatinya, kampus yang bidangnya memang dikomputer sudah seharusnya punya server dan hosting yg kuat dan tidak mengalami kejadian seperti ini. Ironis banget ya bapak dosen, ibu dosen sayang!!!!! Cuap cuap udah cukup, sekarang ngomong bukti.. Ayuk Buktikan dong… Bapak-bapak dan ibu-ibu bisa!!!!

Bagi pengguna msde gratisan kadang merasa susah untuk melakukan query dan developtment karena keterbatasan tools, atas pemikiran tersebut saya coba memilah paket instalasi mssql dan membuat paket sendiri untuk sql analyzernya. Anda bisa download isqlw disini