Selamat datang di Ari Winard blog

Berbagi ilmu akan menambah ilmu, karena air yang dialirkan maka aliran air akan deras

Di lokasi project

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.

This is default featured slide 3 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.

This is default featured slide 4 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.

This is default featured slide 5 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.This theme is Bloggerized by Lasantha Bandara - Premiumbloggertemplates.com.

Friday, September 28, 2012

Step by step membuat layout header dengan TAG DIV dan CSS

10:13 PM    1 comment

Bagi para pemula dalam bidang website, biasanya akan membuat layout website dengan menggunakan TAG TABLE , karena pembuatan layout website dengan TAG TABLE sangat mudah di lakukan terutama dengan bantuan software seperti Macromedia Dreamweaver. Akan tetapi metode design dengan menggunakan table saat ini sudah di tinggalkan dan mengarah pada penggunaan TAG DIV dan tentunya dengan CSS.
Jika kita hendak membuat layout bagian header sebuah halaman website, berikut langkah - langkah praktis yang bisa penulis sajikan untuk anda.

1. Buat bagian html dan simpan dengan nama layout.html
    
<html>
    <head>
        <title>membuat layout header</title>
    </head>
    <body>
        <div id="header">
         
        </div>
    </body>
</html>

2. Membuat script CSS untuk mengatur TAG DIV

#header{
    font:normal 12px Tahoma,Verdana; /* Setting umum font pada bagian header */
    width:900px; /* Digunakan untuk mengatur lebar header */
    height:400px; /* Digunakan untuk mengatur tinggi header */
    margin-left:auto; /* Digunakan untuk mengatur jarak header dengan tepian layar secara otomatis */
    margin-right:auto; /* Sehingga tampilan header website akan berada tepat di tengah-tengah layar monitor */
    background-color:#ff9900; /*Menambahkan background warna pada header */
}

Setelah membuat script CSS tersebut, simpanlah dengan nama style.css , kemudian linkkan dengan script html yang telah kita buat di atas dengan perintah berikut

<link rel="stylesheet" href="style.css" type="text/css" />

Script diatas biasanya kita tempatkan diantara <head> dan </head>, supaya bisa di load terlebih dahulu pada saat halaman web dibuka.
Jika semua sudah di jalankan dengan benar, cobalah jalankan layout.html dengan cara double klik, maka kita akan melihat posisi layout bagian header berada tepat ditengah layar
Cara diatas bisa diterapkan juga untuk membuat layout bagian tengah website,selamat mecoba dan semoga tulisan ini bermanfaat buat pembaca sekalian.

Read More

Friday, May 18, 2012

Membuat koneksi ke SQL Server 2000-2008 VB 6

12:18 AM    1 comment

Pada dasarnya setiap perintah untuk memanipulasi database baik tampil, tambah atau update pasti membutuhkan operasi koneksi, maka dari itu agar tidak perlu buat script koneksi secara berulang maka script koneksi perlu dibuat di dalam file module. Dan jika diperlukan tinggal panggil pake perintah "Call <nama prosedur>"
Pertama
Buka project baru, pilih yang Enterprise.
Klik Menu Project, klik Add Module, klik OK
Masukkan kode berikut di modul tersebut, kemudian Simpan,..
---
Option Explicit
Public oConn As ADODB.Connection
Public recset As ADODB.Recordset

Public Sub opendb()
  Set oConn = New ADODB.Connection
  Set recset = New ADODB.Recordset
  oConn.CursorLocation = adUseClient
  oConn.Open "Provider=SQLOLEDB.1;Password=b217an;User ID=sa;Initial Catalog=SISTEMHRD;Data     Source=local"
End Sub
---

Kedua
Tinggal panggil prosedur tsb di form dengan perintah Call, contoh jika diletakkan pada saat form dipanggil/load:
Private Sub Form1_Load()
 Call opendb
 Set recset = New ADODB.recordset

 recset.Open ("select * from data_pegawai"), oConn
 DataGrid1.Data Source = recset

 '----agar hemat resource dan memori maka diclose lagi
 recset.Close
 Set recset = Nothing
 oConn.Close
End Sub



Read More

Menampilkan Database ke Listview VB 6

12:13 AM    No comments


Dim CONN As New ADODB.Connection
Dim RS As New ADODB.Recordset
Private Sub Command1_Click()
Dim i As Integer
Dim Daftar As ListItem
Set RS = CONN.Execute(”Select*From Categories”)
‘Membuat kolom
ListView1.ListItems.Clear
ListView1.ColumnHeaders.Add , , “ID Category”
ListView1.ColumnHeaders.Add , , “Category Name”
ListView1.ColumnHeaders.Add , , “Description”
ListView1.ColumnHeaders.Add , , “Picture”
ListView1.ColumnHeaders.Item(3).Width = “3000″

i = 0
For k = 1 To 8
i = i + 1
‘menampilkan field pada colom 1
Set Daftar = ListView1.ListItems.Add(k, , RS!CategoryID, , Rnd(1) * ImageList1.ListImages.Count)
‘menampilakan field lain ke kolom selanjutnya
Daftar.SubItems(1) = RS!CategoryName
Daftar.SubItems(2) = RS!Description
Daftar.SubItems(3) = RS!Picture
RS.MoveNext
Next k
End Sub
Private Sub Command2_Click()
ListView1.ListItems.Clear
End Sub
Private Sub Form_Load()
‘Buka koneksi ke database Nwind.mdb
Set CONN = New ADODB.Connection
’sesuaikan dengan letak database anda
CONN.Open “Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=D:\Program Files\Microsoft Visual Studio\VB98\NWIND.MDB”
End Sub
Private Sub Form_Unload(Cancel As Integer)
‘Tutup koneksi ke database
CONN.Close
Set CONN = Nothing
End Sub

Read More

Thursday, May 17, 2012

Eksport Data ke Excell VB 6

11:45 PM    12 comments

Bagi anda para software developer baik itu yang menggunakan database seperti MS Access ataupun database RDBMS seperti MS SQL Server, Oracle, MySQL dll, tentu anda pernah menginginkan agar data anda bisa dieksport ke format MS Excell untuk tujuan lainnya seperti ingin mempercantik format tampilan, sebagai bahan pembuatan laporan dan lain sebagainya. Walaupun ada banyak tool yang tersedia di internet untuk melakukan hal ini, tetapi mungkin saja anda ingin mengintegrasikan kemampuan ini dalam aplikasi yang anda buat. Adapun versi Visual Basic yang saya gunakan adalah Visual Basic versi 6.0 dan microsoft office yang saya gunakan adalah Microsoft Office 2003 (MS Office 11).
Persiapan
Aplikasi ini akan kita gunakan untuk mengeksport data dari database Microsoft Access. Buat sebuah folder baru di drive C dan beri nama "ToExcel". Kemudian kita akan membuat sebuah database Microsoft Access langkahnya sebagai berikut : Klik Start Menu | Program | Microsoft Office Access 2003. Setelah masuk ke IDE microsoft access, klik menu File | New. Di menubar sebelah kanan pilih "Blank Database". Kemudian sebuah kotak dialog "File New Database" akan muncul. Simpan file tersebut di folder "ToExcel" yang telah kita buat tadi dan beri nama sample.mdb.
Buat sebuah tabel dengan struktur data seperti dibawah ini :
NIK text(10),Nama text(50),Jabatan text(30). Simpan tabel tersebut dan beri nama Karyawan. Kemudian isi beberapa data kedalam table tersebut.
Pembuatan Aplikasi
Jalankan MS Visual Basic : klik Start Menu | Program | Microsoft Visual Basic 6.0 | Microsoft Visual Basic 6.0. Setelah masuk ke Visual Basic IDE, kita akan melihat window yang mempunyai tiga tab dengan title "New Project".
Pilih "Standard EXE", kemudian akan muncul Project1 – Form1. klik menu File | Save Project As untuk menyimpan project ini. Simpan Form dengan nama FtoExcel.frm dan dengan projectnya dengan nama ExcelExport.vbp.
Agar visual basic dapat menggunakan library untuk microsoft excel, maka kita harus mengaktifkan Library microsoft excel ini dengan cara : klik menu Project | References. Ini akan memunculkan window "References – Project1". Di dalam window ini terdapat banyak object library yang bisa digunakan untuk visual basic IDE. Kemudian centang object library yang berlabel "Microsoft Excel 11.0 Object Library" atau library "Microsoft Excel 10.0 Object Library" untuk pengguna Microsoft Office 2000 dan "Microsoft Excel 12.0 Object Library" untuk pengguna Microsoft Office 2007.
Ini akan memberitahukan kepada visual basic bahwa kita akan menggunakan object library dari Microsoft Office Excel 11.0 atau versi microsoft office excel yang anda gunakan.
Interface Aplikasi
Sekarang kita mulai dengan interface. Tambahkan sebuah CommandButton, DataGrid, Adodc dan sebuah label. Set nilai property masing-masing komponen sesuai dengan gambar dibawah ini :
Sehingga tampilannya seperti gambar dibawah ini :
Setting Database Path
Dalam men-set ConnectionString pada komponen adodc kita menggunakan path relative sebagai berikut :
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=sample.mdb;Persist Security Info=False" . tidak menggunakan path absolute sebagai berikut :
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ToExcel\sample.mdb;Persist Security Info=False".
Cara pertama (dengan path relative) akan membuat aplikasi lebih fleksibel. Maksudnya, meskipun aplikasi ini dipindahkan ke folder lain asalkan databasenya (.mdb) juga ditempatkan di folder yang sama dengan aplikasi (.exe) tersebut, aplikasi ini tidak akan mengalami error dan tidak perlu merubah source code dari aplikasi tersebut.
Coding
Klik kanan pada DataGrid1 pilih Retrieve Fileds untuk memasukan
field-field dari tabel karyawan ke komponen DataGrid1 secara otomatis.
Sehingga tampilannya akan seperti gambar dibawah ini :
Langkah selanjutnya adalah mengisikan kode program ke dalam masing-masing komponen.
klik di sembarang tempat di pada komponen Form1 kemudian tekan tombol F7
ini akan memunculkan "Code Window".
Isikan beberapa baris kode program berikut pada bagian paling atas sebelum kode Private Sub Form_Load().

---
Option Explicit
Dim koneksi_ado As ADODB.Connection
Dim rskaryawan As ADODB.Recordset
---
Kode diatas mendeklarasikan variabel koneksi_ado sebagai adodb conection dan rskaryawan sebagai adodb recordset.

Dobel Klik Komponen Form1, kemudian ketik kode berikut :
---
Dim SQLStr As String
Set koneksi_ado = New ADODB.Connection
Set rskaryawan = New ADODB.Recordset
koneksi_ado.ConnectionString= & _
"Provider=Microsoft.Jet.OLEDB.4.0; & _
Password=;Data Source=" & App.Path & "\sample.mdb" & _
";Persist Security Info=True"
koneksi_ado.Open
Adodc1.Enabled = True
SQLStr = "select * from karyawan order by nama"
rskaryawan.Open SQLStr, koneksi_ado, adOpenDynamic, adLockOptimistic
DataGrid1.Refresh
Label1.Caption = "Status :"
---

Kode diatas akan dieksekusi pada event form_load sehingga kode diatas akan dieksekusi ketika sebuah aplikasi pertama dijalankan.
Langkah selanjutnya, mengisikan kode program utama yang akan di picu oleh komponen CommandButton1. Dobel klik CommandButton1, kemudian ketik kode berikut :
---
Dim EXCELAPPKU As Excel.Application
Dim excelbookku As Excel.Workbook
Dim excelsheetku As Excel.Worksheet
Dim baris, datake As Integer
Label1.Caption = "Status : Prosesing Data...."
Set EXCELAPPKU = New Excel.Application
Set excelbookku = EXCELAPPKU.Workbooks.Add
With EXCELAPPKU
.StandardFontSize = "10"
End With
EXCELAPPKU.Visible = True
Set excelsheetku = excelbookku.Worksheets(1)
excelsheetku.Select
Range("A1:C1").Select
Selection.MergeCells = True
Selection.HorizontalAlignment = xlCenter
ActiveCell.FormulaR1C1 = UCase("Data Karyawan")
Selection.Font.Bold = True
Selection.Font.Name = "Verdana"
With excelsheetku
.Cells(2, 1).Value = "NIK"
.Cells(2, 2).Value = "Nama"
.Cells(2, 3).Value = "Jabatan"
Label1.Caption = "Status : Prosesing Data..."
baris = 3
datake = 0
If Not rskaryawan.BOF Then
rskaryawan.MoveFirst
While Not rskaryawan.EOF
Label1.Caption = "Status : Exporting Data ke " & datake
Label1.Refresh
datake = datake + 1
.Cells(1, 5).Value = "Fetching data ke " & datake
.Cells(baris, 1) = rskaryawan![NIK]
.Cells(baris, 2) = rskaryawan![nama]
.Cells(baris, 3) = rskaryawan![jabatan]
baris = baris + 1
rskaryawan.MoveNext
Wend
End If
.Cells(1, 5).ClearContents
.Columns("A:A").EntireColumn.AutoFit
.Columns("B:B").EntireColumn.AutoFit
.Columns("C:C").EntireColumn.AutoFit
End With
rskaryawan.Close
Label1.Caption = "Status : Selesai."
On Error GoTo 0
Set excelsheetku = Nothing
Set excelbookku = Nothing
EXCELAPPKU.Quit
MsgBox "Export data selesai", vbInformation, "Informasi"
---

Sekarang anda pilih menu Run | Start untuk menjalankan aplikasi. Tekan tombol "Eksport" untuk melihat outputnya.
Berikut ini gambar aplikasi pada saat runtime :



Read More

Thursday, March 29, 2012

Metode koneksi VB 6 dengan SQL Server

6:56 PM    2 comments

Ada beberapa metode untuk menghubungkan Visual Basic dengan Database MS SQL Server saya akan memberikan penjelasan 2 metode diantaranya yaitu koneksi dengan menggunakan komponen DataEnvironment dan koneksi dengan menggunakan kode Program. untuk tutorial ini saya menggunakan Visual Basic 6 dan MS SQL Server 2000.

1. Koneksi menggunakan DataEnvironment

- Buat Project Standard EXE
- Klik menu Project | Add Data Environment, maka akan ditampilkan jendela Data Environment seperti ini :

- Untuk membangun koneksi dengan Database SQL Server, Klik kanan objek Connection1 kemudian pilih Properties maka akan muncul jendela Data Link Properties.
- Pada jendela Data Link Properties pilih driver untuk koneksi ke MS SQL Server, yaitu Microsoft OLE DB Provider for SQL Server. kemudian klik Next.
- Isi dengan nama server MS SQL Server kamu pada textbox "Select or enter a server name" (nama server adalah nama komputer kamu).
- Pilih radio button "use a specific username and password" pada bagian 2.Enter information to log on to the server.
- Pada textbox username dan password isi dengan username dan password yang terdaftar di Database SQL Server kamu misalnya "sa" (user sa defaultnya tidak memiliki password). pada contoh ini saya menggunakan username 'yanadoe' dengan password 'bebas'.
- Sebagai tambahan, user sa adalah user yang mempunyai kewenangan penuh terhadap system di MS SQL Server atau disebut system administrator. user ini dibuat secara otomatis oleh MS SQL Server ketika proses instalasi.
- Setelah kamu lakukan langkah diatas, centang Checkbox "Allow saving password" agar kamu tidak perlu menginputkan lagi username dan password setiap kali aplikasi akan dijalankan.
- Pilih database Northwind pada textbox "Select the database on the server". klik tombol Test Connection untuk mengetahui apakah koneksi sudah berhasil atau tidak jika sukses klik tombol OK untuk menutup window dialog Data Link Properties
Setelah tahap diatas, koneksi dari Visual Basic ke Database MS SQL Server sudah terbentuk selanjutnya untuk mengambil data dari sebuah table di Database pertama kamu harus menambahkan sebuah Command pada DataEnvironment, Caranya sebagai berikut :
2. Mengambil Data dari Database
- Klik kanan pada jendela DataEnvironment, pilih Add Command. maka akan dibuat sebuah object dengan nama Command1.
- Klik kanan Command1, pilih Properties. setelah muncul jendela Command1 Properties, pilih Table pada bagian Database Object, dan pilih sebuah table pada bagian Object Name misalnya table Customers. kemudian klik OK.
Menampilkan Data dengan DataGrid
- Pertama kamu harus menambahkan komponen DataGrid pada ToolBox caranya : klik menu Project | Components, pada jendela Components pilih Microsoft DataGrid Control 6.0
- Setelah objek DataGrid ditambahkan pada Toolbox, klik komponen DataGrid tersebut kemudian Click and Drag pada Form1.
- Set Properties DataSource menjadi DataEnvironment1, dan Properties DataMember menjadi Command1.
- Klik kanan pada DataGrid, pilih Retrieve Fields klik OK pada Message Dialog yang muncul.
- Data pada table tidak akan langsung ditampilkan pada saat Design, untuk melihat datanya kamu harus Run Program dengan menekan F5.

Read More

Wednesday, March 7, 2012

Aplikasi Database Menggunakan SQL Statement pada Visual Basic 6

10:11 PM    No comments

Pada tutorial kali ini saya akan menjelaskan bagaimana cara memanipulasi data menggunakan SQL Statement di Visual Basic. Tujuan tutorial ini adalah agar pembaca bisa memahami bagaimana cara menggunakan SQL Statement untuk memanipulasi data di Visual Basic oleh karena itu tutorial ini dibuat se-jelas dan se-sederhana mungkin tetapi tidak mengesampingkan pemahaman pokok tentang operasi DML dengan SQL Statement.
Buat sebuah File Database menggunakan Microsoft Access, simpan di c:\Sample dengan nama DBSample.mdb
Buat sebuah table dengan nama Products dengan struktur sebagai berikut :

ProductID Text(20)
Description Text(50)
Price number(Double)

Masuk ke Visual Basic, buat sebuah project Standard.EXE simpan di c:\Sample dengan nama SQLDML.vbp

Tambahkan tiga buah Textbox : txtPid, txtDesc, dan txtPrice
Tambahkan tiga buah Label : lblPid, lblDesc, dan lblPrice
Tambahkan tiga buah Button : cmdSave, cmdUpdate, cmdDelete, cmdSearch
Tambahkan lagi empat buah button untuk navigasi record : cmdFirst, cmdPrev, cmdNext, cmdLast


Koneksi dengan Database MS Access

Masuk code editor, deklarasikan dua buah variabel untuk koneksi Database dan Recordset

Dim AccessConn As New ADODB.Connection
Dim rsProduct As New ADODB.Recordset
Dobel klik Form1, tambahkan kode program berikut :
Set AccessConn = New ADODB.Connection
AccessConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\DBSample.mdb;Persist Security Info=False"
'kode program App.Path akan menghasilkan path dari file .exe aplikasi ini
'yaitu C:\Sample
'buka koneksi
AccessConn.Open
SQLStr = "select * from products"
Set rsProduct = New ADODB.Recordset
rsProduct.Open SQLStr, AccessConn, adOpenDynamic, adLockOptimistic, adCmdText

Menambah Data dengan SQL Insert Statement

Dobel klik button cmdSave, tambahkan kode program berikut :

Dim SQLStr As String
'deklarasi variabel SQLStr
'yang nantinya akan digunakan untuk perintah SQL
SQLStr = "insert into products (productid,description,price) " & _
"values('" & txtPid & "','" & txtDesc & "','" & txtPrice & "')"
'Execute SQL Command
AccessConn.Execute SQLStr, , cmdtypetext
'tampilkan pesan
MsgBox "Data telah tersimpan", vbInformation, "Informasi"
'refresh dataset rsproduct agar record baru langsung terlihat
rsProduct.Requery
'clear textbox
txtPid = ""
txtDesc = ""
txtPrice = ""
txtPid.SetFocus


Mencari Data dengan SQL Select Statement

Karena SQL Select Statement menghasilkan/mengembalikan satu atau lebih record maka perlu dideklarasikan sebuah variabel recordset baru yaitu rsproductsCari untuk menampung recordset hasil query pencarian

Dobel klik button cmdSearch, tambahkan kode Program berikut :

Dim SQLStr As String
Dim rsproductsCari As New ADODB.Recordset
'mencari product berdasarkan productid
SQLStr = "select * from products where productid = '" & txtPid & "'"
Set rsproductsCari = New ADODB.Recordset
rsproductsCari.Open SQLStr, AccessConn, adOpenDynamic, adLockOptimistic, adCmdText
If Not rsproductsCari.BOF And Not rsproductsCari.EOF Then
'jika data ada, tampilkan record pada textbox
txtPid = rsproductsCari!productid
txtDesc = rsproductsCari!Description
txtPrice = rsproductsCari!price
Else
'jika tidak ada, tampilkan pesan
MsgBox "Data tidak ditemukan", vbInformation, "Informasi"
'clear textbox
txtPid = ""
txtDesc = ""
txtPrice = ""
txtPid.SetFocus
End If


Mengedit Data dengan SQL Update Statement

Dobel klik button cmdUpdate, tambahkan kode Program berikut :

Dim SQLStr As String
SQLStr = "update products set description='" & txtDesc & "'," & _
"price='" & txtPrice & "' where productid='" & txtPid & "'"
Set rsProduct = AccessConn.Execute(SQLStr, , cmdtypetext)
'refresh dataset rsproduct agar record baru langsung terlihat
rsProduct.Requery
'tampilkan pesan
MsgBox "Perubahan telah tersimpan", vbInformation, "Informasi"
'clear textbox
txtPid = ""
txtDesc = ""
txtPrice = ""
txtPid.SetFocus


Menghapus Data dengan SQL Delete Statement

Dobel klik button cmdDelete, tambahkan kode Program berikut :

Dim SQLStr As String
Dim msgresult As Byte
'deklarasi variabel msgresult
'digunakan untuk menangkap result dari pesan konfirmasi delete
msgresult = MsgBox("Hapus Data produk " & txtPid, vbYesNo + vbQuestion, "Confirm")
If msgresult = vbYes Then
SQLStr = "delete from products where productid='" & txtPid & "'"
Set rsProduct = AccessConn.Execute(SQLStr, , cmdtypetext)
'refresh dataset rsproduct agar record baru langsung terlihat
rsProduct.Requery
'clear textbox
txtPid = ""
txtDesc = ""
txtPrice = ""
txtPid.SetFocus
End If


Navigasi Record Dengan Kode Program

Ini adalah kode Program untuk navigasi record ke posisi record pertama.

Dobel klik button cmdFirst, tambahkan kode Program berikut :

On Error Resume Next
rsProduct.MoveFirst
'menampilkan data
txtPid = rsProduct!productid
txtDesc = rsProduct!Description
txtPrice = rsProduct!price

Kode Program untuk navigasi record ke posisi record sebelumnya. jika record sudah di posisi record pertama, maka pointer tetap akan diarahkan ke record pertama. kamu bisa ganti kode Program rsproduct.MoveFirst dengan rsproduct.MoveLast agar navigasi kembali ke record terakhir setelah berada pada record pertama.

Dobel klik button cmdPrev, tambahkan kode Program berikut :

On Error Resume Next
rsProduct.MovePrevious
If rsProduct.BOF Then
rsProduct.MoveFirst
End If
'menampilkan data
txtPid = rsProduct!productid
txtDesc = rsProduct!Description
txtPrice = rsProduct!price

Kode Program untuk navigasi record ke posisi record berikutnya. jika record sudah di posisi record terakhir, maka pointer tetap akan diarahkan ke record terakhir. kamu bisa ganti kode Program rsproduct.MoveLast dengan rsproduct.MoveFirst agar navigasi kembali ke record pertama setelah berada pada record terakhir.

Dobel klik button cmdNext, tambahkan kode Program berikut :

On Error Resume Next
rsProduct.MoveNext
If rsProduct.EOF Then
rsProduct.MoveLast
End If
'menampilkan data
txtPid = rsProduct!productid
txtDesc = rsProduct!Description
txtPrice = rsProduct!price

Kode Program untuk navigasi record ke posisi record terakhir.

Dobel klik button cmdLast, tambahkan kode Program berikut :

On Error Resume Next
rsProduct.MoveLast
'menampilkan data
txtPid = rsProduct!productid
txtDesc = rsProduct!Description
txtPrice = rsProduct!price









Read More

Tuesday, March 6, 2012

Introduction to Visual Basic 6

9:29 PM    No comments

1.1 The concept of computer programming
Before we begin Visual Basic 6 programming, let us understand some basic concepts of programming. According to Webopedia, a computer program is an organized list of instructions that, when executed, causes the computer to behave in a predetermined manner. Without programs, computers are useless. Therefore, programming means designing or creating a set of instructions to ask the computer to carry out certain jobs which normally are very much faster than human beings can do.

Read More