FAQ
This is a MIME message. If you are reading this text, you may want to
consider changing to a mail reader or gateway that understands how to
properly handle MIME multipart messages.

--=_B4EA9B96.CAABCF7C

Content-Type: text/plain; charset=US-ASCII
Content-Transfer-Encoding: quoted-printable

Hi!!!
I am working with Visual Basic 6.0, Oracle 9.2i, and Crystal Report 8.5

I made some recordset to feed my reports, they are working find, but my =
problem now is that I don't know how to made an instalation.
I made one with the Packge & deployment wizard, but that installation did =
not works, when I install it ask me for the client of Oracle.
I have to install the client of Oracle??
I hope someone can help me because I don't have a clue on this.

This is an example of my code

'=3D=3D=3D=3D=3DIn a module
Function Open_cnOracle() As Boolean
Dim vaPieces As Variant
On Error GoTo ErrorConectarOracle:
Set gcnOracle =3D New ADODB.Connection
With gcnOracle

.ConnectionString =3D "Provider=3DOraOLEDB.Oracle.1;Password=3Dburke00;=
Persist Security Info=3DTrue;User ID=3Dlawson1;Data Source=3DLAWP"

.CommandTimeout =3D 0
=20
.Open
Open_cnOracle =3D True
End With

Exit Function
ErrorConectarOracle:

MsgBox ("No se pudo abrir la Base de datos Oracle")
Open_cnOracle =3D False
End Function

'=3D=3D=3D=3D=3D=3DOn a form
Private Sub cmdImprimir_Click()
Dim sF1 As String
Dim sF2 As String
iCia =3D cboCompany.ItemData(cboCompany.ListIndex)
giParam1 =3D cboTipoRep.ItemData(cboTipoRep.ListIndex)
sF1 =3D Format(dtpFecha1.Value, "mm/dd/yyyy")
sF2 =3D Format(dtpFecha2.Value, "mm/dd/yyyy")
If dtpFecha1.Value <=3D dtpFecha2.Value Then

gstrForm =3D "cr_ArbolVtas"
=20

gstrParameter1 =3D cboCompany.Text
gstrParameter2 =3D "Del " & sF1 & " al " & sF2
gstrParameter3 =3D "REPORTE " + cboTipoRep.Text

gstrSQL =3D "SELECT OEINVCLINE.ITEM, OEINVCLINE.DESCRIPTION, =
OEINVCLINE.QUANTITY, " & _

" Case OEINVCLINE.TAX_CODE WHEN 'IVA 0%' THEN OEINVCLINE.TAXABLE_BS=
E " & _

" WHEN 'IVA 10%' THEN OEINVCLINE.TAXABLE_BSE*1.1 WHEN 'IVA 15%' =

THEN OEINVCLINE.TAXABLE_BSE*1.15 " & _

" Else OEINVCLINE.TAXABLE_BSE END TOT_LINE, OEINVCLINE.SALES_MAJCL, =
MAJORCL.DESCRIPTION AS MAJCL_DES, " & _

" OEINVCLINE.SALES_MINCL, MINORCL.DESCRIPTION AS MINCL_DES " & _

" FROM MAJORCL INNER JOIN OEINVOICE INNER JOIN " & _

" OEINVCLINE ON OEINVOICE.COMPANY =3D OEINVCLINE.COMPANY AND =

OEINVOICE.INVC_PREFIX =3D OEINVCLINE.INVC_PREFIX AND " & _

" OEINVOICE.INVC_NUMBER =3D OEINVCLINE.INVC_NUMBER ON MAJORCL.MAJOR_=

CLASS =3D OEINVCLINE.SALES_MAJCL LEFT OUTER JOIN " & _

" MINORCL ON OEINVCLINE.SALES_MINCL =3D MINORCL.MINOR_CLASS AND =

MAJORCL.ITEM_GROUP =3D MINORCL.ITEM_GROUP AND MAJORCL.CLASS_TYPE =3D =

MINORCL.CLASS_TYPE AND " & _

" MAJORCL.MAJOR_CLASS =3D MINORCL.MAJOR_CLASS WHERE OEINVOICE.COMPAN=

Y=3D" & iCia & " AND " & _

" ( INVOICE_DATE BETWEEN to_date('" & sF1 & "','mm/dd/yyyy') AND =
to_date('" & sF2 & "','mm/dd/yyyy')) " & _

" AND ( MAJORCL.CLASS_TYPE =3D 'S') "

Load frmReport
frmReport.Show vbModal
Else

MsgBox "Rango de fechas incorrecto"
End If
End Sub

'=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3DOn the CrViewer =
form=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
Option Explicit
Dim adoRS As ADODB.Recordset
Dim crRep_ArbolVtas As cr_ArbolVtas

Private Sub Form_Load()
Select Case gstrForm

Case "cr_ArbolVtas"

' Reporte de Porcentaje de vtas de Productos nacionales y de =
importacion

Set adoRS =3D New ADODB.Recordset
adoRS.Open gstrSQL, gcnOracle, adOpenForwardOnly, adLockReadOnly, =
adCmdText
If adoRS.EOF And adoRS.BOF Then 'No encontro
adoRS.Close
Set adoRS =3D Nothing
Screen.MousePointer =3D vbDefault
Exit Sub
Else
Set crRep_ArbolVtas =3D New cr_ArbolVtas
crRep_ArbolVtas.ParameterFields(1).AddCurrentValue gstrParamete=
r1 'cia
crRep_ArbolVtas.ParameterFields(2).AddCurrentValue gstrParamete=
r2 'Rango fechas
crRep_ArbolVtas.ParameterFields(3).AddCurrentValue gstrParamete=
r3 'Titulo
If giParam1 =3D 1 Then 'Mostrar solo totales x clase mayor
crRep_ArbolVtas.Section4.Suppress =3D True
crRep_ArbolVtas.Section5.Suppress =3D True
ElseIf giParam1 =3D 2 Then 'Mostrar solo totales x clase mayor =
y menor
crRep_ArbolVtas.Section5.Suppress =3D True
End If
crRep_ArbolVtas.Database.SetDataSource adoRS
CRViewer1.ReportSource =3D crRep_ArbolVtas
=20
End If

--=_B4EA9B96.CAABCF7C

Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

>

Hi!!!I am working with Visual Basic 6.0, Oracle 9.2i, and =
Crystal=20
Report 8.5
&nbsp;
I made some recordset to feed my reports, they are working find, but =
my=20
problem now&nbsp;is that I don't know how to made an instalation.
I made one with the Packge &amp; deployment wizard, but that =
installation=20
did not works, when I install it ask me for the client of Oracle.

I have to install the client of Oracle??
I hope someone can help me because I don't have a clue on this.
&nbsp;
This is an example of my code
&nbsp;
'=3D=3D=3D=3D=3DIn a module
Function Open_cnOracle() As Boolean
Dim vaPieces As Variant
On Error GoTo ErrorConectarOracle:Set gcnOracle =3D New=20

ADODB.ConnectionWith gcnOracle&nbsp;&nbsp;&nbsp; .ConnectionString =
=3D=20
"Provider=3DOraOLEDB.Oracle.1;Password=3Dburke00;Persist Security =
Info=3DTrue;User=20
ID=3Dlawson1;Data Source=3DLAWP"&nbsp;&nbsp;&nbsp; .CommandTimeout =
=3D=20
0&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; .Open&nbsp;&nbsp;&nbsp;=
=20
Open_cnOracle =3D TrueEnd With
&nbsp;&nbsp;&nbsp; Exit=20
FunctionErrorConectarOracle:&nbsp;&nbsp;&nbsp; MsgBox ("No se pudo =
abrir=20
la Base de datos Oracle")&nbsp;&nbsp;&nbsp; Open_cnOracle =3D =
False

End Function
&nbsp;
&nbsp;
'=3D=3D=3D=3D=3D=3DOn&nbsp;a form
Private Sub cmdImprimir_Click()Dim sF1 As StringDim sF2 As=20

StringiCia =3D cboCompany.ItemData(cboCompany.ListIndex)giParam1 =
=3D=20
cboTipoRep.ItemData(cboTipoRep.ListIndex)sF1 =3D Format(dtpFecha1.Value=,=20
"mm/dd/yyyy")sF2 =3D Format(dtpFecha2.Value, "mm/dd/yyyy")If=20
dtpFecha1.Value &lt;=3D dtpFecha2.Value Then&nbsp;&nbsp;&nbsp; =
gstrForm =3D=20
"cr_ArbolVtas"&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; gstrParameter1 =
=3D=20
cboCompany.Text&nbsp;&nbsp;&nbsp; gstrParameter2 =3D "Del " &amp; sF1 =
&amp; "=20
al " &amp; sF2&nbsp;&nbsp;&nbsp; gstrParameter3 =3D "REPORTE " +=20
cboTipoRep.Text
&nbsp;&nbsp;&nbsp; gstrSQL =3D "SELECT OEINVCLINE.ITEM,&nbsp;=20
OEINVCLINE.DESCRIPTION, OEINVCLINE.QUANTITY, " &amp;=20
_&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; " Case OEINVCLINE.TAX_CODE WHEN =
'IVA=20

0%'&nbsp; THEN OEINVCLINE.TAXABLE_BSE " &amp;=20
_&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; " WHEN 'IVA 10%' THEN=20
OEINVCLINE.TAXABLE_BSE*1.1 WHEN 'IVA 15%' THEN OEINVCLINE.TAXABLE_BSE*1.15 =

"=20
&amp; _&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; " Else OEINVCLINE.TAXABLE_B=
SE=20
END TOT_LINE, OEINVCLINE.SALES_MAJCL, MAJORCL.DESCRIPTION AS MAJCL_DES, " =

&amp;=20

_&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; " OEINVCLINE.SALES_MINCL,=20
MINORCL.DESCRIPTION AS MINCL_DES " &amp;=20
_&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; " FROM MAJORCL INNER JOIN =

OEINVOICE=20

INNER JOIN " &amp; _&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; " OEINVCLINE =
ON=20
OEINVOICE.COMPANY =3D OEINVCLINE.COMPANY AND OEINVOICE.INVC_PREFIX =3D=20

OEINVCLINE.INVC_PREFIX AND " &amp; _&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp=; "=20
OEINVOICE.INVC_NUMBER =3D OEINVCLINE.INVC_NUMBER ON MAJORCL.MAJOR_CLASS =

=3D=20
OEINVCLINE.SALES_MAJCL LEFT OUTER JOIN " &amp;=20
_&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; " MINORCL ON OEINVCLINE.SALES_MIN=
CL =3D=20
MINORCL.MINOR_CLASS AND MAJORCL.ITEM_GROUP =3D MINORCL.ITEM_GROUP AND=20

MAJORCL.CLASS_TYPE =3D MINORCL.CLASS_TYPE AND " &amp;=20
_&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; " MAJORCL.MAJOR_CLASS =3D=20
MINORCL.MAJOR_CLASS WHERE OEINVOICE.COMPANY=3D" &amp; iCia &amp; " =
AND&nbsp; "=20
&amp; _&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; " ( INVOICE_DATE BETWEEN=20=

to_date('" &amp; sF1 &amp; "','mm/dd/yyyy') AND to_date('" &amp; sF2 =
&amp;=20
"','mm/dd/yyyy')) " &amp; _&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; " AND =
(=20
MAJORCL.CLASS_TYPE =3D 'S') "&nbsp;&nbsp;&nbsp; Load=20
frmReport&nbsp;&nbsp;&nbsp; frmReport.Show=20
vbModalElse&nbsp;&nbsp;&nbsp; MsgBox "Rango de fechas incorrecto"End=20
IfEnd Sub
&nbsp;
'=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3DOn the CrViewer =
form=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D

Option ExplicitDim adoRS As ADODB.Recordset
Dim crRep_ArbolVtas As cr_ArbolVtas
&nbsp;
Private Sub Form_Load()Select Case gstrForm
Case "cr_ArbolVtas"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' =

Reporte=20
de Porcentaje de vtas de Productos nacionales y de=20
importacion&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set adoRS =3D =
New=20
ADODB.Recordset&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; adoRS.Open=20=

gstrSQL, gcnOracle, adOpenForwardOnly, adLockReadOnly,=20
adCmdText&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If adoRS.EOF =
And=20
adoRS.BOF Then&nbsp; 'No=20
encontro&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nb=
sp;=20
adoRS.Close&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;=20
Set adoRS =3D=20
Nothing&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbs=
p;=20
Screen.MousePointer =3D=20
vbDefault&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n=
bsp;=20
Exit Sub&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
Else&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =
Set=20
crRep_ArbolVtas =3D New=20
cr_ArbolVtas&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp=;&nbsp;=20
crRep_ArbolVtas.ParameterFields(1).AddCurrentValue gstrParameter1&nbsp;&nbs=
p;=20
'cia&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
=20
crRep_ArbolVtas.ParameterFields(2).AddCurrentValue gstrParameter2&nbsp; =
'Rango=20
fechas&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp=;=20
crRep_ArbolVtas.ParameterFields(3).AddCurrentValue gstrParameter3&nbsp;=20
'Titulo&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbs=
p; If=20
giParam1 =3D 1 Then 'Mostrar solo totales x clase=20
mayor&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;=20
crRep_ArbolVtas.Section4.Suppress =3D=20
True&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&=
nbsp;&nbsp;&nbsp;&nbsp;=20
crRep_ArbolVtas.Section5.Suppress =3D=20
True&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
=20
ElseIf giParam1 =3D 2 Then 'Mostrar solo totales x clase mayor y=20
menor&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;=20
crRep_ArbolVtas.Section5.Suppress =3D=20
True&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =
End=20
If&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20=

crRep_ArbolVtas.Database.SetDataSource=20
adoRS&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=

Search Discussions

  • Pardee, Roy E at Jul 22, 2003 at 6:21 pm
    Unless you purchase & distribute a 3rd party oracle network lib (I think DataDirect sells one) your client PCs will all have to have a valid oracle client install, complete w/sqlnet.ora & tnsnames.ora, etc. (FWIW, if you were using vb.net, you could conceivably set up a web service to mediate between your app & the db, in which case you'd only have to maintain an oracle client on the web server.)

    [By the way--is there any way you can increase the size of the font you're using in your messages? On my end it looks to be about 6 points high--very hard on the eyes. Thanks!]

    HTH,

    -Roy

    Roy Pardee
    Programmer/Analyst/DBA
    SWFPAC Lockheed Martin IT
    Extension 8487

    -----Original Message-----
    From: Teresita Castro
    Sent: Tuesday, July 22, 2003 10:39 AM
    To: Multiple recipients of list ORACLE-L
    Subject: Installation Question

    Hi!!!
    I am working with Visual Basic 6.0, Oracle 9.2i, and Crystal Report 8.5

    I made some recordset to feed my reports, they are working find, but my problem now is that I don't know how to made an instalation.
    I made one with the Packge & deployment wizard, but that installation did not works, when I install it ask me for the client of Oracle.
    I have to install the client of Oracle??
    I hope someone can help me because I don't have a clue on this.

    This is an example of my code

Related Discussions

Discussion Navigation
viewthread | post
Discussion Overview
grouporacle-l @
categoriesoracle
postedJul 22, '03 at 4:38p
activeJul 22, '03 at 6:21p
posts2
users2
websiteoracle.com

2 users in discussion

Pardee, Roy E: 1 post Teresita Castro: 1 post

People

Translate

site design / logo © 2022 Grokbase