Loading ...
Sorry, an error occurred while loading the content.

RE: [vb-indo] server has not been opened --> cr. 8.5

Expand Messages
  • Ahmad Zakki
    Coba tambahkan adodc di form-nya trus running abis itu adodc-nya di buang lagi Best regards, Ahmad Zakki Information Technology PT. Mandala Airlines Phone :
    Message 1 of 29 , Oct 31, 2006
    • 0 Attachment
      Coba tambahkan adodc di form-nya trus running abis itu adodc-nya di buang
      lagi



      Best regards,

      Ahmad Zakki

      Information Technology

      PT. Mandala Airlines

      Phone : 5665434

      Fax : 5663789

      visit our website : www.mandalaair.com

      _____

      From: vb-indo@yahoogroups.com [mailto:vb-indo@yahoogroups.com] On Behalf Of
      Heriyanto KO
      Sent: Wednesday, November 01, 2006 9:15 AM
      To: vb-indo@yahoogroups.com
      Subject: RE: [vb-indo] server has not been opened --> cr. 8.5



      saya sudah coba nih..
      tapi dibagian

      Dim rs As ADODB.Recordset

      ada error " user-defined type not defined"

      kira2 kenapa ya?
      ......source di bawah ini ......

      Dim Report As New CrystalReport2
      Dim rs As ADODB.Recordset 'errornya di sini

      Private Sub CRViewer1_PrintButt_Click()

      Report.PrinterSetup (Me.hWnd)
      End Sub

      Private Sub Form_Load()
      Set rs = New Recordset

      rs.Open "Select * from barang", cn, adOpenForwardOnly, adLockReadOnly
      Report.DiscardSaved Data
      Report.Database.SetDataSource rs, 3, 1

      Screen.MousePointer = vbHourglass
      CRViewer1.ReportSource = Report
      CRViewer1.ViewReport
      Screen.MousePointer = vbDefault
      End Sub

      Private Sub Form_Resize()
      CRViewer1.Zoom 100
      CRViewer1.Top = 0
      CRViewer1.Left = 0
      CRViewer1.Height = ScaleHeight
      CRViewer1.Width = ScaleWidth

      End Sub

      Private Sub Form_Unload(Cancel As Integer)
      If rs.State = True Then rs.Close
      Set rs = Nothing
      Set rptListing = Nothing
      frmRpt.Show
      End Sub



      ---------------------------------
      Do you Yahoo!?
      Get on board. You're invited to try the new Yahoo! Mail.

      [Non-text portions of this message have been removed]





      [Non-text portions of this message have been removed]
    • Heriyanto KO
      thanks buat temen yg bantu masalah saya sebelumnya.. koneksinya sudah berhasil dan saya sudah bisa link dr vb 6 ke cr 8.5 tapi skrg ada masalah baru nih......
      Message 2 of 29 , Nov 1, 2006
      • 0 Attachment
        thanks buat temen yg bantu masalah saya sebelumnya..
        koneksinya sudah berhasil dan saya sudah bisa link dr vb 6 ke cr 8.5
        tapi skrg ada masalah baru nih......
        saya mau coba buat laporan yang menghitung saldo akhir bulan sebelumnya...
        utk laporan kuangan..

        mis ada data

        noTrans tglTransaksi noPerkiraan keterangan debet kredit
        1 30/10/2006 1 asdaf 500 0
        2 30/10/2006 1 bsdf 600 0
        3 30/10/2006 2 sdfc 0 500
        4 31/10/2006 2 dasdf 200 0
        5 31/10/2006 1 tes 100 0

        pada tanggal 31, saya mau menampilkan hanya transaksi tgl 31 utk transaksi lain cukup saldo akhirnya masing2 per perkiraan...

        kira2 bikinya pake apa ya?

        thx before

        best regards
        Hery

        __________________________________________________
        Do You Yahoo!?
        Tired of spam? Yahoo! Mail has the best spam protection around
        http://mail.yahoo.com

        [Non-text portions of this message have been removed]
      • Davi:=IT
        Itu seharus nya, pada saat akhir bulan ada proses closing, salah satu dari prose situ menyimpan saldo2 per account ke table saldo akhir per bulan tsb., jadi
        Message 3 of 29 , Nov 1, 2006
        • 0 Attachment
          Itu seharus nya, pada saat akhir bulan ada proses closing, salah satu dari
          prose situ menyimpan saldo2 per account ke table saldo akhir per bulan tsb.,
          jadi klo utk bulan depan nya tinggal panggil aja saldo bulan kemarin (now
          -1).



          Thanks



          Davi



          Software Engineer

          PT. ADIRA MOTOR



          _____

          From: vb-indo@yahoogroups.com [mailto:vb-indo@yahoogroups.com] On Behalf Of
          Heriyanto KO
          Sent: 01 Nopember 2006 15:20
          To: vb-indo@yahoogroups.com
          Subject: RE: [vb-indo] server has not been opened --> cr. 8.5 ...sukses
          tapi...saldo??



          thanks buat temen yg bantu masalah saya sebelumnya..
          koneksinya sudah berhasil dan saya sudah bisa link dr vb 6 ke cr 8.5
          tapi skrg ada masalah baru nih......
          saya mau coba buat laporan yang menghitung saldo akhir bulan sebelumnya...
          utk laporan kuangan..

          mis ada data

          noTrans tglTransaksi noPerkiraan keterangan debet kredit
          1 30/10/2006 1 asdaf 500 0
          2 30/10/2006 1 bsdf 600 0
          3 30/10/2006 2 sdfc 0 500
          4 31/10/2006 2 dasdf 200 0
          5 31/10/2006 1 tes 100 0

          pada tanggal 31, saya mau menampilkan hanya transaksi tgl 31 utk transaksi
          lain cukup saldo akhirnya masing2 per perkiraan...

          kira2 bikinya pake apa ya?

          thx before

          best regards
          Hery

          __________________________________________________
          Do You Yahoo!?
          Tired of spam? Yahoo! Mail has the best spam protection around
          http://mail. <http://mail.yahoo.com> yahoo.com

          [Non-text portions of this message have been removed]





          [Non-text portions of this message have been removed]
        • Heriyanto KO
          thanks buat masukannya...kyknya sippp deh.... tapi kalo utk transaksi yg bulannya sama gimana? soalnya laporan ini akan dibuat setiap hari pada saat kas
          Message 4 of 29 , Nov 1, 2006
          • 0 Attachment
            thanks buat masukannya...kyknya sippp deh....
            tapi kalo utk transaksi yg bulannya sama gimana?
            soalnya laporan ini akan dibuat setiap hari pada saat kas opname...
            untuk melihat apakah saldo fisik sama dg saldo di program...

            misal hari ini tgl 2 nov 2006

            nah saldo awal utk tgl 2 nov 2006 dalam laporan hr ini = saldo bln okt + saldo 1 nov 2006

            ada ide... help...


            Thx
            "Davi:=IT" <davi@...> wrote: Itu seharus nya, pada saat akhir bulan ada proses closing, salah satu dari
            prose situ menyimpan saldo2 per account ke table saldo akhir per bulan tsb.,
            jadi klo utk bulan depan nya tinggal panggil aja saldo bulan kemarin (now
            -1).

            Thanks

            Davi

            Software Engineer

            PT. ADIRA MOTOR

            _____

            From: vb-indo@yahoogroups.com [mailto:vb-indo@yahoogroups.com] On Behalf Of
            Heriyanto KO
            Sent: 01 Nopember 2006 15:20
            To: vb-indo@yahoogroups.com
            Subject: RE: [vb-indo] server has not been opened --> cr. 8.5 ...sukses
            tapi...saldo??

            thanks buat temen yg bantu masalah saya sebelumnya..
            koneksinya sudah berhasil dan saya sudah bisa link dr vb 6 ke cr 8.5
            tapi skrg ada masalah baru nih......
            saya mau coba buat laporan yang menghitung saldo akhir bulan sebelumnya...
            utk laporan kuangan..

            mis ada data

            noTrans tglTransaksi noPerkiraan keterangan debet kredit
            1 30/10/2006 1 asdaf 500 0
            2 30/10/2006 1 bsdf 600 0
            3 30/10/2006 2 sdfc 0 500
            4 31/10/2006 2 dasdf 200 0
            5 31/10/2006 1 tes 100 0

            pada tanggal 31, saya mau menampilkan hanya transaksi tgl 31 utk transaksi
            lain cukup saldo akhirnya masing2 per perkiraan...

            kira2 bikinya pake apa ya?

            thx before

            best regards
            Hery

            __________________________________________________
            Do You Yahoo!?
            Tired of spam? Yahoo! Mail has the best spam protection around
            http://mail. <http://mail.yahoo.com> yahoo.com

            [Non-text portions of this message have been removed]

            [Non-text portions of this message have been removed]






            ---------------------------------
            Cheap Talk? Check out Yahoo! Messenger's low PC-to-Phone call rates.

            [Non-text portions of this message have been removed]
          • Heriyanto KO
            temen2,saya dalam masalah nih... gimana caranya passing parameter dari vb ke cr 8.5 dan bisa gak sih kita mengambil nilai dari formula ato parameter yang ada
            Message 5 of 29 , Nov 6, 2006
            • 0 Attachment
              temen2,saya dalam masalah nih...

              gimana caranya passing parameter dari vb ke cr 8.5
              dan bisa gak sih kita mengambil nilai dari formula ato parameter yang ada di report dari program vb?

              NB: saya pake sql server 200+vb 6+ cr *.5


              ---------------------------------
              Sponsored Link

              Try Netflix today! With plans starting at only $5.99 a month what are you waiting for?

              [Non-text portions of this message have been removed]
            • Ahmad Zakki
              Kalo mao passing parameter dari vb ke cr pake function selectionformula _____ From: vb-indo@yahoogroups.com [mailto:vb-indo@yahoogroups.com] On Behalf Of
              Message 6 of 29 , Nov 6, 2006
              • 0 Attachment
                Kalo mao passing parameter dari vb ke cr pake function selectionformula



                _____

                From: vb-indo@yahoogroups.com [mailto:vb-indo@yahoogroups.com] On Behalf Of
                Heriyanto KO
                Sent: Tuesday, November 07, 2006 8:59 AM
                To: vb-indo@yahoogroups.com
                Subject: [vb-indo] Help.... CR select expert date Formula..urgent



                temen2,saya dalam masalah nih...

                gimana caranya passing parameter dari vb ke cr 8.5
                dan bisa gak sih kita mengambil nilai dari formula ato parameter yang ada di
                report dari program vb?

                NB: saya pake sql server 200+vb 6+ cr *.5


                ---------------------------------
                Sponsored Link

                Try Netflix today! With plans starting at only $5.99 a month what are you
                waiting for?

                [Non-text portions of this message have been removed]





                [Non-text portions of this message have been removed]
              • Heriyanto KO
                caranya gimana? maklum new bee heheehe..e.e say ingin menampilkan report dengan range, misalnya tanggal 1 - 5 nov 2006 jadi ada pake start date dan end date
                Message 7 of 29 , Nov 6, 2006
                • 0 Attachment
                  caranya gimana? maklum new bee heheehe..e.e
                  say ingin menampilkan report dengan range, misalnya tanggal 1 - 5 nov 2006 jadi ada pake start date dan end date gitu... ada ide

                  Ahmad Zakki <zakki@...> wrote: Kalo mao passing parameter dari vb ke cr pake function selectionformula

                  _____

                  From: vb-indo@yahoogroups.com [mailto:vb-indo@yahoogroups.com] On Behalf Of
                  Heriyanto KO
                  Sent: Tuesday, November 07, 2006 8:59 AM
                  To: vb-indo@yahoogroups.com
                  Subject: [vb-indo] Help.... CR select expert date Formula..urgent

                  temen2,saya dalam masalah nih...

                  gimana caranya passing parameter dari vb ke cr 8.5
                  dan bisa gak sih kita mengambil nilai dari formula ato parameter yang ada di
                  report dari program vb?

                  NB: saya pake sql server 200+vb 6+ cr *.5

                  ---------------------------------
                  Sponsored Link

                  Try Netflix today! With plans starting at only $5.99 a month what are you
                  waiting for?

                  [Non-text portions of this message have been removed]

                  [Non-text portions of this message have been removed]






                  ---------------------------------
                  Everyone is raving about the all-new Yahoo! Mail.

                  [Non-text portions of this message have been removed]
                • Ahmad Zakki
                  Caranya : Cr.SelectionFormula = {nama_query_table.namafield}= & nama_param & Nah kalo pake start date - end date pake perintah between
                  Message 8 of 29 , Nov 6, 2006
                  • 0 Attachment
                    Caranya :



                    Cr.SelectionFormula = "{nama_query_table.namafield}='" & nama_param & "'"



                    Nah kalo pake start date - end date pake perintah between



                    Cr.SelectionFormula = "{nama_query_table.namafield} between '" & nama_param1
                    & "' and '" & nama_param2 & "'"



                    _____

                    From: vb-indo@yahoogroups.com [mailto:vb-indo@yahoogroups.com] On Behalf Of
                    Heriyanto KO
                    Sent: Tuesday, November 07, 2006 10:16 AM
                    To: vb-indo@yahoogroups.com
                    Subject: RE: [vb-indo] Help.... CR select expert date Formula..urgent



                    caranya gimana? maklum new bee heheehe..e.e
                    say ingin menampilkan report dengan range, misalnya tanggal 1 - 5 nov 2006
                    jadi ada pake start date dan end date gitu... ada ide

                    Ahmad Zakki <zakki@mandalaair. <mailto:zakki%40mandalaair.com> com> wrote:
                    Kalo mao passing parameter dari vb ke cr pake function selectionformula

                    _____

                    From: vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com
                    [mailto:vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com] On
                    Behalf Of
                    Heriyanto KO
                    Sent: Tuesday, November 07, 2006 8:59 AM
                    To: vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com
                    Subject: [vb-indo] Help.... CR select expert date Formula..urgent

                    temen2,saya dalam masalah nih...

                    gimana caranya passing parameter dari vb ke cr 8.5
                    dan bisa gak sih kita mengambil nilai dari formula ato parameter yang ada di
                    report dari program vb?

                    NB: saya pake sql server 200+vb 6+ cr *.5

                    ---------------------------------
                    Sponsored Link

                    Try Netflix today! With plans starting at only $5.99 a month what are you
                    waiting for?

                    [Non-text portions of this message have been removed]

                    [Non-text portions of this message have been removed]





                    ---------------------------------
                    Everyone is raving about the all-new Yahoo! Mail.

                    [Non-text portions of this message have been removed]





                    [Non-text portions of this message have been removed]
                  • Syamsul Arifien (Ipin)
                    Sdr. Zakki Saya sedikit menanggapi Jika ingin menampilkan range berdasarkan parameter tertentu, Anda bisa menggunakan parameter yang ada di CR, parameter
                    Message 9 of 29 , Nov 6, 2006
                    • 0 Attachment
                      Sdr. Zakki

                      Saya sedikit menanggapi



                      Jika ingin menampilkan range berdasarkan parameter tertentu,

                      Anda bisa menggunakan parameter yang ada di CR, parameter tersebut bisa
                      diisi melalui VB.

                      Cara lain, bisa menggunakan selectionformula dari CR.

                      Anda bisa menentukan sendiri query dari parameter yang anda akan keluarkan.



                      Contohnya:

                      sqlstr = sqlstr + " and { datein }>= cdate(" &
                      FmtStr(Format(DTPicker1(0), "yyyy-MM-dd")) & ")"

                      sqlstr = sqlstr + " AND { datein } <= cDate(" &
                      FmtStr(Format(DTPicker1(1), "yyyy-MM-dd")) & ")"

                      .GroupSelectionFormula = sqlstr





                      CMIIW



                      Salam Ipin

                      _____

                      From: vb-indo@yahoogroups.com [mailto:vb-indo@yahoogroups.com] On Behalf Of
                      Heriyanto KO
                      Sent: Tuesday, November 07, 2006 10:16 AM
                      To: vb-indo@yahoogroups.com
                      Subject: RE: [vb-indo] Help.... CR select expert date Formula..urgent



                      caranya gimana? maklum new bee heheehe..e.e
                      say ingin menampilkan report dengan range, misalnya tanggal 1 - 5 nov 2006
                      jadi ada pake start date dan end date gitu... ada ide

                      Ahmad Zakki <zakki@mandalaair. <mailto:zakki%40mandalaair.com> com> wrote:
                      Kalo mao passing parameter dari vb ke cr pake function selectionformula

                      _____

                      From: vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com
                      [mailto:vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com] On
                      Behalf Of
                      Heriyanto KO
                      Sent: Tuesday, November 07, 2006 8:59 AM
                      To: vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com
                      Subject: [vb-indo] Help.... CR select expert date Formula..urgent

                      temen2,saya dalam masalah nih...

                      gimana caranya passing parameter dari vb ke cr 8.5
                      dan bisa gak sih kita mengambil nilai dari formula ato parameter yang ada di
                      report dari program vb?

                      NB: saya pake sql server 200+vb 6+ cr *.5

                      ---------------------------------
                      Sponsored Link

                      Try Netflix today! With plans starting at only $5.99 a month what are you
                      waiting for?

                      [Non-text portions of this message have been removed]

                      [Non-text portions of this message have been removed]





                      ---------------------------------
                      Everyone is raving about the all-new Yahoo! Mail.

                      [Non-text portions of this message have been removed]





                      [Non-text portions of this message have been removed]
                    • Heriyanto KO
                      g dah coba tapi masih ada error the remaining text does not appear to be part of formula sytaxnya : Dim Report As New CrystalReport5 Dim rs As
                      Message 10 of 29 , Nov 6, 2006
                      • 0 Attachment
                        g dah coba tapi masih ada error "the remaining text does not appear to be part of formula"

                        sytaxnya :

                        Dim Report As New CrystalReport5
                        Dim rs As ADODB.Recordset
                        Dim conn As New ADODB.Connection
                        Private Sub Form_Load()

                        Set rs = New Recordset
                        Dim q As String
                        conn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=hery;Initial Catalog=latihan;Data Source=HERY"

                        rs.Open "Select * from transaksi", conn, adOpenForwardOnly, adLockReadOnly

                        Report.Database.SetDataSource rs, 3


                        Dim tes1, tes2 As String
                        tes1 = "1"
                        tes2 = "19"

                        Report.GroupSelectionFormula = "{ado.noTransaksi} between '" & tes1 & "' and '" & tes2 & "'"

                        Screen.MousePointer = vbHourglass
                        CRViewer1.ReportSource = Report
                        CRViewer1.ViewReport
                        Screen.MousePointer = vbDefault

                        End Sub
                        Private Sub CRViewer1_PrintButtonClicked(UseDefault As Boolean)
                        Report.PrinterSetup (Me.hWnd)
                        End Sub

                        Private Sub Form_Resize()
                        CRViewer1.Zoom 100
                        CRViewer1.Top = 0
                        CRViewer1.Left = 0
                        CRViewer1.Height = ScaleHeight
                        CRViewer1.Width = ScaleWidth

                        End Sub
                        Private Sub Form_Unload(Cancel As Integer)
                        If rs.State = True Then rs.Close
                        Set rs = Nothing
                        conn.Close
                        Unload Me
                        End Sub

                        ada ya salah ya?

                        Ahmad Zakki <zakki@...> wrote: Caranya :

                        Cr.SelectionFormula = "{nama_query_table.namafield}='" & nama_param & "'"

                        Nah kalo pake start date - end date pake perintah between

                        Cr.SelectionFormula = "{nama_query_table.namafield} between '" & nama_param1
                        & "' and '" & nama_param2 & "'"

                        _____

                        From: vb-indo@yahoogroups.com [mailto:vb-indo@yahoogroups.com] On Behalf Of
                        Heriyanto KO
                        Sent: Tuesday, November 07, 2006 10:16 AM
                        To: vb-indo@yahoogroups.com
                        Subject: RE: [vb-indo] Help.... CR select expert date Formula..urgent

                        caranya gimana? maklum new bee heheehe..e.e
                        say ingin menampilkan report dengan range, misalnya tanggal 1 - 5 nov 2006
                        jadi ada pake start date dan end date gitu... ada ide

                        Ahmad Zakki <zakki@mandalaair. <mailto:zakki%40mandalaair.com> com> wrote:
                        Kalo mao passing parameter dari vb ke cr pake function selectionformula

                        _____

                        From: vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com
                        [mailto:vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com] On
                        Behalf Of
                        Heriyanto KO
                        Sent: Tuesday, November 07, 2006 8:59 AM
                        To: vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com
                        Subject: [vb-indo] Help.... CR select expert date Formula..urgent

                        temen2,saya dalam masalah nih...

                        gimana caranya passing parameter dari vb ke cr 8.5
                        dan bisa gak sih kita mengambil nilai dari formula ato parameter yang ada di
                        report dari program vb?

                        NB: saya pake sql server 200+vb 6+ cr *.5

                        ---------------------------------
                        Sponsored Link

                        Try Netflix today! With plans starting at only $5.99 a month what are you
                        waiting for?

                        [Non-text portions of this message have been removed]

                        [Non-text portions of this message have been removed]

                        ---------------------------------
                        Everyone is raving about the all-new Yahoo! Mail.

                        [Non-text portions of this message have been removed]

                        [Non-text portions of this message have been removed]






                        ---------------------------------
                        Want to start your own business? Learn how on Yahoo! Small Business.

                        [Non-text portions of this message have been removed]
                      • Ahmad Zakki
                        Kalo pake tanggal kalo gak salah gak pake kutip tunggal ( ) _____ From: vb-indo@yahoogroups.com [mailto:vb-indo@yahoogroups.com] On Behalf Of Heriyanto KO
                        Message 11 of 29 , Nov 6, 2006
                        • 0 Attachment
                          Kalo pake tanggal kalo gak salah gak pake kutip tunggal (')



                          _____

                          From: vb-indo@yahoogroups.com [mailto:vb-indo@yahoogroups.com] On Behalf Of
                          Heriyanto KO
                          Sent: Tuesday, November 07, 2006 11:40 AM
                          To: vb-indo@yahoogroups.com
                          Subject: RE: [vb-indo] Help.... CR select expert date Formula..urgent



                          g dah coba tapi masih ada error "the remaining text does not appear to be
                          part of formula"

                          sytaxnya :

                          Dim Report As New CrystalReport5
                          Dim rs As ADODB.Recordset
                          Dim conn As New ADODB.Connection
                          Private Sub Form_Load()

                          Set rs = New Recordset
                          Dim q As String
                          conn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User
                          ID=sa;Password=hery;Initial Catalog=latihan;Data Source=HERY"

                          rs.Open "Select * from transaksi", conn, adOpenForwardOnly, adLockReadOnly

                          Report.Database.SetDataSource rs, 3


                          Dim tes1, tes2 As String
                          tes1 = "1"
                          tes2 = "19"

                          Report.GroupSelectionFormula = "{ado.noTransaksi} between '" & tes1 & "' and
                          '" & tes2 & "'"

                          Screen.MousePointer = vbHourglass
                          CRViewer1.ReportSource = Report
                          CRViewer1.ViewReport
                          Screen.MousePointer = vbDefault

                          End Sub
                          Private Sub CRViewer1_PrintButtonClicked(UseDefault As Boolean)
                          Report.PrinterSetup (Me.hWnd)
                          End Sub

                          Private Sub Form_Resize()
                          CRViewer1.Zoom 100
                          CRViewer1.Top = 0
                          CRViewer1.Left = 0
                          CRViewer1.Height = ScaleHeight
                          CRViewer1.Width = ScaleWidth

                          End Sub
                          Private Sub Form_Unload(Cancel As Integer)
                          If rs.State = True Then rs.Close
                          Set rs = Nothing
                          conn.Close
                          Unload Me
                          End Sub

                          ada ya salah ya?

                          Ahmad Zakki <zakki@mandalaair. <mailto:zakki%40mandalaair.com> com> wrote:
                          Caranya :

                          Cr.SelectionFormula = "{nama_query_table.namafield}='" & nama_param & "'"

                          Nah kalo pake start date - end date pake perintah between

                          Cr.SelectionFormula = "{nama_query_table.namafield} between '" & nama_param1
                          & "' and '" & nama_param2 & "'"

                          _____

                          From: vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com
                          [mailto:vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com] On
                          Behalf Of
                          Heriyanto KO
                          Sent: Tuesday, November 07, 2006 10:16 AM
                          To: vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com
                          Subject: RE: [vb-indo] Help.... CR select expert date Formula..urgent

                          caranya gimana? maklum new bee heheehe..e.e
                          say ingin menampilkan report dengan range, misalnya tanggal 1 - 5 nov 2006
                          jadi ada pake start date dan end date gitu... ada ide

                          Ahmad Zakki <zakki@mandalaair. <mailto:zakki%40mandalaair.com> com> wrote:
                          Kalo mao passing parameter dari vb ke cr pake function selectionformula

                          _____

                          From: vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com
                          [mailto:vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com] On
                          Behalf Of
                          Heriyanto KO
                          Sent: Tuesday, November 07, 2006 8:59 AM
                          To: vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com
                          Subject: [vb-indo] Help.... CR select expert date Formula..urgent

                          temen2,saya dalam masalah nih...

                          gimana caranya passing parameter dari vb ke cr 8.5
                          dan bisa gak sih kita mengambil nilai dari formula ato parameter yang ada di
                          report dari program vb?

                          NB: saya pake sql server 200+vb 6+ cr *.5

                          ---------------------------------
                          Sponsored Link

                          Try Netflix today! With plans starting at only $5.99 a month what are you
                          waiting for?

                          [Non-text portions of this message have been removed]

                          [Non-text portions of this message have been removed]

                          ---------------------------------
                          Everyone is raving about the all-new Yahoo! Mail.

                          [Non-text portions of this message have been removed]

                          [Non-text portions of this message have been removed]





                          ---------------------------------
                          Want to start your own business? Learn how on Yahoo! Small Business.

                          [Non-text portions of this message have been removed]





                          [Non-text portions of this message have been removed]
                        • Privida Kristiono
                          Kalau pakai Active Data, Anda tidak perlu menggunakan formula lagi, karena formula bisa dimasukan ke dalam query di visual basic, recordset yang kita kirim ke
                          Message 12 of 29 , Nov 7, 2006
                          • 0 Attachment
                            Kalau pakai Active Data,
                            Anda tidak perlu menggunakan formula lagi, karena
                            formula bisa dimasukan ke dalam query di visual basic,
                            recordset yang kita kirim ke Report seharusnya
                            recordset yang sudah matang, tinggal ditampilkan saja.

                            strQ="Select * from transaksi " & _
                            "Where noTransaksi between '" & Test1 "' And " & _
                            "'" & Test2 "'"

                            rs.Open "Select * from transaksi", conn,
                            adOpenForwardOnly, adLockReadOnly

                            Salam,

                            --- Ahmad Zakki <zakki@...> wrote:

                            > Kalo pake tanggal kalo gak salah gak pake kutip
                            > tunggal (')
                            >
                            >
                            >
                            > _____
                            >
                            > From: vb-indo@yahoogroups.com
                            > [mailto:vb-indo@yahoogroups.com] On Behalf Of
                            > Heriyanto KO
                            > Sent: Tuesday, November 07, 2006 11:40 AM
                            > To: vb-indo@yahoogroups.com
                            > Subject: RE: [vb-indo] Help.... CR select expert
                            > date Formula..urgent
                            >
                            >
                            >
                            > g dah coba tapi masih ada error "the remaining text
                            > does not appear to be
                            > part of formula"
                            >
                            > sytaxnya :
                            >
                            > Dim Report As New CrystalReport5
                            > Dim rs As ADODB.Recordset
                            > Dim conn As New ADODB.Connection
                            > Private Sub Form_Load()
                            >
                            > Set rs = New Recordset
                            > Dim q As String
                            > conn.Open "Provider=SQLOLEDB.1;Persist Security
                            > Info=False;User
                            > ID=sa;Password=hery;Initial Catalog=latihan;Data
                            > Source=HERY"
                            >
                            > rs.Open "Select * from transaksi", conn,
                            > adOpenForwardOnly, adLockReadOnly
                            >
                            > Report.Database.SetDataSource rs, 3
                            >
                            >
                            > Dim tes1, tes2 As String
                            > tes1 = "1"
                            > tes2 = "19"
                            >
                            > Report.GroupSelectionFormula = "{ado.noTransaksi}
                            > between '" & tes1 & "' and
                            > '" & tes2 & "'"
                            >
                            > Screen.MousePointer = vbHourglass
                            > CRViewer1.ReportSource = Report
                            > CRViewer1.ViewReport
                            > Screen.MousePointer = vbDefault
                            >
                            > End Sub
                            > Private Sub CRViewer1_PrintButtonClicked(UseDefault
                            > As Boolean)
                            > Report.PrinterSetup (Me.hWnd)
                            > End Sub
                            >
                            > Private Sub Form_Resize()
                            > CRViewer1.Zoom 100
                            > CRViewer1.Top = 0
                            > CRViewer1.Left = 0
                            > CRViewer1.Height = ScaleHeight
                            > CRViewer1.Width = ScaleWidth
                            >
                            > End Sub
                            > Private Sub Form_Unload(Cancel As Integer)
                            > If rs.State = True Then rs.Close
                            > Set rs = Nothing
                            > conn.Close
                            > Unload Me
                            > End Sub
                            >
                            > ada ya salah ya?
                            >
                            > Ahmad Zakki <zakki@mandalaair.
                            > <mailto:zakki%40mandalaair.com> com> wrote:
                            > Caranya :
                            >
                            > Cr.SelectionFormula =
                            > "{nama_query_table.namafield}='" & nama_param & "'"
                            >
                            > Nah kalo pake start date - end date pake perintah
                            > between
                            >
                            > Cr.SelectionFormula = "{nama_query_table.namafield}
                            > between '" & nama_param1
                            > & "' and '" & nama_param2 & "'"
                            >
                            > _____
                            >
                            > From: vb-indo@yahoogroups
                            > <mailto:vb-indo%40yahoogroups.com> .com
                            > [mailto:vb-indo@yahoogroups
                            > <mailto:vb-indo%40yahoogroups.com> .com] On
                            > Behalf Of
                            > Heriyanto KO
                            > Sent: Tuesday, November 07, 2006 10:16 AM
                            > To: vb-indo@yahoogroups
                            > <mailto:vb-indo%40yahoogroups.com> .com
                            > Subject: RE: [vb-indo] Help.... CR select expert
                            > date Formula..urgent
                            >
                            > caranya gimana? maklum new bee heheehe..e.e
                            > say ingin menampilkan report dengan range, misalnya
                            > tanggal 1 - 5 nov 2006
                            > jadi ada pake start date dan end date gitu... ada
                            > ide
                            >
                            > Ahmad Zakki <zakki@mandalaair.
                            > <mailto:zakki%40mandalaair.com> com> wrote:
                            > Kalo mao passing parameter dari vb ke cr pake
                            > function selectionformula
                            >
                            > _____
                            >
                            > From: vb-indo@yahoogroups
                            > <mailto:vb-indo%40yahoogroups.com> .com
                            > [mailto:vb-indo@yahoogroups
                            > <mailto:vb-indo%40yahoogroups.com> .com] On
                            > Behalf Of
                            > Heriyanto KO
                            > Sent: Tuesday, November 07, 2006 8:59 AM
                            > To: vb-indo@yahoogroups
                            > <mailto:vb-indo%40yahoogroups.com> .com
                            > Subject: [vb-indo] Help.... CR select expert date
                            > Formula..urgent
                            >
                            > temen2,saya dalam masalah nih...
                            >
                            > gimana caranya passing parameter dari vb ke cr 8.5
                            > dan bisa gak sih kita mengambil nilai dari formula
                            > ato parameter yang ada di
                            > report dari program vb?
                            >
                            > NB: saya pake sql server 200+vb 6+ cr *.5
                            >
                            > ---------------------------------
                            > Sponsored Link
                            >
                            > Try Netflix today! With plans starting at only $5.99
                            > a month what are you
                            > waiting for?
                            >
                            > [Non-text portions of this message have been
                            > removed]
                            >
                            > [Non-text portions of this message have been
                            > removed]
                            >
                            > ---------------------------------
                            > Everyone is raving about the all-new Yahoo! Mail.
                            >
                            > [Non-text portions of this message have been
                            > removed]
                            >
                            > [Non-text portions of this message have been
                            > removed]
                            >
                            >
                            >
                            >
                            >
                            > ---------------------------------
                            > Want to start your own business? Learn how on Yahoo!
                            > Small Business.
                            >
                            > [Non-text portions of this message have been
                            > removed]
                            >
                            >
                            >
                            >
                            >
                            > [Non-text portions of this message have been
                            > removed]
                            >
                            >





                            ____________________________________________________________________________________
                            Sponsored Link

                            Free Uniden 5.8GHz Phone System with Packet8 Internet Phone Service
                            http://www.getpacket8.net/yahoo2
                          • Privida Kristiono
                            Sorry ada yang salah ketik di kode programnya yang benar begini strQ= Select * from transaksi & _ Where noTransaksi between & Test1 And & _ &
                            Message 13 of 29 , Nov 7, 2006
                            • 0 Attachment
                              Sorry ada yang salah ketik di kode programnya
                              yang benar begini

                              strQ="Select * from transaksi " & _
                              "Where noTransaksi between '" & Test1 "' And " & _
                              "'" & Test2 "'"

                              rs.Open strQ, conn,
                              adOpenForwardOnly, adLockReadOnly

                              Salam,

                              >Kalau pakai Active Data,
                              >Anda tidak perlu menggunakan formula lagi, karena
                              >formula bisa dimasukan ke dalam query di visual
                              >basic,
                              >recordset yang kita kirim ke Report seharusnya
                              >recordset yang sudah matang, tinggal ditampilkan
                              >saja.
                              >
                              >strQ="Select * from transaksi " & _
                              >"Where noTransaksi between '" & Test1 "' And " & _
                              >"'" & Test2 "'"
                              >
                              >rs.Open "Select * from transaksi", conn,
                              >adOpenForwardOnly, adLockReadOnly
                              >
                              >Salam,


                              --- Privida Kristiono <privida@...> wrote:

                              > Kalau pakai Active Data,
                              > Anda tidak perlu menggunakan formula lagi, karena
                              > formula bisa dimasukan ke dalam query di visual
                              > basic,
                              > recordset yang kita kirim ke Report seharusnya
                              > recordset yang sudah matang, tinggal ditampilkan
                              > saja.
                              >
                              > strQ="Select * from transaksi " & _
                              > "Where noTransaksi between '" & Test1 "' And " & _
                              >
                              > "'" & Test2 "'"
                              >
                              > rs.Open "Select * from transaksi", conn,
                              > adOpenForwardOnly, adLockReadOnly
                              >
                              > Salam,
                              >
                              > --- Ahmad Zakki <zakki@...> wrote:
                              >
                              > > Kalo pake tanggal kalo gak salah gak pake kutip
                              > > tunggal (')
                              > >
                              > >
                              > >
                              > > _____
                              > >
                              > > From: vb-indo@yahoogroups.com
                              > > [mailto:vb-indo@yahoogroups.com] On Behalf Of
                              > > Heriyanto KO
                              > > Sent: Tuesday, November 07, 2006 11:40 AM
                              > > To: vb-indo@yahoogroups.com
                              > > Subject: RE: [vb-indo] Help.... CR select expert
                              > > date Formula..urgent
                              > >
                              > >
                              > >
                              > > g dah coba tapi masih ada error "the remaining
                              > text
                              > > does not appear to be
                              > > part of formula"
                              > >
                              > > sytaxnya :
                              > >
                              > > Dim Report As New CrystalReport5
                              > > Dim rs As ADODB.Recordset
                              > > Dim conn As New ADODB.Connection
                              > > Private Sub Form_Load()
                              > >
                              > > Set rs = New Recordset
                              > > Dim q As String
                              > > conn.Open "Provider=SQLOLEDB.1;Persist Security
                              > > Info=False;User
                              > > ID=sa;Password=hery;Initial Catalog=latihan;Data
                              > > Source=HERY"
                              > >
                              > > rs.Open "Select * from transaksi", conn,
                              > > adOpenForwardOnly, adLockReadOnly
                              > >
                              > > Report.Database.SetDataSource rs, 3
                              > >
                              > >
                              > > Dim tes1, tes2 As String
                              > > tes1 = "1"
                              > > tes2 = "19"
                              > >
                              > > Report.GroupSelectionFormula = "{ado.noTransaksi}
                              > > between '" & tes1 & "' and
                              > > '" & tes2 & "'"
                              > >
                              > > Screen.MousePointer = vbHourglass
                              > > CRViewer1.ReportSource = Report
                              > > CRViewer1.ViewReport
                              > > Screen.MousePointer = vbDefault
                              > >
                              > > End Sub
                              > > Private Sub
                              > CRViewer1_PrintButtonClicked(UseDefault
                              > > As Boolean)
                              > > Report.PrinterSetup (Me.hWnd)
                              > > End Sub
                              > >
                              > > Private Sub Form_Resize()
                              > > CRViewer1.Zoom 100
                              > > CRViewer1.Top = 0
                              > > CRViewer1.Left = 0
                              > > CRViewer1.Height = ScaleHeight
                              > > CRViewer1.Width = ScaleWidth
                              > >
                              > > End Sub
                              > > Private Sub Form_Unload(Cancel As Integer)
                              > > If rs.State = True Then rs.Close
                              > > Set rs = Nothing
                              > > conn.Close
                              > > Unload Me
                              > > End Sub
                              > >
                              > > ada ya salah ya?
                              > >
                              > > Ahmad Zakki <zakki@mandalaair.
                              > > <mailto:zakki%40mandalaair.com> com> wrote:
                              > > Caranya :
                              > >
                              > > Cr.SelectionFormula =
                              > > "{nama_query_table.namafield}='" & nama_param &
                              > "'"
                              > >
                              > > Nah kalo pake start date - end date pake perintah
                              > > between
                              > >
                              > > Cr.SelectionFormula =
                              > "{nama_query_table.namafield}
                              > > between '" & nama_param1
                              > > & "' and '" & nama_param2 & "'"
                              > >
                              > > _____
                              > >
                              > > From: vb-indo@yahoogroups
                              > > <mailto:vb-indo%40yahoogroups.com> .com
                              > > [mailto:vb-indo@yahoogroups
                              > > <mailto:vb-indo%40yahoogroups.com> .com] On
                              > > Behalf Of
                              > > Heriyanto KO
                              > > Sent: Tuesday, November 07, 2006 10:16 AM
                              > > To: vb-indo@yahoogroups
                              > > <mailto:vb-indo%40yahoogroups.com> .com
                              > > Subject: RE: [vb-indo] Help.... CR select expert
                              > > date Formula..urgent
                              > >
                              > > caranya gimana? maklum new bee heheehe..e.e
                              > > say ingin menampilkan report dengan range,
                              > misalnya
                              > > tanggal 1 - 5 nov 2006
                              > > jadi ada pake start date dan end date gitu... ada
                              > > ide
                              > >
                              > > Ahmad Zakki <zakki@mandalaair.
                              > > <mailto:zakki%40mandalaair.com> com> wrote:
                              > > Kalo mao passing parameter dari vb ke cr pake
                              > > function selectionformula
                              > >
                              > > _____
                              > >
                              > > From: vb-indo@yahoogroups
                              > > <mailto:vb-indo%40yahoogroups.com> .com
                              > > [mailto:vb-indo@yahoogroups
                              > > <mailto:vb-indo%40yahoogroups.com> .com] On
                              > > Behalf Of
                              > > Heriyanto KO
                              > > Sent: Tuesday, November 07, 2006 8:59 AM
                              > > To: vb-indo@yahoogroups
                              > > <mailto:vb-indo%40yahoogroups.com> .com
                              > > Subject: [vb-indo] Help.... CR select expert date
                              > > Formula..urgent
                              > >
                              > > temen2,saya dalam masalah nih...
                              > >
                              > > gimana caranya passing parameter dari vb ke cr 8.5
                              > > dan bisa gak sih kita mengambil nilai dari formula
                              > > ato parameter yang ada di
                              > > report dari program vb?
                              > >
                              > > NB: saya pake sql server 200+vb 6+ cr *.5
                              > >
                              > > ---------------------------------
                              > > Sponsored Link
                              > >
                              > > Try Netflix today! With plans starting at only
                              > $5.99
                              > > a month what are you
                              > > waiting for?
                              > >
                              > > [Non-text portions of this message have been
                              > > removed]
                              > >
                              > > [Non-text portions of this message have been
                              > > removed]
                              > >
                              > > ---------------------------------
                              > > Everyone is raving about the all-new Yahoo! Mail.
                              > >
                              > > [Non-text portions of this message have been
                              > > removed]
                              > >
                              > > [Non-text portions of this message have been
                              > > removed]
                              > >
                              > >
                              > >
                              > >
                              > >
                              > > ---------------------------------
                              > > Want to start your own business? Learn how on
                              > Yahoo!
                              > > Small Business.
                              > >
                              > > [Non-text portions of this message have been
                              > > removed]
                              > >
                              > >
                              > >
                              >
                              === message truncated ===





                              ____________________________________________________________________________________
                              Sponsored Link

                              Mortgage rates near historic lows:
                              $150,000 loan as low as $579/mo. Intro-*Terms
                              https://www2.nextag.com/
                            • Heriyanto KO
                              Iya juga ya,Thanks buat masukannya... oh ya saya mau nanya lagi nih... saya agak bingung ttg perbedaan dan keuntungan pembuatan report dengan mode active
                              Message 14 of 29 , Nov 7, 2006
                              • 0 Attachment
                                Iya juga ya,Thanks buat masukannya...
                                oh ya saya mau nanya lagi nih... saya agak bingung ttg perbedaan dan keuntungan pembuatan report dengan mode active designer & ocx so saya coba dua2nya.

                                1.saya coba buat report dari 3 tabel dari cr 8.5 dan sukses
                                trus saya coba buat report yg sama dari active desinger VB tapi kok gak bisa ya? ada error "server has not yet been opened" padahal kalo dari 1 tabel bisa..kira2 ada apa ya?
                                itu koneksi/datasource nya saya pake other->odbc
                                trus kalo pake project->odbc error messagenya "File not found"

                                2.Kalo buat report pake ocx (crystal report control) kok kalo ada perubahan data, reportnya gak refresh so perubahan data tidak terupdate. Cara refreshnya gimana ya?

                                Privida Kristiono <privida@...> wrote: Sorry ada yang salah ketik di kode programnya
                                yang benar begini

                                strQ="Select * from transaksi " & _
                                "Where noTransaksi between '" & Test1 "' And " & _
                                "'" & Test2 "'"

                                rs.Open strQ, conn,
                                adOpenForwardOnly, adLockReadOnly

                                Salam,

                                >Kalau pakai Active Data,
                                >Anda tidak perlu menggunakan formula lagi, karena
                                >formula bisa dimasukan ke dalam query di visual
                                >basic,
                                >recordset yang kita kirim ke Report seharusnya
                                >recordset yang sudah matang, tinggal ditampilkan
                                >saja.
                                >
                                >strQ="Select * from transaksi " & _
                                >"Where noTransaksi between '" & Test1 "' And " & _
                                >"'" & Test2 "'"
                                >
                                >rs.Open "Select * from transaksi", conn,
                                >adOpenForwardOnly, adLockReadOnly
                                >
                                >Salam,

                                --- Privida Kristiono <privida@...> wrote:

                                > Kalau pakai Active Data,
                                > Anda tidak perlu menggunakan formula lagi, karena
                                > formula bisa dimasukan ke dalam query di visual
                                > basic,
                                > recordset yang kita kirim ke Report seharusnya
                                > recordset yang sudah matang, tinggal ditampilkan
                                > saja.
                                >
                                > strQ="Select * from transaksi " & _
                                > "Where noTransaksi between '" & Test1 "' And " & _
                                >
                                > "'" & Test2 "'"
                                >
                                > rs.Open "Select * from transaksi", conn,
                                > adOpenForwardOnly, adLockReadOnly
                                >
                                > Salam,
                                >
                                > --- Ahmad Zakki <zakki@...> wrote:
                                >
                                > > Kalo pake tanggal kalo gak salah gak pake kutip
                                > > tunggal (')
                                > >
                                > >
                                > >
                                > > _____
                                > >
                                > > From: vb-indo@yahoogroups.com
                                > > [mailto:vb-indo@yahoogroups.com] On Behalf Of
                                > > Heriyanto KO
                                > > Sent: Tuesday, November 07, 2006 11:40 AM
                                > > To: vb-indo@yahoogroups.com
                                > > Subject: RE: [vb-indo] Help.... CR select expert
                                > > date Formula..urgent
                                > >
                                > >
                                > >
                                > > g dah coba tapi masih ada error "the remaining
                                > text
                                > > does not appear to be
                                > > part of formula"
                                > >
                                > > sytaxnya :
                                > >
                                > > Dim Report As New CrystalReport5
                                > > Dim rs As ADODB.Recordset
                                > > Dim conn As New ADODB.Connection
                                > > Private Sub Form_Load()
                                > >
                                > > Set rs = New Recordset
                                > > Dim q As String
                                > > conn.Open "Provider=SQLOLEDB.1;Persist Security
                                > > Info=False;User
                                > > ID=sa;Password=hery;Initial Catalog=latihan;Data
                                > > Source=HERY"
                                > >
                                > > rs.Open "Select * from transaksi", conn,
                                > > adOpenForwardOnly, adLockReadOnly
                                > >
                                > > Report.Database.SetDataSource rs, 3
                                > >
                                > >
                                > > Dim tes1, tes2 As String
                                > > tes1 = "1"
                                > > tes2 = "19"
                                > >
                                > > Report.GroupSelectionFormula = "{ado.noTransaksi}
                                > > between '" & tes1 & "' and
                                > > '" & tes2 & "'"
                                > >
                                > > Screen.MousePointer = vbHourglass
                                > > CRViewer1.ReportSource = Report
                                > > CRViewer1.ViewReport
                                > > Screen.MousePointer = vbDefault
                                > >
                                > > End Sub
                                > > Private Sub
                                > CRViewer1_PrintButtonClicked(UseDefault
                                > > As Boolean)
                                > > Report.PrinterSetup (Me.hWnd)
                                > > End Sub
                                > >
                                > > Private Sub Form_Resize()
                                > > CRViewer1.Zoom 100
                                > > CRViewer1.Top = 0
                                > > CRViewer1.Left = 0
                                > > CRViewer1.Height = ScaleHeight
                                > > CRViewer1.Width = ScaleWidth
                                > >
                                > > End Sub
                                > > Private Sub Form_Unload(Cancel As Integer)
                                > > If rs.State = True Then rs.Close
                                > > Set rs = Nothing
                                > > conn.Close
                                > > Unload Me
                                > > End Sub
                                > >
                                > > ada ya salah ya?
                                > >
                                > > Ahmad Zakki <zakki@mandalaair.
                                > > <mailto:zakki%40mandalaair.com> com> wrote:
                                > > Caranya :
                                > >
                                > > Cr.SelectionFormula =
                                > > "{nama_query_table.namafield}='" & nama_param &
                                > "'"
                                > >
                                > > Nah kalo pake start date - end date pake perintah
                                > > between
                                > >
                                > > Cr.SelectionFormula =
                                > "{nama_query_table.namafield}
                                > > between '" & nama_param1
                                > > & "' and '" & nama_param2 & "'"
                                > >
                                > > _____
                                > >
                                > > From: vb-indo@yahoogroups
                                > > <mailto:vb-indo%40yahoogroups.com> .com
                                > > [mailto:vb-indo@yahoogroups
                                > > <mailto:vb-indo%40yahoogroups.com> .com] On
                                > > Behalf Of
                                > > Heriyanto KO
                                > > Sent: Tuesday, November 07, 2006 10:16 AM
                                > > To: vb-indo@yahoogroups
                                > > <mailto:vb-indo%40yahoogroups.com> .com
                                > > Subject: RE: [vb-indo] Help.... CR select expert
                                > > date Formula..urgent
                                > >
                                > > caranya gimana? maklum new bee heheehe..e.e
                                > > say ingin menampilkan report dengan range,
                                > misalnya
                                > > tanggal 1 - 5 nov 2006
                                > > jadi ada pake start date dan end date gitu... ada
                                > > ide
                                > >
                                > > Ahmad Zakki <zakki@mandalaair.
                                > > <mailto:zakki%40mandalaair.com> com> wrote:
                                > > Kalo mao passing parameter dari vb ke cr pake
                                > > function selectionformula
                                > >
                                > > _____
                                > >
                                > > From: vb-indo@yahoogroups
                                > > <mailto:vb-indo%40yahoogroups.com> .com
                                > > [mailto:vb-indo@yahoogroups
                                > > <mailto:vb-indo%40yahoogroups.com> .com] On
                                > > Behalf Of
                                > > Heriyanto KO
                                > > Sent: Tuesday, November 07, 2006 8:59 AM
                                > > To: vb-indo@yahoogroups
                                > > <mailto:vb-indo%40yahoogroups.com> .com
                                > > Subject: [vb-indo] Help.... CR select expert date
                                > > Formula..urgent
                                > >
                                > > temen2,saya dalam masalah nih...
                                > >
                                > > gimana caranya passing parameter dari vb ke cr 8.5
                                > > dan bisa gak sih kita mengambil nilai dari formula
                                > > ato parameter yang ada di
                                > > report dari program vb?
                                > >
                                > > NB: saya pake sql server 200+vb 6+ cr *.5
                                > >
                                > > ---------------------------------
                                > > Sponsored Link
                                > >
                                > > Try Netflix today! With plans starting at only
                                > $5.99
                                > > a month what are you
                                > > waiting for?
                                > >
                                > > [Non-text portions of this message have been
                                > > removed]
                                > >
                                > > [Non-text portions of this message have been
                                > > removed]
                                > >
                                > > ---------------------------------
                                > > Everyone is raving about the all-new Yahoo! Mail.
                                > >
                                > > [Non-text portions of this message have been
                                > > removed]
                                > >
                                > > [Non-text portions of this message have been
                                > > removed]
                                > >
                                > >
                                > >
                                > >
                                > >
                                > > ---------------------------------
                                > > Want to start your own business? Learn how on
                                > Yahoo!
                                > > Small Business.
                                > >
                                > > [Non-text portions of this message have been
                                > > removed]
                                > >
                                > >
                                > >
                                >
                                === message truncated ===

                                __________________________________________________________
                                Sponsored Link

                                Mortgage rates near historic lows:
                                $150,000 loan as low as $579/mo. Intro-*Terms
                                https://www2.nextag.com/





                                ---------------------------------
                                Everyone is raving about the all-new Yahoo! Mail.

                                [Non-text portions of this message have been removed]
                              • Ahmad Zakki
                                Saya juga ngalamin permasalahan yang sama untuk nomor 1. setau saya kalo pake active designer printer-nya ngambil default dari windows, jadi gak bisa
                                Message 15 of 29 , Nov 7, 2006
                                • 0 Attachment
                                  Saya juga ngalamin permasalahan yang sama untuk nomor 1. setau saya kalo
                                  pake active designer printer-nya ngambil default dari windows, jadi gak bisa
                                  diganti-ganti.

                                  Kalo untuk nomor 2 tambahkan perintah ini :



                                  cr.RetrieveDataFiles 'refresh data

                                  cr.Action = 1 'print report



                                  _____

                                  From: vb-indo@yahoogroups.com [mailto:vb-indo@yahoogroups.com] On Behalf Of
                                  Heriyanto KO
                                  Sent: Wednesday, November 08, 2006 8:31 AM
                                  To: vb-indo@yahoogroups.com
                                  Subject: RE: [vb-indo] Help.... CR select expert date Formula..urgent



                                  Iya juga ya,Thanks buat masukannya...
                                  oh ya saya mau nanya lagi nih... saya agak bingung ttg perbedaan dan
                                  keuntungan pembuatan report dengan mode active designer & ocx so saya coba
                                  dua2nya.

                                  1.saya coba buat report dari 3 tabel dari cr 8.5 dan sukses
                                  trus saya coba buat report yg sama dari active desinger VB tapi kok gak bisa
                                  ya? ada error "server has not yet been opened" padahal kalo dari 1 tabel
                                  bisa..kira2 ada apa ya?
                                  itu koneksi/datasource nya saya pake other->odbc
                                  trus kalo pake project->odbc error messagenya "File not found"

                                  2.Kalo buat report pake ocx (crystal report control) kok kalo ada perubahan
                                  data, reportnya gak refresh so perubahan data tidak terupdate. Cara
                                  refreshnya gimana ya?

                                  Privida Kristiono <privida@yahoo. <mailto:privida%40yahoo.com> com> wrote:
                                  Sorry ada yang salah ketik di kode programnya
                                  yang benar begini

                                  strQ="Select * from transaksi " & _
                                  "Where noTransaksi between '" & Test1 "' And " & _
                                  "'" & Test2 "'"

                                  rs.Open strQ, conn,
                                  adOpenForwardOnly, adLockReadOnly

                                  Salam,

                                  >Kalau pakai Active Data,
                                  >Anda tidak perlu menggunakan formula lagi, karena
                                  >formula bisa dimasukan ke dalam query di visual
                                  >basic,
                                  >recordset yang kita kirim ke Report seharusnya
                                  >recordset yang sudah matang, tinggal ditampilkan
                                  >saja.
                                  >
                                  >strQ="Select * from transaksi " & _
                                  >"Where noTransaksi between '" & Test1 "' And " & _
                                  >"'" & Test2 "'"
                                  >
                                  >rs.Open "Select * from transaksi", conn,
                                  >adOpenForwardOnly, adLockReadOnly
                                  >
                                  >Salam,

                                  --- Privida Kristiono <privida@yahoo. <mailto:privida%40yahoo.com> com>
                                  wrote:

                                  > Kalau pakai Active Data,
                                  > Anda tidak perlu menggunakan formula lagi, karena
                                  > formula bisa dimasukan ke dalam query di visual
                                  > basic,
                                  > recordset yang kita kirim ke Report seharusnya
                                  > recordset yang sudah matang, tinggal ditampilkan
                                  > saja.
                                  >
                                  > strQ="Select * from transaksi " & _
                                  > "Where noTransaksi between '" & Test1 "' And " & _
                                  >
                                  > "'" & Test2 "'"
                                  >
                                  > rs.Open "Select * from transaksi", conn,
                                  > adOpenForwardOnly, adLockReadOnly
                                  >
                                  > Salam,
                                  >
                                  > --- Ahmad Zakki <zakki@mandalaair. <mailto:zakki%40mandalaair.com> com>
                                  wrote:
                                  >
                                  > > Kalo pake tanggal kalo gak salah gak pake kutip
                                  > > tunggal (')
                                  > >
                                  > >
                                  > >
                                  > > _____
                                  > >
                                  > > From: vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com
                                  > > [mailto:vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com] On
                                  Behalf Of
                                  > > Heriyanto KO
                                  > > Sent: Tuesday, November 07, 2006 11:40 AM
                                  > > To: vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com
                                  > > Subject: RE: [vb-indo] Help.... CR select expert
                                  > > date Formula..urgent
                                  > >
                                  > >
                                  > >
                                  > > g dah coba tapi masih ada error "the remaining
                                  > text
                                  > > does not appear to be
                                  > > part of formula"
                                  > >
                                  > > sytaxnya :
                                  > >
                                  > > Dim Report As New CrystalReport5
                                  > > Dim rs As ADODB.Recordset
                                  > > Dim conn As New ADODB.Connection
                                  > > Private Sub Form_Load()
                                  > >
                                  > > Set rs = New Recordset
                                  > > Dim q As String
                                  > > conn.Open "Provider=SQLOLEDB.1;Persist Security
                                  > > Info=False;User
                                  > > ID=sa;Password=hery;Initial Catalog=latihan;Data
                                  > > Source=HERY"
                                  > >
                                  > > rs.Open "Select * from transaksi", conn,
                                  > > adOpenForwardOnly, adLockReadOnly
                                  > >
                                  > > Report.Database.SetDataSource rs, 3
                                  > >
                                  > >
                                  > > Dim tes1, tes2 As String
                                  > > tes1 = "1"
                                  > > tes2 = "19"
                                  > >
                                  > > Report.GroupSelectionFormula = "{ado.noTransaksi}
                                  > > between '" & tes1 & "' and
                                  > > '" & tes2 & "'"
                                  > >
                                  > > Screen.MousePointer = vbHourglass
                                  > > CRViewer1.ReportSource = Report
                                  > > CRViewer1.ViewReport
                                  > > Screen.MousePointer = vbDefault
                                  > >
                                  > > End Sub
                                  > > Private Sub
                                  > CRViewer1_PrintButtonClicked(UseDefault
                                  > > As Boolean)
                                  > > Report.PrinterSetup (Me.hWnd)
                                  > > End Sub
                                  > >
                                  > > Private Sub Form_Resize()
                                  > > CRViewer1.Zoom 100
                                  > > CRViewer1.Top = 0
                                  > > CRViewer1.Left = 0
                                  > > CRViewer1.Height = ScaleHeight
                                  > > CRViewer1.Width = ScaleWidth
                                  > >
                                  > > End Sub
                                  > > Private Sub Form_Unload(Cancel As Integer)
                                  > > If rs.State = True Then rs.Close
                                  > > Set rs = Nothing
                                  > > conn.Close
                                  > > Unload Me
                                  > > End Sub
                                  > >
                                  > > ada ya salah ya?
                                  > >
                                  > > Ahmad Zakki <zakki@mandalaair.
                                  > > <mailto:zakki%40mandalaair.com> com> wrote:
                                  > > Caranya :
                                  > >
                                  > > Cr.SelectionFormula =
                                  > > "{nama_query_table.namafield}='" & nama_param &
                                  > "'"
                                  > >
                                  > > Nah kalo pake start date - end date pake perintah
                                  > > between
                                  > >
                                  > > Cr.SelectionFormula =
                                  > "{nama_query_table.namafield}
                                  > > between '" & nama_param1
                                  > > & "' and '" & nama_param2 & "'"
                                  > >
                                  > > _____
                                  > >
                                  > > From: vb-indo@yahoogroups
                                  > > <mailto:vb-indo%40yahoogroups.com> .com
                                  > > [mailto:vb-indo@yahoogroups
                                  > > <mailto:vb-indo%40yahoogroups.com> .com] On
                                  > > Behalf Of
                                  > > Heriyanto KO
                                  > > Sent: Tuesday, November 07, 2006 10:16 AM
                                  > > To: vb-indo@yahoogroups
                                  > > <mailto:vb-indo%40yahoogroups.com> .com
                                  > > Subject: RE: [vb-indo] Help.... CR select expert
                                  > > date Formula..urgent
                                  > >
                                  > > caranya gimana? maklum new bee heheehe..e.e
                                  > > say ingin menampilkan report dengan range,
                                  > misalnya
                                  > > tanggal 1 - 5 nov 2006
                                  > > jadi ada pake start date dan end date gitu... ada
                                  > > ide
                                  > >
                                  > > Ahmad Zakki <zakki@mandalaair.
                                  > > <mailto:zakki%40mandalaair.com> com> wrote:
                                  > > Kalo mao passing parameter dari vb ke cr pake
                                  > > function selectionformula
                                  > >
                                  > > _____
                                  > >
                                  > > From: vb-indo@yahoogroups
                                  > > <mailto:vb-indo%40yahoogroups.com> .com
                                  > > [mailto:vb-indo@yahoogroups
                                  > > <mailto:vb-indo%40yahoogroups.com> .com] On
                                  > > Behalf Of
                                  > > Heriyanto KO
                                  > > Sent: Tuesday, November 07, 2006 8:59 AM
                                  > > To: vb-indo@yahoogroups
                                  > > <mailto:vb-indo%40yahoogroups.com> .com
                                  > > Subject: [vb-indo] Help.... CR select expert date
                                  > > Formula..urgent
                                  > >
                                  > > temen2,saya dalam masalah nih...
                                  > >
                                  > > gimana caranya passing parameter dari vb ke cr 8.5
                                  > > dan bisa gak sih kita mengambil nilai dari formula
                                  > > ato parameter yang ada di
                                  > > report dari program vb?
                                  > >
                                  > > NB: saya pake sql server 200+vb 6+ cr *.5
                                  > >
                                  > > ---------------------------------
                                  > > Sponsored Link
                                  > >
                                  > > Try Netflix today! With plans starting at only
                                  > $5.99
                                  > > a month what are you
                                  > > waiting for?
                                  > >
                                  > > [Non-text portions of this message have been
                                  > > removed]
                                  > >
                                  > > [Non-text portions of this message have been
                                  > > removed]
                                  > >
                                  > > ---------------------------------
                                  > > Everyone is raving about the all-new Yahoo! Mail.
                                  > >
                                  > > [Non-text portions of this message have been
                                  > > removed]
                                  > >
                                  > > [Non-text portions of this message have been
                                  > > removed]
                                  > >
                                  > >
                                  > >
                                  > >
                                  > >
                                  > > ---------------------------------
                                  > > Want to start your own business? Learn how on
                                  > Yahoo!
                                  > > Small Business.
                                  > >
                                  > > [Non-text portions of this message have been
                                  > > removed]
                                  > >
                                  > >
                                  > >
                                  >
                                  === message truncated ===

                                  __________________________________________________________
                                  Sponsored Link

                                  Mortgage rates near historic lows:
                                  $150,000 loan as low as $579/mo. Intro-*Terms
                                  https://www2. <https://www2.nextag.com/> nextag.com/




                                  ---------------------------------
                                  Everyone is raving about the all-new Yahoo! Mail.

                                  [Non-text portions of this message have been removed]





                                  [Non-text portions of this message have been removed]
                                • Heriyanto KO
                                  error mas, erro msgnya can not open sql server apa ada masalah dengan koneksinya ya? Ahmad Zakki wrote:
                                  Message 16 of 29 , Nov 7, 2006
                                  • 0 Attachment
                                    error mas,
                                    erro msgnya "can not open sql server"
                                    apa ada masalah dengan koneksinya ya?

                                    Ahmad Zakki <zakki@...> wrote: Saya juga ngalamin permasalahan yang sama untuk nomor 1. setau saya kalo
                                    pake active designer printer-nya ngambil default dari windows, jadi gak bisa
                                    diganti-ganti.

                                    Kalo untuk nomor 2 tambahkan perintah ini :

                                    cr.RetrieveDataFiles 'refresh data

                                    cr.Action = 1 'print report

                                    _____

                                    From: vb-indo@yahoogroups.com [mailto:vb-indo@yahoogroups.com] On Behalf Of
                                    Heriyanto KO
                                    Sent: Wednesday, November 08, 2006 8:31 AM
                                    To: vb-indo@yahoogroups.com
                                    Subject: RE: [vb-indo] Help.... CR select expert date Formula..urgent

                                    Iya juga ya,Thanks buat masukannya...
                                    oh ya saya mau nanya lagi nih... saya agak bingung ttg perbedaan dan
                                    keuntungan pembuatan report dengan mode active designer & ocx so saya coba
                                    dua2nya.

                                    1.saya coba buat report dari 3 tabel dari cr 8.5 dan sukses
                                    trus saya coba buat report yg sama dari active desinger VB tapi kok gak bisa
                                    ya? ada error "server has not yet been opened" padahal kalo dari 1 tabel
                                    bisa..kira2 ada apa ya?
                                    itu koneksi/datasource nya saya pake other->odbc
                                    trus kalo pake project->odbc error messagenya "File not found"

                                    2.Kalo buat report pake ocx (crystal report control) kok kalo ada perubahan
                                    data, reportnya gak refresh so perubahan data tidak terupdate. Cara
                                    refreshnya gimana ya?

                                    Privida Kristiono <privida@yahoo. <mailto:privida%40yahoo.com> com> wrote:
                                    Sorry ada yang salah ketik di kode programnya
                                    yang benar begini

                                    strQ="Select * from transaksi " & _
                                    "Where noTransaksi between '" & Test1 "' And " & _
                                    "'" & Test2 "'"

                                    rs.Open strQ, conn,
                                    adOpenForwardOnly, adLockReadOnly

                                    Salam,

                                    >Kalau pakai Active Data,
                                    >Anda tidak perlu menggunakan formula lagi, karena
                                    >formula bisa dimasukan ke dalam query di visual
                                    >basic,
                                    >recordset yang kita kirim ke Report seharusnya
                                    >recordset yang sudah matang, tinggal ditampilkan
                                    >saja.
                                    >
                                    >strQ="Select * from transaksi " & _
                                    >"Where noTransaksi between '" & Test1 "' And " & _
                                    >"'" & Test2 "'"
                                    >
                                    >rs.Open "Select * from transaksi", conn,
                                    >adOpenForwardOnly, adLockReadOnly
                                    >
                                    >Salam,

                                    --- Privida Kristiono <privida@yahoo. <mailto:privida%40yahoo.com> com>
                                    wrote:

                                    > Kalau pakai Active Data,
                                    > Anda tidak perlu menggunakan formula lagi, karena
                                    > formula bisa dimasukan ke dalam query di visual
                                    > basic,
                                    > recordset yang kita kirim ke Report seharusnya
                                    > recordset yang sudah matang, tinggal ditampilkan
                                    > saja.
                                    >
                                    > strQ="Select * from transaksi " & _
                                    > "Where noTransaksi between '" & Test1 "' And " & _
                                    >
                                    > "'" & Test2 "'"
                                    >
                                    > rs.Open "Select * from transaksi", conn,
                                    > adOpenForwardOnly, adLockReadOnly
                                    >
                                    > Salam,
                                    >
                                    > --- Ahmad Zakki <zakki@mandalaair. <mailto:zakki%40mandalaair.com> com>
                                    wrote:
                                    >
                                    > > Kalo pake tanggal kalo gak salah gak pake kutip
                                    > > tunggal (')
                                    > >
                                    > >
                                    > >
                                    > > _____
                                    > >
                                    > > From: vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com
                                    > > [mailto:vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com] On
                                    Behalf Of
                                    > > Heriyanto KO
                                    > > Sent: Tuesday, November 07, 2006 11:40 AM
                                    > > To: vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com
                                    > > Subject: RE: [vb-indo] Help.... CR select expert
                                    > > date Formula..urgent
                                    > >
                                    > >
                                    > >
                                    > > g dah coba tapi masih ada error "the remaining
                                    > text
                                    > > does not appear to be
                                    > > part of formula"
                                    > >
                                    > > sytaxnya :
                                    > >
                                    > > Dim Report As New CrystalReport5
                                    > > Dim rs As ADODB.Recordset
                                    > > Dim conn As New ADODB.Connection
                                    > > Private Sub Form_Load()
                                    > >
                                    > > Set rs = New Recordset
                                    > > Dim q As String
                                    > > conn.Open "Provider=SQLOLEDB.1;Persist Security
                                    > > Info=False;User
                                    > > ID=sa;Password=hery;Initial Catalog=latihan;Data
                                    > > Source=HERY"
                                    > >
                                    > > rs.Open "Select * from transaksi", conn,
                                    > > adOpenForwardOnly, adLockReadOnly
                                    > >
                                    > > Report.Database.SetDataSource rs, 3
                                    > >
                                    > >
                                    > > Dim tes1, tes2 As String
                                    > > tes1 = "1"
                                    > > tes2 = "19"
                                    > >
                                    > > Report.GroupSelectionFormula = "{ado.noTransaksi}
                                    > > between '" & tes1 & "' and
                                    > > '" & tes2 & "'"
                                    > >
                                    > > Screen.MousePointer = vbHourglass
                                    > > CRViewer1.ReportSource = Report
                                    > > CRViewer1.ViewReport
                                    > > Screen.MousePointer = vbDefault
                                    > >
                                    > > End Sub
                                    > > Private Sub
                                    > CRViewer1_PrintButtonClicked(UseDefault
                                    > > As Boolean)
                                    > > Report.PrinterSetup (Me.hWnd)
                                    > > End Sub
                                    > >
                                    > > Private Sub Form_Resize()
                                    > > CRViewer1.Zoom 100
                                    > > CRViewer1.Top = 0
                                    > > CRViewer1.Left = 0
                                    > > CRViewer1.Height = ScaleHeight
                                    > > CRViewer1.Width = ScaleWidth
                                    > >
                                    > > End Sub
                                    > > Private Sub Form_Unload(Cancel As Integer)
                                    > > If rs.State = True Then rs.Close
                                    > > Set rs = Nothing
                                    > > conn.Close
                                    > > Unload Me
                                    > > End Sub
                                    > >
                                    > > ada ya salah ya?
                                    > >
                                    > > Ahmad Zakki <zakki@mandalaair.
                                    > > <mailto:zakki%40mandalaair.com> com> wrote:
                                    > > Caranya :
                                    > >
                                    > > Cr.SelectionFormula =
                                    > > "{nama_query_table.namafield}='" & nama_param &
                                    > "'"
                                    > >
                                    > > Nah kalo pake start date - end date pake perintah
                                    > > between
                                    > >
                                    > > Cr.SelectionFormula =
                                    > "{nama_query_table.namafield}
                                    > > between '" & nama_param1
                                    > > & "' and '" & nama_param2 & "'"
                                    > >
                                    > > _____
                                    > >
                                    > > From: vb-indo@yahoogroups
                                    > > <mailto:vb-indo%40yahoogroups.com> .com
                                    > > [mailto:vb-indo@yahoogroups
                                    > > <mailto:vb-indo%40yahoogroups.com> .com] On
                                    > > Behalf Of
                                    > > Heriyanto KO
                                    > > Sent: Tuesday, November 07, 2006 10:16 AM
                                    > > To: vb-indo@yahoogroups
                                    > > <mailto:vb-indo%40yahoogroups.com> .com
                                    > > Subject: RE: [vb-indo] Help.... CR select expert
                                    > > date Formula..urgent
                                    > >
                                    > > caranya gimana? maklum new bee heheehe..e.e
                                    > > say ingin menampilkan report dengan range,
                                    > misalnya
                                    > > tanggal 1 - 5 nov 2006
                                    > > jadi ada pake start date dan end date gitu... ada
                                    > > ide
                                    > >
                                    > > Ahmad Zakki <zakki@mandalaair.
                                    > > <mailto:zakki%40mandalaair.com> com> wrote:
                                    > > Kalo mao passing parameter dari vb ke cr pake
                                    > > function selectionformula
                                    > >
                                    > > _____
                                    > >
                                    > > From: vb-indo@yahoogroups
                                    > > <mailto:vb-indo%40yahoogroups.com> .com
                                    > > [mailto:vb-indo@yahoogroups
                                    > > <mailto:vb-indo%40yahoogroups.com> .com] On
                                    > > Behalf Of
                                    > > Heriyanto KO
                                    > > Sent: Tuesday, November 07, 2006 8:59 AM
                                    > > To: vb-indo@yahoogroups
                                    > > <mailto:vb-indo%40yahoogroups.com> .com
                                    > > Subject: [vb-indo] Help.... CR select expert date
                                    > > Formula..urgent
                                    > >
                                    > > temen2,saya dalam masalah nih...
                                    > >
                                    > > gimana caranya passing parameter dari vb ke cr 8.5
                                    > > dan bisa gak sih kita mengambil nilai dari formula
                                    > > ato parameter yang ada di
                                    > > report dari program vb?
                                    > >
                                    > > NB: saya pake sql server 200+vb 6+ cr *.5
                                    > >
                                    > > ---------------------------------
                                    > > Sponsored Link
                                    > >
                                    > > Try Netflix today! With plans starting at only
                                    > $5.99
                                    > > a month what are you
                                    > > waiting for?
                                    > >
                                    > > [Non-text portions of this message have been
                                    > > removed]
                                    > >
                                    > > [Non-text portions of this message have been
                                    > > removed]
                                    > >
                                    > > ---------------------------------
                                    > > Everyone is raving about the all-new Yahoo! Mail.
                                    > >
                                    > > [Non-text portions of this message have been
                                    > > removed]
                                    > >
                                    > > [Non-text portions of this message have been
                                    > > removed]
                                    > >
                                    > >
                                    > >
                                    > >
                                    > >
                                    > > ---------------------------------
                                    > > Want to start your own business? Learn how on
                                    > Yahoo!
                                    > > Small Business.
                                    > >
                                    > > [Non-text portions of this message have been
                                    > > removed]
                                    > >
                                    > >
                                    > >
                                    >
                                    === message truncated ===

                                    __________________________________________________________
                                    Sponsored Link

                                    Mortgage rates near historic lows:
                                    $150,000 loan as low as $579/mo. Intro-*Terms
                                    https://www2. <https://www2.nextag.com/> nextag.com/

                                    ---------------------------------
                                    Everyone is raving about the all-new Yahoo! Mail.

                                    [Non-text portions of this message have been removed]

                                    [Non-text portions of this message have been removed]






                                    ---------------------------------
                                    Sponsored Link

                                    Get an Online or Campus degree - Associate's, Bachelor's, or Master's - in less than one year.

                                    [Non-text portions of this message have been removed]
                                  • Ahmad Zakki
                                    Biasanya kalo itu memang koneksinya _____ From: vb-indo@yahoogroups.com [mailto:vb-indo@yahoogroups.com] On Behalf Of Heriyanto KO Sent: Wednesday, November
                                    Message 17 of 29 , Nov 7, 2006
                                    • 0 Attachment
                                      Biasanya kalo itu memang koneksinya



                                      _____

                                      From: vb-indo@yahoogroups.com [mailto:vb-indo@yahoogroups.com] On Behalf Of
                                      Heriyanto KO
                                      Sent: Wednesday, November 08, 2006 10:58 AM
                                      To: vb-indo@yahoogroups.com
                                      Subject: RE: [vb-indo] Help.... CR select expert date Formula..urgent



                                      error mas,
                                      erro msgnya "can not open sql server"
                                      apa ada masalah dengan koneksinya ya?

                                      Ahmad Zakki <zakki@mandalaair. <mailto:zakki%40mandalaair.com> com> wrote:
                                      Saya juga ngalamin permasalahan yang sama untuk nomor 1. setau saya kalo
                                      pake active designer printer-nya ngambil default dari windows, jadi gak bisa
                                      diganti-ganti.

                                      Kalo untuk nomor 2 tambahkan perintah ini :

                                      cr.RetrieveDataFiles 'refresh data

                                      cr.Action = 1 'print report

                                      _____

                                      From: vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com
                                      [mailto:vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com] On
                                      Behalf Of
                                      Heriyanto KO
                                      Sent: Wednesday, November 08, 2006 8:31 AM
                                      To: vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com
                                      Subject: RE: [vb-indo] Help.... CR select expert date Formula..urgent

                                      Iya juga ya,Thanks buat masukannya...
                                      oh ya saya mau nanya lagi nih... saya agak bingung ttg perbedaan dan
                                      keuntungan pembuatan report dengan mode active designer & ocx so saya coba
                                      dua2nya.

                                      1.saya coba buat report dari 3 tabel dari cr 8.5 dan sukses
                                      trus saya coba buat report yg sama dari active desinger VB tapi kok gak bisa
                                      ya? ada error "server has not yet been opened" padahal kalo dari 1 tabel
                                      bisa..kira2 ada apa ya?
                                      itu koneksi/datasource nya saya pake other->odbc
                                      trus kalo pake project->odbc error messagenya "File not found"

                                      2.Kalo buat report pake ocx (crystal report control) kok kalo ada perubahan
                                      data, reportnya gak refresh so perubahan data tidak terupdate. Cara
                                      refreshnya gimana ya?

                                      Privida Kristiono <privida@yahoo. <mailto:privida%40yahoo.com> com> wrote:
                                      Sorry ada yang salah ketik di kode programnya
                                      yang benar begini

                                      strQ="Select * from transaksi " & _
                                      "Where noTransaksi between '" & Test1 "' And " & _
                                      "'" & Test2 "'"

                                      rs.Open strQ, conn,
                                      adOpenForwardOnly, adLockReadOnly

                                      Salam,

                                      >Kalau pakai Active Data,
                                      >Anda tidak perlu menggunakan formula lagi, karena
                                      >formula bisa dimasukan ke dalam query di visual
                                      >basic,
                                      >recordset yang kita kirim ke Report seharusnya
                                      >recordset yang sudah matang, tinggal ditampilkan
                                      >saja.
                                      >
                                      >strQ="Select * from transaksi " & _
                                      >"Where noTransaksi between '" & Test1 "' And " & _
                                      >"'" & Test2 "'"
                                      >
                                      >rs.Open "Select * from transaksi", conn,
                                      >adOpenForwardOnly, adLockReadOnly
                                      >
                                      >Salam,

                                      --- Privida Kristiono <privida@yahoo. <mailto:privida%40yahoo.com> com>
                                      wrote:

                                      > Kalau pakai Active Data,
                                      > Anda tidak perlu menggunakan formula lagi, karena
                                      > formula bisa dimasukan ke dalam query di visual
                                      > basic,
                                      > recordset yang kita kirim ke Report seharusnya
                                      > recordset yang sudah matang, tinggal ditampilkan
                                      > saja.
                                      >
                                      > strQ="Select * from transaksi " & _
                                      > "Where noTransaksi between '" & Test1 "' And " & _
                                      >
                                      > "'" & Test2 "'"
                                      >
                                      > rs.Open "Select * from transaksi", conn,
                                      > adOpenForwardOnly, adLockReadOnly
                                      >
                                      > Salam,
                                      >
                                      > --- Ahmad Zakki <zakki@mandalaair. <mailto:zakki%40mandalaair.com> com>
                                      wrote:
                                      >
                                      > > Kalo pake tanggal kalo gak salah gak pake kutip
                                      > > tunggal (')
                                      > >
                                      > >
                                      > >
                                      > > _____
                                      > >
                                      > > From: vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com
                                      > > [mailto:vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com] On
                                      Behalf Of
                                      > > Heriyanto KO
                                      > > Sent: Tuesday, November 07, 2006 11:40 AM
                                      > > To: vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com
                                      > > Subject: RE: [vb-indo] Help.... CR select expert
                                      > > date Formula..urgent
                                      > >
                                      > >
                                      > >
                                      > > g dah coba tapi masih ada error "the remaining
                                      > text
                                      > > does not appear to be
                                      > > part of formula"
                                      > >
                                      > > sytaxnya :
                                      > >
                                      > > Dim Report As New CrystalReport5
                                      > > Dim rs As ADODB.Recordset
                                      > > Dim conn As New ADODB.Connection
                                      > > Private Sub Form_Load()
                                      > >
                                      > > Set rs = New Recordset
                                      > > Dim q As String
                                      > > conn.Open "Provider=SQLOLEDB.1;Persist Security
                                      > > Info=False;User
                                      > > ID=sa;Password=hery;Initial Catalog=latihan;Data
                                      > > Source=HERY"
                                      > >
                                      > > rs.Open "Select * from transaksi", conn,
                                      > > adOpenForwardOnly, adLockReadOnly
                                      > >
                                      > > Report.Database.SetDataSource rs, 3
                                      > >
                                      > >
                                      > > Dim tes1, tes2 As String
                                      > > tes1 = "1"
                                      > > tes2 = "19"
                                      > >
                                      > > Report.GroupSelectionFormula = "{ado.noTransaksi}
                                      > > between '" & tes1 & "' and
                                      > > '" & tes2 & "'"
                                      > >
                                      > > Screen.MousePointer = vbHourglass
                                      > > CRViewer1.ReportSource = Report
                                      > > CRViewer1.ViewReport
                                      > > Screen.MousePointer = vbDefault
                                      > >
                                      > > End Sub
                                      > > Private Sub
                                      > CRViewer1_PrintButtonClicked(UseDefault
                                      > > As Boolean)
                                      > > Report.PrinterSetup (Me.hWnd)
                                      > > End Sub
                                      > >
                                      > > Private Sub Form_Resize()
                                      > > CRViewer1.Zoom 100
                                      > > CRViewer1.Top = 0
                                      > > CRViewer1.Left = 0
                                      > > CRViewer1.Height = ScaleHeight
                                      > > CRViewer1.Width = ScaleWidth
                                      > >
                                      > > End Sub
                                      > > Private Sub Form_Unload(Cancel As Integer)
                                      > > If rs.State = True Then rs.Close
                                      > > Set rs = Nothing
                                      > > conn.Close
                                      > > Unload Me
                                      > > End Sub
                                      > >
                                      > > ada ya salah ya?
                                      > >
                                      > > Ahmad Zakki <zakki@mandalaair.
                                      > > <mailto:zakki%40mandalaair.com> com> wrote:
                                      > > Caranya :
                                      > >
                                      > > Cr.SelectionFormula =
                                      > > "{nama_query_table.namafield}='" & nama_param &
                                      > "'"
                                      > >
                                      > > Nah kalo pake start date - end date pake perintah
                                      > > between
                                      > >
                                      > > Cr.SelectionFormula =
                                      > "{nama_query_table.namafield}
                                      > > between '" & nama_param1
                                      > > & "' and '" & nama_param2 & "'"
                                      > >
                                      > > _____
                                      > >
                                      > > From: vb-indo@yahoogroups
                                      > > <mailto:vb-indo%40yahoogroups.com> .com
                                      > > [mailto:vb-indo@yahoogroups
                                      > > <mailto:vb-indo%40yahoogroups.com> .com] On
                                      > > Behalf Of
                                      > > Heriyanto KO
                                      > > Sent: Tuesday, November 07, 2006 10:16 AM
                                      > > To: vb-indo@yahoogroups
                                      > > <mailto:vb-indo%40yahoogroups.com> .com
                                      > > Subject: RE: [vb-indo] Help.... CR select expert
                                      > > date Formula..urgent
                                      > >
                                      > > caranya gimana? maklum new bee heheehe..e.e
                                      > > say ingin menampilkan report dengan range,
                                      > misalnya
                                      > > tanggal 1 - 5 nov 2006
                                      > > jadi ada pake start date dan end date gitu... ada
                                      > > ide
                                      > >
                                      > > Ahmad Zakki <zakki@mandalaair.
                                      > > <mailto:zakki%40mandalaair.com> com> wrote:
                                      > > Kalo mao passing parameter dari vb ke cr pake
                                      > > function selectionformula
                                      > >
                                      > > _____
                                      > >
                                      > > From: vb-indo@yahoogroups
                                      > > <mailto:vb-indo%40yahoogroups.com> .com
                                      > > [mailto:vb-indo@yahoogroups
                                      > > <mailto:vb-indo%40yahoogroups.com> .com] On
                                      > > Behalf Of
                                      > > Heriyanto KO
                                      > > Sent: Tuesday, November 07, 2006 8:59 AM
                                      > > To: vb-indo@yahoogroups
                                      > > <mailto:vb-indo%40yahoogroups.com> .com
                                      > > Subject: [vb-indo] Help.... CR select expert date
                                      > > Formula..urgent
                                      > >
                                      > > temen2,saya dalam masalah nih...
                                      > >
                                      > > gimana caranya passing parameter dari vb ke cr 8.5
                                      > > dan bisa gak sih kita mengambil nilai dari formula
                                      > > ato parameter yang ada di
                                      > > report dari program vb?
                                      > >
                                      > > NB: saya pake sql server 200+vb 6+ cr *.5
                                      > >
                                      > > ---------------------------------
                                      > > Sponsored Link
                                      > >
                                      > > Try Netflix today! With plans starting at only
                                      > $5.99
                                      > > a month what are you
                                      > > waiting for?
                                      > >
                                      > > [Non-text portions of this message have been
                                      > > removed]
                                      > >
                                      > > [Non-text portions of this message have been
                                      > > removed]
                                      > >
                                      > > ---------------------------------
                                      > > Everyone is raving about the all-new Yahoo! Mail.
                                      > >
                                      > > [Non-text portions of this message have been
                                      > > removed]
                                      > >
                                      > > [Non-text portions of this message have been
                                      > > removed]
                                      > >
                                      > >
                                      > >
                                      > >
                                      > >
                                      > > ---------------------------------
                                      > > Want to start your own business? Learn how on
                                      > Yahoo!
                                      > > Small Business.
                                      > >
                                      > > [Non-text portions of this message have been
                                      > > removed]
                                      > >
                                      > >
                                      > >
                                      >
                                      === message truncated ===

                                      __________________________________________________________
                                      Sponsored Link

                                      Mortgage rates near historic lows:
                                      $150,000 loan as low as $579/mo. Intro-*Terms
                                      https://www2. <https://www2. <https://www2.nextag.com/> nextag.com/>
                                      nextag.com/

                                      ---------------------------------
                                      Everyone is raving about the all-new Yahoo! Mail.

                                      [Non-text portions of this message have been removed]

                                      [Non-text portions of this message have been removed]





                                      ---------------------------------
                                      Sponsored Link

                                      Get an Online or Campus degree - Associate's, Bachelor's, or Master's - in
                                      less than one year.

                                      [Non-text portions of this message have been removed]





                                      [Non-text portions of this message have been removed]
                                    • Heriyanto KO
                                      ada contoh gak? kmrn g coba dg koding dibawah ini, kalo utk 1 table gak error tapi kalo 2 tabel jadi error... Dim Report As New CrystalReport2 Dim conn As New
                                      Message 18 of 29 , Nov 7, 2006
                                      • 0 Attachment
                                        ada contoh gak?
                                        kmrn g coba dg koding dibawah ini, kalo utk 1 table gak error
                                        tapi kalo 2 tabel jadi error...

                                        Dim Report As New CrystalReport2
                                        Dim conn As New ADODB.Connection
                                        Dim recset As New ADODB.Recordset
                                        Dim q
                                        Dim rs As New Recordset
                                        Private Sub Form_Load()

                                        conn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=hery;Initial Catalog=latihan;Data Source=hery"

                                        rs.Open "Select * from transaksi", conn, adOpenDynamic, adLockOptimistic

                                        Report.DiscardSavedData
                                        Report.Database.SetDataSource rs, 3

                                        Screen.MousePointer = vbHourglass
                                        CRViewer1.ReportSource = Report
                                        CRViewer1.ViewReport
                                        Screen.MousePointer = vbDefault

                                        End Sub

                                        Private Sub Form_Resize()
                                        CRViewer1.Top = 0
                                        CRViewer1.Left = 0
                                        CRViewer1.Height = ScaleHeight
                                        CRViewer1.Width = ScaleWidth

                                        End Sub


                                        Ahmad Zakki <zakki@...> wrote: Biasanya kalo itu memang koneksinya

                                        _____

                                        From: vb-indo@yahoogroups.com [mailto:vb-indo@yahoogroups.com] On Behalf Of
                                        Heriyanto KO
                                        Sent: Wednesday, November 08, 2006 10:58 AM
                                        To: vb-indo@yahoogroups.com
                                        Subject: RE: [vb-indo] Help.... CR select expert date Formula..urgent

                                        error mas,
                                        erro msgnya "can not open sql server"
                                        apa ada masalah dengan koneksinya ya?

                                        Ahmad Zakki <zakki@mandalaair. <mailto:zakki%40mandalaair.com> com> wrote:
                                        Saya juga ngalamin permasalahan yang sama untuk nomor 1. setau saya kalo
                                        pake active designer printer-nya ngambil default dari windows, jadi gak bisa
                                        diganti-ganti.

                                        Kalo untuk nomor 2 tambahkan perintah ini :

                                        cr.RetrieveDataFiles 'refresh data

                                        cr.Action = 1 'print report

                                        _____

                                        From: vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com
                                        [mailto:vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com] On
                                        Behalf Of
                                        Heriyanto KO
                                        Sent: Wednesday, November 08, 2006 8:31 AM
                                        To: vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com
                                        Subject: RE: [vb-indo] Help.... CR select expert date Formula..urgent

                                        Iya juga ya,Thanks buat masukannya...
                                        oh ya saya mau nanya lagi nih... saya agak bingung ttg perbedaan dan
                                        keuntungan pembuatan report dengan mode active designer & ocx so saya coba
                                        dua2nya.

                                        1.saya coba buat report dari 3 tabel dari cr 8.5 dan sukses
                                        trus saya coba buat report yg sama dari active desinger VB tapi kok gak bisa
                                        ya? ada error "server has not yet been opened" padahal kalo dari 1 tabel
                                        bisa..kira2 ada apa ya?
                                        itu koneksi/datasource nya saya pake other->odbc
                                        trus kalo pake project->odbc error messagenya "File not found"

                                        2.Kalo buat report pake ocx (crystal report control) kok kalo ada perubahan
                                        data, reportnya gak refresh so perubahan data tidak terupdate. Cara
                                        refreshnya gimana ya?

                                        Privida Kristiono <privida@yahoo. <mailto:privida%40yahoo.com> com> wrote:
                                        Sorry ada yang salah ketik di kode programnya
                                        yang benar begini

                                        strQ="Select * from transaksi " & _
                                        "Where noTransaksi between '" & Test1 "' And " & _
                                        "'" & Test2 "'"

                                        rs.Open strQ, conn,
                                        adOpenForwardOnly, adLockReadOnly

                                        Salam,

                                        >Kalau pakai Active Data,
                                        >Anda tidak perlu menggunakan formula lagi, karena
                                        >formula bisa dimasukan ke dalam query di visual
                                        >basic,
                                        >recordset yang kita kirim ke Report seharusnya
                                        >recordset yang sudah matang, tinggal ditampilkan
                                        >saja.
                                        >
                                        >strQ="Select * from transaksi " & _
                                        >"Where noTransaksi between '" & Test1 "' And " & _
                                        >"'" & Test2 "'"
                                        >
                                        >rs.Open "Select * from transaksi", conn,
                                        >adOpenForwardOnly, adLockReadOnly
                                        >
                                        >Salam,

                                        --- Privida Kristiono <privida@yahoo. <mailto:privida%40yahoo.com> com>
                                        wrote:

                                        > Kalau pakai Active Data,
                                        > Anda tidak perlu menggunakan formula lagi, karena
                                        > formula bisa dimasukan ke dalam query di visual
                                        > basic,
                                        > recordset yang kita kirim ke Report seharusnya
                                        > recordset yang sudah matang, tinggal ditampilkan
                                        > saja.
                                        >
                                        > strQ="Select * from transaksi " & _
                                        > "Where noTransaksi between '" & Test1 "' And " & _
                                        >
                                        > "'" & Test2 "'"
                                        >
                                        > rs.Open "Select * from transaksi", conn,
                                        > adOpenForwardOnly, adLockReadOnly
                                        >
                                        > Salam,
                                        >
                                        > --- Ahmad Zakki <zakki@mandalaair. <mailto:zakki%40mandalaair.com> com>
                                        wrote:
                                        >
                                        > > Kalo pake tanggal kalo gak salah gak pake kutip
                                        > > tunggal (')
                                        > >
                                        > >
                                        > >
                                        > > _____
                                        > >
                                        > > From: vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com
                                        > > [mailto:vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com] On
                                        Behalf Of
                                        > > Heriyanto KO
                                        > > Sent: Tuesday, November 07, 2006 11:40 AM
                                        > > To: vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com
                                        > > Subject: RE: [vb-indo] Help.... CR select expert
                                        > > date Formula..urgent
                                        > >
                                        > >
                                        > >
                                        > > g dah coba tapi masih ada error "the remaining
                                        > text
                                        > > does not appear to be
                                        > > part of formula"
                                        > >
                                        > > sytaxnya :
                                        > >
                                        > > Dim Report As New CrystalReport5
                                        > > Dim rs As ADODB.Recordset
                                        > > Dim conn As New ADODB.Connection
                                        > > Private Sub Form_Load()
                                        > >
                                        > > Set rs = New Recordset
                                        > > Dim q As String
                                        > > conn.Open "Provider=SQLOLEDB.1;Persist Security
                                        > > Info=False;User
                                        > > ID=sa;Password=hery;Initial Catalog=latihan;Data
                                        > > Source=HERY"
                                        > >
                                        > > rs.Open "Select * from transaksi", conn,
                                        > > adOpenForwardOnly, adLockReadOnly
                                        > >
                                        > > Report.Database.SetDataSource rs, 3
                                        > >
                                        > >
                                        > > Dim tes1, tes2 As String
                                        > > tes1 = "1"
                                        > > tes2 = "19"
                                        > >
                                        > > Report.GroupSelectionFormula = "{ado.noTransaksi}
                                        > > between '" & tes1 & "' and
                                        > > '" & tes2 & "'"
                                        > >
                                        > > Screen.MousePointer = vbHourglass
                                        > > CRViewer1.ReportSource = Report
                                        > > CRViewer1.ViewReport
                                        > > Screen.MousePointer = vbDefault
                                        > >
                                        > > End Sub
                                        > > Private Sub
                                        > CRViewer1_PrintButtonClicked(UseDefault
                                        > > As Boolean)
                                        > > Report.PrinterSetup (Me.hWnd)
                                        > > End Sub
                                        > >
                                        > > Private Sub Form_Resize()
                                        > > CRViewer1.Zoom 100
                                        > > CRViewer1.Top = 0
                                        > > CRViewer1.Left = 0
                                        > > CRViewer1.Height = ScaleHeight
                                        > > CRViewer1.Width = ScaleWidth
                                        > >
                                        > > End Sub
                                        > > Private Sub Form_Unload(Cancel As Integer)
                                        > > If rs.State = True Then rs.Close
                                        > > Set rs = Nothing
                                        > > conn.Close
                                        > > Unload Me
                                        > > End Sub
                                        > >
                                        > > ada ya salah ya?
                                        > >
                                        > > Ahmad Zakki <zakki@mandalaair.
                                        > > <mailto:zakki%40mandalaair.com> com> wrote:
                                        > > Caranya :
                                        > >
                                        > > Cr.SelectionFormula =
                                        > > "{nama_query_table.namafield}='" & nama_param &
                                        > "'"
                                        > >
                                        > > Nah kalo pake start date - end date pake perintah
                                        > > between
                                        > >
                                        > > Cr.SelectionFormula =
                                        > "{nama_query_table.namafield}
                                        > > between '" & nama_param1
                                        > > & "' and '" & nama_param2 & "'"
                                        > >
                                        > > _____
                                        > >
                                        > > From: vb-indo@yahoogroups
                                        > > <mailto:vb-indo%40yahoogroups.com> .com
                                        > > [mailto:vb-indo@yahoogroups
                                        > > <mailto:vb-indo%40yahoogroups.com> .com] On
                                        > > Behalf Of
                                        > > Heriyanto KO
                                        > > Sent: Tuesday, November 07, 2006 10:16 AM
                                        > > To: vb-indo@yahoogroups
                                        > > <mailto:vb-indo%40yahoogroups.com> .com
                                        > > Subject: RE: [vb-indo] Help.... CR select expert
                                        > > date Formula..urgent
                                        > >
                                        > > caranya gimana? maklum new bee heheehe..e.e
                                        > > say ingin menampilkan report dengan range,
                                        > misalnya
                                        > > tanggal 1 - 5 nov 2006
                                        > > jadi ada pake start date dan end date gitu... ada
                                        > > ide
                                        > >
                                        > > Ahmad Zakki <zakki@mandalaair.
                                        > > <mailto:zakki%40mandalaair.com> com> wrote:
                                        > > Kalo mao passing parameter dari vb ke cr pake
                                        > > function selectionformula
                                        > >
                                        > > _____
                                        > >
                                        > > From: vb-indo@yahoogroups
                                        > > <mailto:vb-indo%40yahoogroups.com> .com
                                        > > [mailto:vb-indo@yahoogroups
                                        > > <mailto:vb-indo%40yahoogroups.com> .com] On
                                        > > Behalf Of
                                        > > Heriyanto KO
                                        > > Sent: Tuesday, November 07, 2006 8:59 AM
                                        > > To: vb-indo@yahoogroups
                                        > > <mailto:vb-indo%40yahoogroups.com> .com
                                        > > Subject: [vb-indo] Help.... CR select expert date
                                        > > Formula..urgent
                                        > >
                                        > > temen2,saya dalam masalah nih...
                                        > >
                                        > > gimana caranya passing parameter dari vb ke cr 8.5
                                        > > dan bisa gak sih kita mengambil nilai dari formula
                                        > > ato parameter yang ada di
                                        > > report dari program vb?
                                        > >
                                        > > NB: saya pake sql server 200+vb 6+ cr *.5
                                        > >
                                        > > ---------------------------------
                                        > > Sponsored Link
                                        > >
                                        > > Try Netflix today! With plans starting at only
                                        > $5.99
                                        > > a month what are you
                                        > > waiting for?
                                        > >
                                        > > [Non-text portions of this message have been
                                        > > removed]
                                        > >
                                        > > [Non-text portions of this message have been
                                        > > removed]
                                        > >
                                        > > ---------------------------------
                                        > > Everyone is raving about the all-new Yahoo! Mail.
                                        > >
                                        > > [Non-text portions of this message have been
                                        > > removed]
                                        > >
                                        > > [Non-text portions of this message have been
                                        > > removed]
                                        > >
                                        > >
                                        > >
                                        > >
                                        > >
                                        > > ---------------------------------
                                        > > Want to start your own business? Learn how on
                                        > Yahoo!
                                        > > Small Business.
                                        > >
                                        > > [Non-text portions of this message have been
                                        > > removed]
                                        > >
                                        > >
                                        > >
                                        >
                                        === message truncated ===

                                        __________________________________________________________
                                        Sponsored Link

                                        Mortgage rates near historic lows:
                                        $150,000 loan as low as $579/mo. Intro-*Terms
                                        https://www2. <https://www2. <https://www2.nextag.com/> nextag.com/>
                                        nextag.com/

                                        ---------------------------------
                                        Everyone is raving about the all-new Yahoo! Mail.

                                        [Non-text portions of this message have been removed]

                                        [Non-text portions of this message have been removed]

                                        ---------------------------------
                                        Sponsored Link

                                        Get an Online or Campus degree - Associate's, Bachelor's, or Master's - in
                                        less than one year.

                                        [Non-text portions of this message have been removed]

                                        [Non-text portions of this message have been removed]






                                        ---------------------------------
                                        Want to start your own business? Learn how on Yahoo! Small Business.

                                        [Non-text portions of this message have been removed]
                                      • Ahmad Zakki
                                        Kalo pake active designer saya kurang tau cara ngakalin-nya. Saya biasanya pake ocx _____ From: vb-indo@yahoogroups.com [mailto:vb-indo@yahoogroups.com] On
                                        Message 19 of 29 , Nov 7, 2006
                                        • 0 Attachment
                                          Kalo pake active designer saya kurang tau cara ngakalin-nya. Saya biasanya
                                          pake ocx



                                          _____

                                          From: vb-indo@yahoogroups.com [mailto:vb-indo@yahoogroups.com] On Behalf Of
                                          Heriyanto KO
                                          Sent: Wednesday, November 08, 2006 1:18 PM
                                          To: vb-indo@yahoogroups.com
                                          Subject: RE: [vb-indo] Help.... CR select expert date Formula..urgent



                                          ada contoh gak?
                                          kmrn g coba dg koding dibawah ini, kalo utk 1 table gak error
                                          tapi kalo 2 tabel jadi error...

                                          Dim Report As New CrystalReport2
                                          Dim conn As New ADODB.Connection
                                          Dim recset As New ADODB.Recordset
                                          Dim q
                                          Dim rs As New Recordset
                                          Private Sub Form_Load()

                                          conn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User
                                          ID=sa;Password=hery;Initial Catalog=latihan;Data Source=hery"

                                          rs.Open "Select * from transaksi", conn, adOpenDynamic, adLockOptimistic

                                          Report.DiscardSavedData
                                          Report.Database.SetDataSource rs, 3

                                          Screen.MousePointer = vbHourglass
                                          CRViewer1.ReportSource = Report
                                          CRViewer1.ViewReport
                                          Screen.MousePointer = vbDefault

                                          End Sub

                                          Private Sub Form_Resize()
                                          CRViewer1.Top = 0
                                          CRViewer1.Left = 0
                                          CRViewer1.Height = ScaleHeight
                                          CRViewer1.Width = ScaleWidth

                                          End Sub


                                          Ahmad Zakki <zakki@mandalaair. <mailto:zakki%40mandalaair.com> com> wrote:
                                          Biasanya kalo itu memang koneksinya

                                          _____

                                          From: vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com
                                          [mailto:vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com] On
                                          Behalf Of
                                          Heriyanto KO
                                          Sent: Wednesday, November 08, 2006 10:58 AM
                                          To: vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com
                                          Subject: RE: [vb-indo] Help.... CR select expert date Formula..urgent

                                          error mas,
                                          erro msgnya "can not open sql server"
                                          apa ada masalah dengan koneksinya ya?

                                          Ahmad Zakki <zakki@mandalaair. <mailto:zakki%40mandalaair.com> com> wrote:
                                          Saya juga ngalamin permasalahan yang sama untuk nomor 1. setau saya kalo
                                          pake active designer printer-nya ngambil default dari windows, jadi gak bisa
                                          diganti-ganti.

                                          Kalo untuk nomor 2 tambahkan perintah ini :

                                          cr.RetrieveDataFiles 'refresh data

                                          cr.Action = 1 'print report

                                          _____

                                          From: vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com
                                          [mailto:vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com] On
                                          Behalf Of
                                          Heriyanto KO
                                          Sent: Wednesday, November 08, 2006 8:31 AM
                                          To: vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com
                                          Subject: RE: [vb-indo] Help.... CR select expert date Formula..urgent

                                          Iya juga ya,Thanks buat masukannya...
                                          oh ya saya mau nanya lagi nih... saya agak bingung ttg perbedaan dan
                                          keuntungan pembuatan report dengan mode active designer & ocx so saya coba
                                          dua2nya.

                                          1.saya coba buat report dari 3 tabel dari cr 8.5 dan sukses
                                          trus saya coba buat report yg sama dari active desinger VB tapi kok gak bisa
                                          ya? ada error "server has not yet been opened" padahal kalo dari 1 tabel
                                          bisa..kira2 ada apa ya?
                                          itu koneksi/datasource nya saya pake other->odbc
                                          trus kalo pake project->odbc error messagenya "File not found"

                                          2.Kalo buat report pake ocx (crystal report control) kok kalo ada perubahan
                                          data, reportnya gak refresh so perubahan data tidak terupdate. Cara
                                          refreshnya gimana ya?

                                          Privida Kristiono <privida@yahoo. <mailto:privida%40yahoo.com> com> wrote:
                                          Sorry ada yang salah ketik di kode programnya
                                          yang benar begini

                                          strQ="Select * from transaksi " & _
                                          "Where noTransaksi between '" & Test1 "' And " & _
                                          "'" & Test2 "'"

                                          rs.Open strQ, conn,
                                          adOpenForwardOnly, adLockReadOnly

                                          Salam,

                                          >Kalau pakai Active Data,
                                          >Anda tidak perlu menggunakan formula lagi, karena
                                          >formula bisa dimasukan ke dalam query di visual
                                          >basic,
                                          >recordset yang kita kirim ke Report seharusnya
                                          >recordset yang sudah matang, tinggal ditampilkan
                                          >saja.
                                          >
                                          >strQ="Select * from transaksi " & _
                                          >"Where noTransaksi between '" & Test1 "' And " & _
                                          >"'" & Test2 "'"
                                          >
                                          >rs.Open "Select * from transaksi", conn,
                                          >adOpenForwardOnly, adLockReadOnly
                                          >
                                          >Salam,

                                          --- Privida Kristiono <privida@yahoo. <mailto:privida%40yahoo.com> com>
                                          wrote:

                                          > Kalau pakai Active Data,
                                          > Anda tidak perlu menggunakan formula lagi, karena
                                          > formula bisa dimasukan ke dalam query di visual
                                          > basic,
                                          > recordset yang kita kirim ke Report seharusnya
                                          > recordset yang sudah matang, tinggal ditampilkan
                                          > saja.
                                          >
                                          > strQ="Select * from transaksi " & _
                                          > "Where noTransaksi between '" & Test1 "' And " & _
                                          >
                                          > "'" & Test2 "'"
                                          >
                                          > rs.Open "Select * from transaksi", conn,
                                          > adOpenForwardOnly, adLockReadOnly
                                          >
                                          > Salam,
                                          >
                                          > --- Ahmad Zakki <zakki@mandalaair. <mailto:zakki%40mandalaair.com> com>
                                          wrote:
                                          >
                                          > > Kalo pake tanggal kalo gak salah gak pake kutip
                                          > > tunggal (')
                                          > >
                                          > >
                                          > >
                                          > > _____
                                          > >
                                          > > From: vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com
                                          > > [mailto:vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com] On
                                          Behalf Of
                                          > > Heriyanto KO
                                          > > Sent: Tuesday, November 07, 2006 11:40 AM
                                          > > To: vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com
                                          > > Subject: RE: [vb-indo] Help.... CR select expert
                                          > > date Formula..urgent
                                          > >
                                          > >
                                          > >
                                          > > g dah coba tapi masih ada error "the remaining
                                          > text
                                          > > does not appear to be
                                          > > part of formula"
                                          > >
                                          > > sytaxnya :
                                          > >
                                          > > Dim Report As New CrystalReport5
                                          > > Dim rs As ADODB.Recordset
                                          > > Dim conn As New ADODB.Connection
                                          > > Private Sub Form_Load()
                                          > >
                                          > > Set rs = New Recordset
                                          > > Dim q As String
                                          > > conn.Open "Provider=SQLOLEDB.1;Persist Security
                                          > > Info=False;User
                                          > > ID=sa;Password=hery;Initial Catalog=latihan;Data
                                          > > Source=HERY"
                                          > >
                                          > > rs.Open "Select * from transaksi", conn,
                                          > > adOpenForwardOnly, adLockReadOnly
                                          > >
                                          > > Report.Database.SetDataSource rs, 3
                                          > >
                                          > >
                                          > > Dim tes1, tes2 As String
                                          > > tes1 = "1"
                                          > > tes2 = "19"
                                          > >
                                          > > Report.GroupSelectionFormula = "{ado.noTransaksi}
                                          > > between '" & tes1 & "' and
                                          > > '" & tes2 & "'"
                                          > >
                                          > > Screen.MousePointer = vbHourglass
                                          > > CRViewer1.ReportSource = Report
                                          > > CRViewer1.ViewReport
                                          > > Screen.MousePointer = vbDefault
                                          > >
                                          > > End Sub
                                          > > Private Sub
                                          > CRViewer1_PrintButtonClicked(UseDefault
                                          > > As Boolean)
                                          > > Report.PrinterSetup (Me.hWnd)
                                          > > End Sub
                                          > >
                                          > > Private Sub Form_Resize()
                                          > > CRViewer1.Zoom 100
                                          > > CRViewer1.Top = 0
                                          > > CRViewer1.Left = 0
                                          > > CRViewer1.Height = ScaleHeight
                                          > > CRViewer1.Width = ScaleWidth
                                          > >
                                          > > End Sub
                                          > > Private Sub Form_Unload(Cancel As Integer)
                                          > > If rs.State = True Then rs.Close
                                          > > Set rs = Nothing
                                          > > conn.Close
                                          > > Unload Me
                                          > > End Sub
                                          > >
                                          > > ada ya salah ya?
                                          > >
                                          > > Ahmad Zakki <zakki@mandalaair.
                                          > > <mailto:zakki%40mandalaair.com> com> wrote:
                                          > > Caranya :
                                          > >
                                          > > Cr.SelectionFormula =
                                          > > "{nama_query_table.namafield}='" & nama_param &
                                          > "'"
                                          > >
                                          > > Nah kalo pake start date - end date pake perintah
                                          > > between
                                          > >
                                          > > Cr.SelectionFormula =
                                          > "{nama_query_table.namafield}
                                          > > between '" & nama_param1
                                          > > & "' and '" & nama_param2 & "'"
                                          > >
                                          > > _____
                                          > >
                                          > > From: vb-indo@yahoogroups
                                          > > <mailto:vb-indo%40yahoogroups.com> .com
                                          > > [mailto:vb-indo@yahoogroups
                                          > > <mailto:vb-indo%40yahoogroups.com> .com] On
                                          > > Behalf Of
                                          > > Heriyanto KO
                                          > > Sent: Tuesday, November 07, 2006 10:16 AM
                                          > > To: vb-indo@yahoogroups
                                          > > <mailto:vb-indo%40yahoogroups.com> .com
                                          > > Subject: RE: [vb-indo] Help.... CR select expert
                                          > > date Formula..urgent
                                          > >
                                          > > caranya gimana? maklum new bee heheehe..e.e
                                          > > say ingin menampilkan report dengan range,
                                          > misalnya
                                          > > tanggal 1 - 5 nov 2006
                                          > > jadi ada pake start date dan end date gitu... ada
                                          > > ide
                                          > >
                                          > > Ahmad Zakki <zakki@mandalaair.
                                          > > <mailto:zakki%40mandalaair.com> com> wrote:
                                          > > Kalo mao passing parameter dari vb ke cr pake
                                          > > function selectionformula
                                          > >
                                          > > _____
                                          > >
                                          > > From: vb-indo@yahoogroups
                                          > > <mailto:vb-indo%40yahoogroups.com> .com
                                          > > [mailto:vb-indo@yahoogroups
                                          > > <mailto:vb-indo%40yahoogroups.com> .com] On
                                          > > Behalf Of
                                          > > Heriyanto KO
                                          > > Sent: Tuesday, November 07, 2006 8:59 AM
                                          > > To: vb-indo@yahoogroups
                                          > > <mailto:vb-indo%40yahoogroups.com> .com
                                          > > Subject: [vb-indo] Help.... CR select expert date
                                          > > Formula..urgent
                                          > >
                                          > > temen2,saya dalam masalah nih...
                                          > >
                                          > > gimana caranya passing parameter dari vb ke cr 8.5
                                          > > dan bisa gak sih kita mengambil nilai dari formula
                                          > > ato parameter yang ada di
                                          > > report dari program vb?
                                          > >
                                          > > NB: saya pake sql server 200+vb 6+ cr *.5
                                          > >
                                          > > ---------------------------------
                                          > > Sponsored Link
                                          > >
                                          > > Try Netflix today! With plans starting at only
                                          > $5.99
                                          > > a month what are you
                                          > > waiting for?
                                          > >
                                          > > [Non-text portions of this message have been
                                          > > removed]
                                          > >
                                          > > [Non-text portions of this message have been
                                          > > removed]
                                          > >
                                          > > ---------------------------------
                                          > > Everyone is raving about the all-new Yahoo! Mail.
                                          > >
                                          > > [Non-text portions of this message have been
                                          > > removed]
                                          > >
                                          > > [Non-text portions of this message have been
                                          > > removed]
                                          > >
                                          > >
                                          > >
                                          > >
                                          > >
                                          > > ---------------------------------
                                          > > Want to start your own business? Learn how on
                                          > Yahoo!
                                          > > Small Business.
                                          > >
                                          > > [Non-text portions of this message have been
                                          > > removed]
                                          > >
                                          > >
                                          > >
                                          >
                                          === message truncated ===

                                          __________________________________________________________
                                          Sponsored Link

                                          Mortgage rates near historic lows:
                                          $150,000 loan as low as $579/mo. Intro-*Terms
                                          https://www2. <https://www2. <https://www2. <https://www2.nextag.com/>
                                          nextag.com/> nextag.com/>
                                          nextag.com/

                                          ---------------------------------
                                          Everyone is raving about the all-new Yahoo! Mail.

                                          [Non-text portions of this message have been removed]

                                          [Non-text portions of this message have been removed]

                                          ---------------------------------
                                          Sponsored Link

                                          Get an Online or Campus degree - Associate's, Bachelor's, or Master's - in
                                          less than one year.

                                          [Non-text portions of this message have been removed]

                                          [Non-text portions of this message have been removed]





                                          ---------------------------------
                                          Want to start your own business? Learn how on Yahoo! Small Business.

                                          [Non-text portions of this message have been removed]





                                          [Non-text portions of this message have been removed]
                                        • Heriyanto KO
                                          stress nih... kalo pake ocx bisa refresh gpp deh.. caranya gimana tuh? kita desain report dulu ada gimana? ada contoh yg sederhana gak? supaya bisa ngerti
                                          Message 20 of 29 , Nov 8, 2006
                                          • 0 Attachment
                                            stress nih...
                                            kalo pake ocx bisa refresh gpp deh..
                                            caranya gimana tuh?
                                            kita desain report dulu ada gimana?
                                            ada contoh yg sederhana gak? supaya bisa ngerti hehehheee.. :)

                                            Ahmad Zakki <zakki@...> wrote: Kalo pake active designer saya kurang tau cara ngakalin-nya. Saya biasanya
                                            pake ocx

                                            _____

                                            From: vb-indo@yahoogroups.com [mailto:vb-indo@yahoogroups.com] On Behalf Of
                                            Heriyanto KO
                                            Sent: Wednesday, November 08, 2006 1:18 PM
                                            To: vb-indo@yahoogroups.com
                                            Subject: RE: [vb-indo] Help.... CR select expert date Formula..urgent

                                            ada contoh gak?
                                            kmrn g coba dg koding dibawah ini, kalo utk 1 table gak error
                                            tapi kalo 2 tabel jadi error...

                                            Dim Report As New CrystalReport2
                                            Dim conn As New ADODB.Connection
                                            Dim recset As New ADODB.Recordset
                                            Dim q
                                            Dim rs As New Recordset
                                            Private Sub Form_Load()

                                            conn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User
                                            ID=sa;Password=hery;Initial Catalog=latihan;Data Source=hery"

                                            rs.Open "Select * from transaksi", conn, adOpenDynamic, adLockOptimistic

                                            Report.DiscardSavedData
                                            Report.Database.SetDataSource rs, 3

                                            Screen.MousePointer = vbHourglass
                                            CRViewer1.ReportSource = Report
                                            CRViewer1.ViewReport
                                            Screen.MousePointer = vbDefault

                                            End Sub

                                            Private Sub Form_Resize()
                                            CRViewer1.Top = 0
                                            CRViewer1.Left = 0
                                            CRViewer1.Height = ScaleHeight
                                            CRViewer1.Width = ScaleWidth

                                            End Sub

                                            Ahmad Zakki <zakki@mandalaair. <mailto:zakki%40mandalaair.com> com> wrote:
                                            Biasanya kalo itu memang koneksinya

                                            _____

                                            From: vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com
                                            [mailto:vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com] On
                                            Behalf Of
                                            Heriyanto KO
                                            Sent: Wednesday, November 08, 2006 10:58 AM
                                            To: vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com
                                            Subject: RE: [vb-indo] Help.... CR select expert date Formula..urgent

                                            error mas,
                                            erro msgnya "can not open sql server"
                                            apa ada masalah dengan koneksinya ya?

                                            Ahmad Zakki <zakki@mandalaair. <mailto:zakki%40mandalaair.com> com> wrote:
                                            Saya juga ngalamin permasalahan yang sama untuk nomor 1. setau saya kalo
                                            pake active designer printer-nya ngambil default dari windows, jadi gak bisa
                                            diganti-ganti.

                                            Kalo untuk nomor 2 tambahkan perintah ini :

                                            cr.RetrieveDataFiles 'refresh data

                                            cr.Action = 1 'print report

                                            _____

                                            From: vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com
                                            [mailto:vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com] On
                                            Behalf Of
                                            Heriyanto KO
                                            Sent: Wednesday, November 08, 2006 8:31 AM
                                            To: vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com
                                            Subject: RE: [vb-indo] Help.... CR select expert date Formula..urgent

                                            Iya juga ya,Thanks buat masukannya...
                                            oh ya saya mau nanya lagi nih... saya agak bingung ttg perbedaan dan
                                            keuntungan pembuatan report dengan mode active designer & ocx so saya coba
                                            dua2nya.

                                            1.saya coba buat report dari 3 tabel dari cr 8.5 dan sukses
                                            trus saya coba buat report yg sama dari active desinger VB tapi kok gak bisa
                                            ya? ada error "server has not yet been opened" padahal kalo dari 1 tabel
                                            bisa..kira2 ada apa ya?
                                            itu koneksi/datasource nya saya pake other->odbc
                                            trus kalo pake project->odbc error messagenya "File not found"

                                            2.Kalo buat report pake ocx (crystal report control) kok kalo ada perubahan
                                            data, reportnya gak refresh so perubahan data tidak terupdate. Cara
                                            refreshnya gimana ya?

                                            Privida Kristiono <privida@yahoo. <mailto:privida%40yahoo.com> com> wrote:
                                            Sorry ada yang salah ketik di kode programnya
                                            yang benar begini

                                            strQ="Select * from transaksi " & _
                                            "Where noTransaksi between '" & Test1 "' And " & _
                                            "'" & Test2 "'"

                                            rs.Open strQ, conn,
                                            adOpenForwardOnly, adLockReadOnly

                                            Salam,

                                            >Kalau pakai Active Data,
                                            >Anda tidak perlu menggunakan formula lagi, karena
                                            >formula bisa dimasukan ke dalam query di visual
                                            >basic,
                                            >recordset yang kita kirim ke Report seharusnya
                                            >recordset yang sudah matang, tinggal ditampilkan
                                            >saja.
                                            >
                                            >strQ="Select * from transaksi " & _
                                            >"Where noTransaksi between '" & Test1 "' And " & _
                                            >"'" & Test2 "'"
                                            >
                                            >rs.Open "Select * from transaksi", conn,
                                            >adOpenForwardOnly, adLockReadOnly
                                            >
                                            >Salam,

                                            --- Privida Kristiono <privida@yahoo. <mailto:privida%40yahoo.com> com>
                                            wrote:

                                            > Kalau pakai Active Data,
                                            > Anda tidak perlu menggunakan formula lagi, karena
                                            > formula bisa dimasukan ke dalam query di visual
                                            > basic,
                                            > recordset yang kita kirim ke Report seharusnya
                                            > recordset yang sudah matang, tinggal ditampilkan
                                            > saja.
                                            >
                                            > strQ="Select * from transaksi " & _
                                            > "Where noTransaksi between '" & Test1 "' And " & _
                                            >
                                            > "'" & Test2 "'"
                                            >
                                            > rs.Open "Select * from transaksi", conn,
                                            > adOpenForwardOnly, adLockReadOnly
                                            >
                                            > Salam,
                                            >
                                            > --- Ahmad Zakki <zakki@mandalaair. <mailto:zakki%40mandalaair.com> com>
                                            wrote:
                                            >
                                            > > Kalo pake tanggal kalo gak salah gak pake kutip
                                            > > tunggal (')
                                            > >
                                            > >
                                            > >
                                            > > _____
                                            > >
                                            > > From: vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com
                                            > > [mailto:vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com] On
                                            Behalf Of
                                            > > Heriyanto KO
                                            > > Sent: Tuesday, November 07, 2006 11:40 AM
                                            > > To: vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com
                                            > > Subject: RE: [vb-indo] Help.... CR select expert
                                            > > date Formula..urgent
                                            > >
                                            > >
                                            > >
                                            > > g dah coba tapi masih ada error "the remaining
                                            > text
                                            > > does not appear to be
                                            > > part of formula"
                                            > >
                                            > > sytaxnya :
                                            > >
                                            > > Dim Report As New CrystalReport5
                                            > > Dim rs As ADODB.Recordset
                                            > > Dim conn As New ADODB.Connection
                                            > > Private Sub Form_Load()
                                            > >
                                            > > Set rs = New Recordset
                                            > > Dim q As String
                                            > > conn.Open "Provider=SQLOLEDB.1;Persist Security
                                            > > Info=False;User
                                            > > ID=sa;Password=hery;Initial Catalog=latihan;Data
                                            > > Source=HERY"
                                            > >
                                            > > rs.Open "Select * from transaksi", conn,
                                            > > adOpenForwardOnly, adLockReadOnly
                                            > >
                                            > > Report.Database.SetDataSource rs, 3
                                            > >
                                            > >
                                            > > Dim tes1, tes2 As String
                                            > > tes1 = "1"
                                            > > tes2 = "19"
                                            > >
                                            > > Report.GroupSelectionFormula = "{ado.noTransaksi}
                                            > > between '" & tes1 & "' and
                                            > > '" & tes2 & "'"
                                            > >
                                            > > Screen.MousePointer = vbHourglass
                                            > > CRViewer1.ReportSource = Report
                                            > > CRViewer1.ViewReport
                                            > > Screen.MousePointer = vbDefault
                                            > >
                                            > > End Sub
                                            > > Private Sub
                                            > CRViewer1_PrintButtonClicked(UseDefault
                                            > > As Boolean)
                                            > > Report.PrinterSetup (Me.hWnd)
                                            > > End Sub
                                            > >
                                            > > Private Sub Form_Resize()
                                            > > CRViewer1.Zoom 100
                                            > > CRViewer1.Top = 0
                                            > > CRViewer1.Left = 0
                                            > > CRViewer1.Height = ScaleHeight
                                            > > CRViewer1.Width = ScaleWidth
                                            > >
                                            > > End Sub
                                            > > Private Sub Form_Unload(Cancel As Integer)
                                            > > If rs.State = True Then rs.Close
                                            > > Set rs = Nothing
                                            > > conn.Close
                                            > > Unload Me
                                            > > End Sub
                                            > >
                                            > > ada ya salah ya?
                                            > >
                                            > > Ahmad Zakki <zakki@mandalaair.
                                            > > <mailto:zakki%40mandalaair.com> com> wrote:
                                            > > Caranya :
                                            > >
                                            > > Cr.SelectionFormula =
                                            > > "{nama_query_table.namafield}='" & nama_param &
                                            > "'"
                                            > >
                                            > > Nah kalo pake start date - end date pake perintah
                                            > > between
                                            > >
                                            > > Cr.SelectionFormula =
                                            > "{nama_query_table.namafield}
                                            > > between '" & nama_param1
                                            > > & "' and '" & nama_param2 & "'"
                                            > >
                                            > > _____
                                            > >
                                            > > From: vb-indo@yahoogroups
                                            > > <mailto:vb-indo%40yahoogroups.com> .com
                                            > > [mailto:vb-indo@yahoogroups
                                            > > <mailto:vb-indo%40yahoogroups.com> .com] On
                                            > > Behalf Of
                                            > > Heriyanto KO
                                            > > Sent: Tuesday, November 07, 2006 10:16 AM
                                            > > To: vb-indo@yahoogroups
                                            > > <mailto:vb-indo%40yahoogroups.com> .com
                                            > > Subject: RE: [vb-indo] Help.... CR select expert
                                            > > date Formula..urgent
                                            > >
                                            > > caranya gimana? maklum new bee heheehe..e.e
                                            > > say ingin menampilkan report dengan range,
                                            > misalnya
                                            > > tanggal 1 - 5 nov 2006
                                            > > jadi ada pake start date dan end date gitu... ada
                                            > > ide
                                            > >
                                            > > Ahmad Zakki <zakki@mandalaair.
                                            > > <mailto:zakki%40mandalaair.com> com> wrote:
                                            > > Kalo mao passing parameter dari vb ke cr pake
                                            > > function selectionformula
                                            > >
                                            > > _____
                                            > >
                                            > > From: vb-indo@yahoogroups
                                            > > <mailto:vb-indo%40yahoogroups.com> .com
                                            > > [mailto:vb-indo@yahoogroups
                                            > > <mailto:vb-indo%40yahoogroups.com> .com] On
                                            > > Behalf Of
                                            > > Heriyanto KO
                                            > > Sent: Tuesday, November 07, 2006 8:59 AM
                                            > > To: vb-indo@yahoogroups
                                            > > <mailto:vb-indo%40yahoogroups.com> .com
                                            > > Subject: [vb-indo] Help.... CR select expert date
                                            > > Formula..urgent
                                            > >
                                            > > temen2,saya dalam masalah nih...
                                            > >
                                            > > gimana caranya passing parameter dari vb ke cr 8.5
                                            > > dan bisa gak sih kita mengambil nilai dari formula
                                            > > ato parameter yang ada di
                                            > > report dari program vb?
                                            > >
                                            > > NB: saya pake sql server 200+vb 6+ cr *.5
                                            > >
                                            > > ---------------------------------
                                            > > Sponsored Link
                                            > >
                                            > > Try Netflix today! With plans starting at only
                                            > $5.99
                                            > > a month what are you
                                            > > waiting for?
                                            > >
                                            > > [Non-text portions of this message have been
                                            > > removed]
                                            > >
                                            > > [Non-text portions of this message have been
                                            > > removed]
                                            > >
                                            > > ---------------------------------
                                            > > Everyone is raving about the all-new Yahoo! Mail.
                                            > >
                                            > > [Non-text portions of this message have been
                                            > > removed]
                                            > >
                                            > > [Non-text portions of this message have been
                                            > > removed]
                                            > >
                                            > >
                                            > >
                                            > >
                                            > >
                                            > > ---------------------------------
                                            > > Want to start your own business? Learn how on
                                            > Yahoo!
                                            > > Small Business.
                                            > >
                                            > > [Non-text portions of this message have been
                                            > > removed]
                                            > >
                                            > >
                                            > >
                                            >
                                            === message truncated ===

                                            __________________________________________________________
                                            Sponsored Link

                                            Mortgage rates near historic lows:
                                            $150,000 loan as low as $579/mo. Intro-*Terms
                                            https://www2. <https://www2. <https://www2. <https://www2.nextag.com/>
                                            nextag.com/> nextag.com/>
                                            nextag.com/

                                            ---------------------------------
                                            Everyone is raving about the all-new Yahoo! Mail.

                                            [Non-text portions of this message have been removed]

                                            [Non-text portions of this message have been removed]

                                            ---------------------------------
                                            Sponsored Link

                                            Get an Online or Campus degree - Associate's, Bachelor's, or Master's - in
                                            less than one year.

                                            [Non-text portions of this message have been removed]

                                            [Non-text portions of this message have been removed]

                                            ---------------------------------
                                            Want to start your own business? Learn how on Yahoo! Small Business.

                                            [Non-text portions of this message have been removed]

                                            [Non-text portions of this message have been removed]






                                            ---------------------------------
                                            Want to start your own business? Learn how on Yahoo! Small Business.

                                            [Non-text portions of this message have been removed]
                                          • Ahmad Zakki
                                            Ini ada contohnya, tapi sebelumnya harus buat dulu reportnya dari cr Private Sub cmdPrint_Click() On Error GoTo Hell With CR .Connect =
                                            Message 21 of 29 , Nov 8, 2006
                                            • 0 Attachment
                                              Ini ada contohnya, tapi sebelumnya harus buat dulu reportnya dari cr

                                              Private Sub cmdPrint_Click()

                                              On Error GoTo Hell

                                              With CR

                                              .Connect =
                                              "DSN=AIS_IC;UID=ais_ic;PWD=ais_ic;DBQ=<CRWDC>Database=AIS_IC" 'connection
                                              string

                                              .ReportFileName = App.Path & "\po.rpt" 'report filename

                                              If optPONumber.Value = True Then

                                              .SelectionFormula = "{Q_PO.PO_NUMBER}='" & Trim(cboPONo.Text) &
                                              "'" 'selection formula

                                              .WindowTitle = "Purchase Order (By PO Number)"

                                              .RetrieveDataFiles 'refresh data

                                              .Action = 1 'print report

                                              ElseIf optPODate.Value = True Then

                                              If RS.State = adStateOpen Then RS.Close

                                              'MsgBox Day(cboPODate.Text)

                                              'MsgBox Month(cboPODate.Text)

                                              'MsgBox Year(cboPODate.Text)

                                              RS.Open "select distinct po_number from t_po where day(po_date)
                                              = " & Day(cboPODate.Text) & " and month(po_date)= " & Month(cboPODate.Text)
                                              & " and year(po_date)= " & Year(cboPODate.Text) & "", DB, adOpenStatic,
                                              adLockOptimistic

                                              Do While Not RS.EOF

                                              .SelectionFormula = "{Q_PO.PO_NUMBER}='" &
                                              RS.Fields("PO_NUMBER") & "'"

                                              .WindowTitle = "Purchase Order (By Date)"

                                              .RetrieveDataFiles

                                              .Action = 1

                                              RS.MoveNext

                                              Loop

                                              ElseIf optStatus.Value = True Then

                                              If RS.State = adStateOpen Then RS.Close

                                              RS.Open "select distinct po_number from t_po where po_status='"
                                              & cboStatus.Text & "'", DB, adOpenStatic, adLockOptimistic

                                              Do While Not RS.EOF

                                              .SelectionFormula = "{Q_PO.PO_NUMBER}='" &
                                              RS.Fields("PO_NUMBER") & "'"

                                              '.SelectionFormula = "{Q_PO.PO_STATUS}='" & cboStatus.Text &
                                              "'"

                                              .WindowTitle = "Purchase Order (By Status = " &
                                              cboStatus.Text & ")"

                                              .RetrieveDataFiles

                                              .Action = 1

                                              RS.MoveNext

                                              Loop

                                              Else

                                              If RS.State = adStateOpen Then RS.Close

                                              RS.Open "select distinct po_number from t_po where to_person='"
                                              & Trim(cboSupplier.Text) & "'", DB, adOpenStatic, adLockOptimistic

                                              Do While Not RS.EOF

                                              .SelectionFormula = "{Q_PO.PO_NUMBER}='" &
                                              RS.Fields("PO_NUMBER") & "'"

                                              .WindowTitle = "Purchase Order (By Supplier)"

                                              .RetrieveDataFiles

                                              .Action = 1

                                              RS.MoveNext

                                              Loop

                                              End If

                                              End With

                                              Exit Sub



                                              Hell:

                                              MsgBox Err.Number & Chr(13) & Err.Description, vbCritical

                                              End Sub



                                              _____

                                              From: vb-indo@yahoogroups.com [mailto:vb-indo@yahoogroups.com] On Behalf Of
                                              Heriyanto KO
                                              Sent: Wednesday, November 08, 2006 3:40 PM
                                              To: vb-indo@yahoogroups.com
                                              Subject: RE: [vb-indo] Help.... CR select expert date Formula..urgent



                                              stress nih...
                                              kalo pake ocx bisa refresh gpp deh..
                                              caranya gimana tuh?
                                              kita desain report dulu ada gimana?
                                              ada contoh yg sederhana gak? supaya bisa ngerti hehehheee.. :)

                                              Ahmad Zakki <zakki@mandalaair. <mailto:zakki%40mandalaair.com> com> wrote:
                                              Kalo pake active designer saya kurang tau cara ngakalin-nya. Saya biasanya
                                              pake ocx

                                              _____

                                              From: vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com
                                              [mailto:vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com] On
                                              Behalf Of
                                              Heriyanto KO
                                              Sent: Wednesday, November 08, 2006 1:18 PM
                                              To: vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com
                                              Subject: RE: [vb-indo] Help.... CR select expert date Formula..urgent

                                              ada contoh gak?
                                              kmrn g coba dg koding dibawah ini, kalo utk 1 table gak error
                                              tapi kalo 2 tabel jadi error...

                                              Dim Report As New CrystalReport2
                                              Dim conn As New ADODB.Connection
                                              Dim recset As New ADODB.Recordset
                                              Dim q
                                              Dim rs As New Recordset
                                              Private Sub Form_Load()

                                              conn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User
                                              ID=sa;Password=hery;Initial Catalog=latihan;Data Source=hery"

                                              rs.Open "Select * from transaksi", conn, adOpenDynamic, adLockOptimistic

                                              Report.DiscardSavedData
                                              Report.Database.SetDataSource rs, 3

                                              Screen.MousePointer = vbHourglass
                                              CRViewer1.ReportSource = Report
                                              CRViewer1.ViewReport
                                              Screen.MousePointer = vbDefault

                                              End Sub

                                              Private Sub Form_Resize()
                                              CRViewer1.Top = 0
                                              CRViewer1.Left = 0
                                              CRViewer1.Height = ScaleHeight
                                              CRViewer1.Width = ScaleWidth

                                              End Sub

                                              Ahmad Zakki <zakki@mandalaair. <mailto:zakki%40mandalaair.com> com> wrote:
                                              Biasanya kalo itu memang koneksinya

                                              _____

                                              From: vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com
                                              [mailto:vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com] On
                                              Behalf Of
                                              Heriyanto KO
                                              Sent: Wednesday, November 08, 2006 10:58 AM
                                              To: vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com
                                              Subject: RE: [vb-indo] Help.... CR select expert date Formula..urgent

                                              error mas,
                                              erro msgnya "can not open sql server"
                                              apa ada masalah dengan koneksinya ya?

                                              Ahmad Zakki <zakki@mandalaair. <mailto:zakki%40mandalaair.com> com> wrote:
                                              Saya juga ngalamin permasalahan yang sama untuk nomor 1. setau saya kalo
                                              pake active designer printer-nya ngambil default dari windows, jadi gak bisa
                                              diganti-ganti.

                                              Kalo untuk nomor 2 tambahkan perintah ini :

                                              cr.RetrieveDataFiles 'refresh data

                                              cr.Action = 1 'print report

                                              _____

                                              From: vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com
                                              [mailto:vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com] On
                                              Behalf Of
                                              Heriyanto KO
                                              Sent: Wednesday, November 08, 2006 8:31 AM
                                              To: vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com
                                              Subject: RE: [vb-indo] Help.... CR select expert date Formula..urgent

                                              Iya juga ya,Thanks buat masukannya...
                                              oh ya saya mau nanya lagi nih... saya agak bingung ttg perbedaan dan
                                              keuntungan pembuatan report dengan mode active designer & ocx so saya coba
                                              dua2nya.

                                              1.saya coba buat report dari 3 tabel dari cr 8.5 dan sukses
                                              trus saya coba buat report yg sama dari active desinger VB tapi kok gak bisa
                                              ya? ada error "server has not yet been opened" padahal kalo dari 1 tabel
                                              bisa..kira2 ada apa ya?
                                              itu koneksi/datasource nya saya pake other->odbc
                                              trus kalo pake project->odbc error messagenya "File not found"

                                              2.Kalo buat report pake ocx (crystal report control) kok kalo ada perubahan
                                              data, reportnya gak refresh so perubahan data tidak terupdate. Cara
                                              refreshnya gimana ya?

                                              Privida Kristiono <privida@yahoo. <mailto:privida%40yahoo.com> com> wrote:
                                              Sorry ada yang salah ketik di kode programnya
                                              yang benar begini

                                              strQ="Select * from transaksi " & _
                                              "Where noTransaksi between '" & Test1 "' And " & _
                                              "'" & Test2 "'"

                                              rs.Open strQ, conn,
                                              adOpenForwardOnly, adLockReadOnly

                                              Salam,

                                              >Kalau pakai Active Data,
                                              >Anda tidak perlu menggunakan formula lagi, karena
                                              >formula bisa dimasukan ke dalam query di visual
                                              >basic,
                                              >recordset yang kita kirim ke Report seharusnya
                                              >recordset yang sudah matang, tinggal ditampilkan
                                              >saja.
                                              >
                                              >strQ="Select * from transaksi " & _
                                              >"Where noTransaksi between '" & Test1 "' And " & _
                                              >"'" & Test2 "'"
                                              >
                                              >rs.Open "Select * from transaksi", conn,
                                              >adOpenForwardOnly, adLockReadOnly
                                              >
                                              >Salam,

                                              --- Privida Kristiono <privida@yahoo. <mailto:privida%40yahoo.com> com>
                                              wrote:

                                              > Kalau pakai Active Data,
                                              > Anda tidak perlu menggunakan formula lagi, karena
                                              > formula bisa dimasukan ke dalam query di visual
                                              > basic,
                                              > recordset yang kita kirim ke Report seharusnya
                                              > recordset yang sudah matang, tinggal ditampilkan
                                              > saja.
                                              >
                                              > strQ="Select * from transaksi " & _
                                              > "Where noTransaksi between '" & Test1 "' And " & _
                                              >
                                              > "'" & Test2 "'"
                                              >
                                              > rs.Open "Select * from transaksi", conn,
                                              > adOpenForwardOnly, adLockReadOnly
                                              >
                                              > Salam,
                                              >
                                              > --- Ahmad Zakki <zakki@mandalaair. <mailto:zakki%40mandalaair.com> com>
                                              wrote:
                                              >
                                              > > Kalo pake tanggal kalo gak salah gak pake kutip
                                              > > tunggal (')
                                              > >
                                              > >
                                              > >
                                              > > _____
                                              > >
                                              > > From: vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com
                                              > > [mailto:vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com] On
                                              Behalf Of
                                              > > Heriyanto KO
                                              > > Sent: Tuesday, November 07, 2006 11:40 AM
                                              > > To: vb-indo@yahoogroups <mailto:vb-indo%40yahoogroups.com> .com
                                              > > Subject: RE: [vb-indo] Help.... CR select expert
                                              > > date Formula..urgent
                                              > >
                                              > >
                                              > >
                                              > > g dah coba tapi masih ada error "the remaining
                                              > text
                                              > > does not appear to be
                                              > > part of formula"
                                              > >
                                              > > sytaxnya :
                                              > >
                                              > > Dim Report As New CrystalReport5
                                              > > Dim rs As ADODB.Recordset
                                              > > Dim conn As New ADODB.Connection
                                              > > Private Sub Form_Load()
                                              > >
                                              > > Set rs = New Recordset
                                              > > Dim q As String
                                              > > conn.Open "Provider=SQLOLEDB.1;Persist Security
                                              > > Info=False;User
                                              > > ID=sa;Password=hery;Initial Catalog=latihan;Data
                                              > > Source=HERY"
                                              > >
                                              > > rs.Open "Select * from transaksi", conn,
                                              > > adOpenForwardOnly, adLockReadOnly
                                              > >
                                              > > Report.Database.SetDataSource rs, 3
                                              > >
                                              > >
                                              > > Dim tes1, tes2 As String
                                              > > tes1 = "1"
                                              > > tes2 = "19"
                                              > >
                                              > > Report.GroupSelectionFormula = "{ado.noTransaksi}
                                              > > between '" & tes1 & "' and
                                              > > '" & tes2 & "'"
                                              > >
                                              > > Screen.MousePointer = vbHourglass
                                              > > CRViewer1.ReportSource = Report
                                              > > CRViewer1.ViewReport
                                              > > Screen.MousePointer = vbDefault
                                              > >
                                              > > End Sub
                                              > > Private Sub
                                              > CRViewer1_PrintButtonClicked(UseDefault
                                              > > As Boolean)
                                              > > Report.PrinterSetup (Me.hWnd)
                                              > > End Sub
                                              > >
                                              > > Private Sub Form_Resize()
                                              > > CRViewer1.Zoom 100
                                              > > CRViewer1.Top = 0
                                              > > CRViewer1.Left = 0
                                              > > CRViewer1.Height = ScaleHeight
                                              > > CRViewer1.Width = ScaleWidth
                                              > >
                                              > > End Sub
                                              > > Private Sub Form_Unload(Cancel As Integer)
                                              > > If rs.State = True Then rs.Close
                                              > > Set rs = Nothing
                                              > > conn.Close
                                              > > Unload Me
                                              > > End Sub
                                              > >
                                              > > ada ya salah ya?
                                              > >
                                              > > Ahmad Zakki <zakki@mandalaair.
                                              > > <mailto:zakki%40mandalaair.com> com> wrote:
                                              > > Caranya :
                                              > >
                                              > > Cr.SelectionFormula =
                                              > > "{nama_query_table.namafield}='" & nama_param &
                                              > "'"
                                              > >
                                              > > Nah kalo pake start date - end date pake perintah
                                              > > between
                                              > >
                                              > > Cr.SelectionFormula =
                                              > "{nama_query_table.namafield}
                                              > > between '" & nama_param1
                                              > > & "' and '" & nama_param2 & "'"
                                              > >
                                              > > _____
                                              > >
                                              > > From: vb-indo@yahoogroups
                                              > > <mailto:vb-indo%40yahoogroups.com> .com
                                              > > [mailto:vb-indo@yahoogroups
                                              > > <mailto:vb-indo%40yahoogroups.com> .com] On
                                              > > Behalf Of
                                              > > Heriyanto KO
                                              > > Sent: Tuesday, November 07, 2006 10:16 AM
                                              > > To: vb-indo@yahoogroups
                                              > > <mailto:vb-indo%40yahoogroups.com> .com
                                              > > Subject: RE: [vb-indo] Help.... CR select expert
                                              > > date Formula..urgent
                                              > >
                                              > > caranya gimana? maklum new bee heheehe..e.e
                                              > > say ingin menampilkan report dengan range,
                                              > misalnya
                                              > > tanggal 1 - 5 nov 2006
                                              > > jadi ada pake start date dan end date gitu... ada
                                              > > ide
                                              > >
                                              > > Ahmad Zakki <zakki@mandalaair.
                                              > > <mailto:zakki%40mandalaair.com> com> wrote:
                                              > > Kalo mao passing parameter dari vb ke cr pake
                                              > > function selectionformula
                                              > >
                                              > > _____
                                              > >
                                              > > From: vb-indo@yahoogroups
                                              > > <mailto:vb-indo%40yahoogroups.com> .com
                                              > > [mailto:vb-indo@yahoogroups
                                              > > <mailto:vb-indo%40yahoogroups.com> .com] On
                                              > > Behalf Of
                                              > > Heriyanto KO
                                              > > Sent: Tuesday, November 07, 2006 8:59 AM
                                              > > To: vb-indo@yahoogroups
                                              > > <mailto:vb-indo%40yahoogroups.com> .com
                                              > > Subject: [vb-indo] Help.... CR select expert date
                                              > > Formula..urgent
                                              > >
                                              > > temen2,saya dalam masalah nih...
                                              > >
                                              > > gimana caranya passing parameter dari vb ke cr 8.5
                                              > > dan bisa gak sih kita mengambil nilai dari formula
                                              > > ato parameter yang ada di
                                              > > report dari program vb?
                                              > >
                                              > > NB: saya pake sql server 200+vb 6+ cr *.5
                                              > >
                                              > > ---------------------------------
                                              > > Sponsored Link
                                              > >
                                              > > Try Netflix today! With plans starting at only
                                              > $5.99
                                              > > a month what are you
                                              > > waiting for?
                                              > >
                                              > > [Non-text portions of this message have been
                                              > > removed]
                                              > >
                                              > > [Non-text portions of this message have been
                                              > > removed]
                                              > >
                                              > > ---------------------------------
                                              > > Everyone is raving about the all-new Yahoo! Mail.
                                              > >
                                              > > [Non-text portions of this message have been
                                              > > removed]
                                              > >
                                              > > [Non-text portions of this message have been
                                              > > removed]
                                              > >
                                              > >
                                              > >
                                              > >
                                              > >
                                              > > ---------------------------------
                                              > > Want to start your own business? Learn how on
                                              > Yahoo!
                                              > > Small Business.
                                              > >
                                              > > [Non-text portions of this message have been
                                              > > removed]
                                              > >
                                              > >
                                              > >
                                              >
                                              === message truncated ===

                                              __________________________________________________________
                                              Sponsored Link

                                              Mortgage rates near historic lows:
                                              $150,000 loan as low as $579/mo. Intro-*Terms
                                              https://www2. <https://www2. <https://www2. <https://www2.
                                              <https://www2.nextag.com/> nextag.com/>
                                              nextag.com/> nextag.com/>
                                              nextag.com/

                                              ---------------------------------
                                              Everyone is raving about the all-new Yahoo! Mail.

                                              [Non-text portions of this message have been removed]

                                              [Non-text portions of this message have been removed]

                                              ---------------------------------
                                              Sponsored Link

                                              Get an Online or Campus degree - Associate's, Bachelor's, or Master's - in
                                              less than one year.

                                              [Non-text portions of this message have been removed]

                                              [Non-text portions of this message have been removed]

                                              ---------------------------------
                                              Want to start your own business? Learn how on Yahoo! Small Business.

                                              [Non-text portions of this message have been removed]

                                              [Non-text portions of this message have been removed]





                                              ---------------------------------
                                              Want to start your own business? Learn how on Yahoo! Small Business.

                                              [Non-text portions of this message have been removed]





                                              [Non-text portions of this message have been removed]
                                            Your message has been successfully submitted and would be delivered to recipients shortly.