Mengirim Value / isi Textbox ke Crystal report dengan Visual Basic 6

Terkadang saat ingin membuat sebuah report / laporan atau kwitansi , kita dihadapkan dengan harus mengirim sebuah isi dari sebuah text box tetapi textbox tersebut tidak tersimpan di database..

ada cara yang bisa dilakukan untuk mengirim data tersebut ke crystal report langkahnya sebagai berikut.

buka vb6 nya dan buat tampilannya seperti dibawah ini

kemudian buka crystal reportnya. pada field explorer

Klik kanan pada Parameter Fields, pilih New


pada name isikan nama parameternya contoh formula1

Klik OK, dan tambahkan parameter yang baru di buat ke lembar kerja crystal report


Kembali ke Visual Basic 6 , dobel klik pada command1 / cetak

ketikkan rumus dibawah ini

With CrystalReport1
.SelectionFormula = ""
.ParameterFields(0) = "formula1;" & Text1.Text & ";True"
.RetrieveDataFiles
.WindowState = crptMaximized
.Action = 1
End With

Keterangan:
.ParameterFields(0) = "formula1;" & Text1.Text & ";True"

formula1  => samakan dengan parameter yang dibuat di crystalreport
text1.text => isi dari text1 yang akan di tampilkan di crystal report

jika yang ditampilkan lebih dari 1, maka anda tinggal membuat parameter lagi di crytalreport dengan nama yang berbeda, contohnya

.ParameterFields(0) = "formula1;" & Text1.Text & ";True"
.ParameterFields(1) = "formula2;" & Text2.Text & ";True"
.ParameterFields(2) = "formula3;" & Text3.Text & ";True"

dst


semoga bermanfaat... kalo ada kesalahan mohon dikoreksi,, maklum masih newbee