visitor statistics VB6 Basic banget | Dimas A Lasama

Iseng iseng mo Nuangin beberapa ilmu kudu yang di dapet dari bikin project pake VB6 dan Crystal Report nih.

Buat manipulasi string

VBTab = Buat bikin Tab dimana kl di java ato php pk \t

strSubstr = Mid$(“alamanda”, 3, 4) return nya aman

strSubstr = Left$(“alamanda”, 3) return nya ala

strNew = UCase$(“Alamanda”) return nya ALAMANDA jadi gede semua

strNew = LCase$(“alamanda”) buat jadiin string nya kecil semua

strNewDate = Replace$(“31/09/2010″, ”/”, ”-”)  return nya 31-09-2010

strTest = Trim$(“  alamanda  ”) buat  Ngilangin Spaci di kanan dan Kiri

strTest = RTrim$(alamanda “) buat  Ngilangin Spaci di kanan

masih ada lagi buat Crystal report. View More yah…. :)

Code VB buat Crystal report

CrystalReport1.ReportFileName = App.Path & “\reportCR.rpt”

CrystalReport1.Connect = “DNS=dnsname;UID=username;PWD=passsword;database=tnsname”

CrystalReport1.SelectionFormula = “{REPORTNEW.SUB_CODE} = ‘” & b & “‘ and {REPORTNEW.DATED} >= Date(” & tgl & “) and {REPORTNEW.DATED} <= Date(” & tgl1 & “);”
Ini Buat bawa parameter dari TextBox yang di Form VB

CrystalReport1.Formulas(0) = “subcode = ‘” & string & ” ‘”
CrystalReport1.Formulas(1) = “from = ‘” & string & ” ‘”
CrystalReport1.Formulas(2) = “to= ‘” & string & ” ‘”
CrystalReport1.WindowTitle = “Ini Judul Form Crystal Report”
CrystalReport1.WindowState = crptMaximized
CrystalReport1.Destination = crptToWindow

Dan yang terkahir Setting Di Crystal Report untuk bawa parameter dari Form VB6.

Edit -> Field Object

Klik Formula Field pilih New pada menu diatas window Ketik nama nya subcode dan kemudian akan muncul window baru, Tutup dan Save. Kemudian Drag nama yang barusan dibuat. :)

Selamat Mencoba…. :)

Share →

Leave a Reply

Your email address will not be published. Required fields are marked *

*


*

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>