Mr Robert

Technical Support
Requirement:
•    Male
•    At least Diploma 3 majoring in Computer Engineering or related field of studies
•    Minimum 1 years’ experience working as technical support and trainer
•    Have good exposure to the telecommunication, Manufacturing, Retail & Distribution, Banking and Finance industries

Send your application + CV + copies of certificates to career@ebdesk.com Or send to Gedung Suara Merdeka Jl. Wahid Hasyim No. 2 Lt. 3 Jakarta Pusat 10340, with subject “eBdesk Technology Vacancy” and position code. Please note that only short-listed candidates will be notified.

Berikut langkah2nya:

1. Design dulu formnya, kira2 seperti ini:

Jangan lupa ubah name untuk textbox Username & Password dan button Login.
Dalam contoh, namenya diubah menjadi:
- txtUsername untuk textbox Username
- txtPassword untuk textbox Password
- cmdLogin untuk button login.

2. Tambah referrence ke Microsoft ActiveX Data Object -> ini diperlukan untuk akses database menggunakan ADODB.
Dalam Visual Basic, ke menu Project -> Referrences -> Check Microsoft ActiveX Data Object 2.8 Library (atau versi lainnya) -> OK.

3. Untuk memeriksa apakah referrence telah ditambahkan dengan benar atau belum, klik 2x pada form (akan mengarah ke window code). Kemudian, di bagian atas, deklarasikan recordset sebagai ADODB.RecordSet. Jika Referrence telah ditambahkan dengan benar, maka intellisense / auto completion VB akan menunjukkan ADODB seperti gambar di bawah ini:

4. Buat sebuah module untuk koneksi ke database.
Di window project explorer (sebelah kanan atas), klik kanan project, kemudian pilih add -> Module.

5. Sebelum masuk ke code untuk module, kita perlu membuat database Access terlebih dahulu, yang berisikan sebuah tabel bernama tabelUser dan memiliki 2 buah field di dalamnya, yaitu field Username & Password.

6. Buat connection string untuk koneksi ke database, salah satu cara yang paling mudah adalah dengan menggunakan udl.
Di windows explorer, buat file baru dengan extension .udl, kemudian pilih OK.

Klik 2x file .udl yang telah dibuat, Pilih tab Provider -> Pilih Microsoft Jet 4.0 OLE DB Provider -> Next

Pilih file Database Access yang telah dibuat sebelumnya -> OK

Tekan tombol Test Connection. Jika berhasil, akan muncul pesan berhasil -> OK -> OK lagi. Jika tidak, ulangi lagi langkah 6 di atas

Untuk melihat connection string yang telah dibuat dari file .udl tadi, buka file .udl dengan menggunakan notepad atau pembaca text sejenisnya. Connection string inilah yang akan digunakan di dalam module untuk langkah 7 di bawah.

7. Untuk code di module, gunakan code di bawah ini:

Option Explicit
Public conn As New ADODB.Connection

Public Sub Connect(flag As Boolean)
    Dim connectionString As String
    connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data.mdb;Persist Security Info=False" 'agar tidak statis, data source diubah sedikit dengan mengarahkan database ke folder yang sama tempat aplikasi dibuat, menggunakan app.path
    
On Error GoTo Handler
    If flag = True Then
        conn.Open connectionString
    Else
        conn.Close
    End If
    Exit Sub
Handler:
    MsgBox Err.Description, vbCritical, "Error"
End Sub

8. Berikut ini code untuk login form. Silakan diamati dan dipelajari

Option Explicit
Dim rs As ADODB.Recordset

Private Sub cmdLogin_Click()
    Dim sql As String
    sql = "select username from tabelUser where username = '" & Replace(txtUsername.Text, "'", "''") & "' and " & _
            "password = '" & Replace(txtPassword.Text, "'", "''") & "'"
    Set rs = New ADODB.Recordset
    Set rs = conn.Execute(sql)
    If Not rs.EOF Then
        'Username dan password ada
        MsgBox "Login sukses"
    Else
        'Username atau password salah
        MsgBox "Username atau Password Anda salah", vbCritical
        txtUsername.SetFocus
    End If
End Sub

Private Sub Form_Load()
    Connect (True)
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Connect (False)
End Sub

Private Sub txtPassword_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then 'kalau tekan Enter, maka login
        cmdLogin_Click
    End If
End Sub

Private Sub txtUsername_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then 'kalau tekan Enter, maka login
        cmdLogin_Click
    End If
End Sub

9. Jalankan / eksekusi program (tekan F5), berikut ini hasilnya:

Dalam contoh, login yang digunakan:
Username: StevenLuck
Password: hereisthepassword

Silakan mendownload contoh program di sini. Selamat mencoba

Untuk tips dan solusi dalam programming, kunjungi Programmer's Laboratory ^^

http://ideveloperindonesia.wordpress.com/

thanks

source

System.Web.Mail.MailMessage mail = new System.Web.Mail.MailMessage();
mail.To = "test@xxx.com";
mail.From = "me@xxx.com";
mail.CC = "";
mail.Subject = "email subject";
mail.Body = "email content";
mail.Attachments.Add(new System.Net.Mail.Attachment(@"D:\test.txt"));
System.Web.Mail.SmtpMail.SmtpServer = "localhost";
System.Web.Mail.SmtpMail.Send(mail); 

//copy file
System.IO.File.Copy(sourceFile, destFile, true);

//copy all file from one directory to other
if (System.IO.Directory.Exists(sourcePath))
{
    string[] files = System.IO.Directory.GetFiles(sourcePath);

    foreach (string sub in files)
    {
    fileName = System.IO.Path.GetFileName(s);
    destFile = System.IO.Path.Combine(targetPath, fileName);
    System.IO.File.Copy(sub, destFile, true);
    }
}

//move file to new location.
System.IO.File.Move(sourceFile, destinationFile);

//Move directory to other.
System.IO.Directory.Move(@"D:\aaa\", @"C:\bbb");

//delete file
System.IO.File.Delete(@"D:\folder\test.txt");

//delete directory
System.IO.Directory.Delete(@"D:\folderA");

//delete directory and all the file inside
System.IO.Directory.Delete(@"D:\folderA",true);

Query for single attach :
EXEC sp_attach_single_file_db <database_name> , <physical file of the database (mdf)>