Wednesday, September 14, 2011

Fransiskus Sutris

ADODB Connection vb 6 ke SQL Server Database

Banyak cara untuk koneksi ke database sql server. Berikut ini adalah contoh koneksi database menggunakan ADODB.Connection serta contoh menampilkan isi tabel ke listbox. Pastikan anda telah membuat database dan tabel di dalamnya (SQL Service Manager harus dalam keadaan Start).

Ikuti langkah-langkah di bawah ini:
Tambahkan modul baru di project anda (pada menu project>>Add Module), dan masukkan listing di bawah ini di modul tersebut.
    'Jangan lupa tambahkan reference ini
    'Project>>References>>Microsoft ActiveX Data Objects 2.0 Library


    Public DBKoneksi As ADODB.Connection

    Public Sub BukaDatabase()
        Dim StrKoneksi As String
        Set DBKoneksi = New ADODB.Connection

        'pada Initial Catalog=TEST --> ganti TEST dengan nama     database anda
        StrKoneksi = "Provider=SQLOLEDB.1;Integrated Security=SSPI;" & _
                "Persist Security Info=False;Initial Catalog=TEST"
       
        If DBKoneksi.State = adStateOpen Then
           DBKoneksi.Close
           Set DBKoneksi = New ADODB.Connection
           DBKoneksi.Open StrKoneksi
       Else
           DBKoneksi.Open StrKoneksi
       End If
    End Sub

Tambahkan satu buah listbox di form1 dan masukkan listing di bawah ini di layar coding pada form1.

    Private Sub Form_Load()
        BukaDatabase
        Dim REC As ADODB.Recordset
        Set REC = New ADODB.Recordset
        If REC.State = 1 Then REC.Close
  
        'tabel_test ganti dengan nama tabel pada database anda
        REC.Open "tabel_test", DBKoneksi, adOpenDynamic, adLockOptimistic
  
        If Not REC.EOF Then REC.MoveFirst
        While Not REC.EOF
            List1.AddItem REC!nama 'nama adalah nama field dalam tabel
            REC.MoveNext
        Wend
    End Sub
 
Coba jalankan program, jika koneksi sukses akan daftar pada listbox sesuai dengan nama field yang ada dicoding (pada contoh ini field nama).

Anda bisa download Projectnya di sini 
Read More
Fransiskus Sutris

GET MONEY FROM ZIDDU

Did you ever think to get money from internet?

Ziddu is a free file hosting which can make money online with. Ziddu allow members earn money from their files. What you should do is only upload your files and share it with others, so any user can download them.

How to make money blogging with Ziddu?
For example, your blog is talking about how to prevent from virus attacks and you have upload your anti-virus software to ziddu, so that your visitors visit your blog to find this article. If they find good way like your article, they will download it. You will earn $0.001 for one file download.

If you only upload several file to Ziddu, you can’t earned lots of money. But if you have 1000 files in Ziddu, you will earn a lot. The more your files, the more you can earn.

So, please join with ziddu and upload your files, don't forget to share your files with others. click on picture below to signup in ziddu. or click SIGN UP HERE

Read More
Fransiskus Sutris

Send Mail With PHP

Email merupakan salah satu produk internet yang sudah banyak diakses oleh para pengguna internet. Dengan fasilitas email ini kita dapat berkomuniksai dengan orang lain di dunia maya. Untuk menggunakan fasilitas email ini tentunya kita harus punya akun email yang masih aktif. Kegiatan mengirim dan membuka email pertama-tama kita harus masuk/login dulu ke email kita, baru kita dapat melakukan kirim dan baca email.

PHP menyediakan script yang dapat kita gunakan untuk mengirimkan email melalui halaman yang kita buat sendiri menggunakan bahasa php. Untuk melakukan ini kita akan membuat 2 buah file php, yaitu form-email.php dan send-mail.php. Dimana form-mail.php berisi form pengisian email yang akan dikirim sedangkan send-mail.php berisi script untuk mengirimkan email ke tujuan.

Buat file form-email.php dan paste code berikut ini ke dalamnya..

<form name="form1" method="post" action="send-mail.php">
  <div align="center">
    <table width="347" border="0">
      <tr bgcolor="#99CCFF">
        <td colspan="2">SEND MAIL </td>
      </tr>
      <tr>
        <td width="95">From</td>
        <td width="242"><label>
          <input type="text" name="txtfrom">
        </label></td>
      </tr>
      <tr>
        <td>Email from </td>
        <td><input type="text" name="txtemailfrom"></td>
      </tr>
      <tr>
        <td>To</td>
        <td><input type="text" name="txtto"></td>
      </tr>
      <tr>
        <td>Email to </td>
        <td><input type="text" name="txtemailto"></td>
      </tr>
      <tr>
        <td>Subject</td>
        <td><input type="text" name="txtsubject"></td>
      </tr>
      <tr>
        <td>Message</td>
        <td><label>
          <textarea name="txtmessage"></textarea>
        </label></td>
      </tr>
      <tr>
        <td> </td>
        <td><input type="submit" value="Submit"> </td>
      </tr>
      </table>
  </div>
</form>

Kedua adalah buat file send-mail.php dan paste code berikut ini ke dalamnya..

<?php
    //send-mail.php
    if(isset($submit))
    {
        if (empty($txtemailto))
        {
            print("Email to cann't zero length...\n");
        }
        else
        {
            if (ereg("^.+@.+\\..+$",$txtemailto))
            {
                $header="From: $txtfrom <$txtemailfrom> \n";
                $header.="Reply-To: $txtemailto\n\n";
                $send=mail($txtemailto,$txtsubject,$txtmessage,$header);
                
                if($send)
                {
                    echo "Email to $txtemailto was succesful sent.";
                }
                else
                {
                    echo "Email to $txtemailto wasn't sent.";
                }
            }
            else
            {
                print ("Email address $txtemailto is not valid<br>\n");
            }
        }
    }
    else
    {
        echo "Acces denied";
    }
?>
                   

Simpan file diatas kemudian jalankan di browser dengan mengakses form-mail.php (komputer anda harus terhubung dengan internet).

Untuk mempermudah, anda bisa download lengkap file ini di sini
Read More
Fransiskus Sutris

Menggabungkan (join) part file (.001)

Jika anda pernah mendownload file dalam bentuk bagian-bagian (part) seperti contoh file1.001, file2.001 dan seterusnya. Sebelum anda dapat membuka file tersebut terlebih dulu harus di-join/digabung kembali menjadi satu file.

Untuk menggabungkan file tersebut dapat menggunakan software hjsplit2.4.exe. software ini dapat digunakan tanpa harus menginstall terlebih dahulu. File-file part harus berada dalam satu folder yang sama sebelum di-join kembali.

Untuk mendapatkan software ini silahkan download di sini

Laporan ke saya pada kolom komentar jika link download error.
Read More