| Oracle FAQ | Your Portal to the Oracle Knowledge Grid | |
 |
 | |||
| Oracle FAQ | Your Portal to the Oracle Knowledge Grid | |
|
| |||
Home -> Community -> Mailing Lists -> Oracle-L -> Installation Question
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, " & _
" 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"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; charset=3Diso-8859-1"=>
<DIV>I have to install the client of Oracle??</DIV> <DIV>I hope someone can help me because I don't have a clue on this.</DIV> <DIV> </DIV> <DIV>This is an example of my code</DIV> <DIV> </DIV> <DIV>'=3D=3D=3D=3D=3DIn a module</DIV> <DIV>Function Open_cnOracle() As Boolean</DIV> <DIV>Dim vaPieces As Variant</DIV> <DIV>On Error GoTo ErrorConectarOracle:<BR>Set gcnOracle =3D New=20ADODB.Connection<BR>With gcnOracle<BR> .ConnectionString = =3D=20
<DIV>End Function</DIV> <DIV> </DIV> <DIV> </DIV> <DIV>'=3D=3D=3D=3D=3D=3DOn a form</DIV> <DIV>Private Sub cmdImprimir_Click()<BR>Dim sF1 As String<BR>Dim sF2 As=20String<BR>iCia =3D cboCompany.ItemData(cboCompany.ListIndex)<BR>giParam1 = =3D=20
_<BR> " OEINVCLINE.SALES_MINCL,=20 MINORCL.DESCRIPTION AS MINCL_DES " &=20 _<BR> " FROM MAJORCL INNER JOIN =OEINVOICE=20
to_date('" & sF1 & "','mm/dd/yyyy') AND to_date('" & sF2 =
&=20
"','mm/dd/yyyy')) " & _<BR> " AND =
(=20
MAJORCL.CLASS_TYPE =3D 'S') "<BR> Load=20
frmReport<BR> frmReport.Show=20
vbModal<BR>Else<BR> MsgBox "Rango de fechas incorrecto"<B=
R>End=20
If<BR>End Sub</DIV>
<DIV> </DIV>
<DIV>'=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</DIV>
<DIV>Option Explicit<BR>Dim adoRS As ADODB.Recordset</DIV> <DIV>Dim crRep_ArbolVtas As cr_ArbolVtas</DIV> <DIV> </DIV> <DIV>Private Sub Form_Load()<BR>Select Case gstrForm<BR></DIV> <DIV>Case "cr_ArbolVtas"<BR> ' =Reporte=20
gstrSQL, gcnOracle, adOpenForwardOnly, adLockReadOnly,=20
adCmdText<BR> If adoRS.EOF =
And=20
adoRS.BOF Then 'No=20
encontro<BR> &nb=
sp;=20
adoRS.Close<BR> =
=20
Set adoRS =3D=20
Nothing<BR> &nbs=
p;=20
Screen.MousePointer =3D=20
vbDefault<BR> &n=
bsp;=20
Exit Sub<BR> =20
Else<BR> =
Set=20
crRep_ArbolVtas =3D New=20
cr_ArbolVtas<BR>  =
; =20
crRep_ArbolVtas.ParameterFields(1).AddCurrentValue gstrParameter1 &nbs=
p;=20
'cia<BR> =
=20
crRep_ArbolVtas.ParameterFields(2).AddCurrentValue gstrParameter2 =
'Rango=20
fechas<BR>  =
;=20
crRep_ArbolVtas.ParameterFields(3).AddCurrentValue gstrParameter3 =20
'Titulo<BR> &nbs=
p; If=20
giParam1 =3D 1 Then 'Mostrar solo totales x clase=20
mayor<BR> =
=20
crRep_ArbolVtas.Section4.Suppress =3D=20
True<BR> &=
nbsp; =20
crRep_ArbolVtas.Section5.Suppress =3D=20
True<BR> =
=20
ElseIf giParam1 =3D 2 Then 'Mostrar solo totales x clase mayor y=20
menor<BR> =
=20
crRep_ArbolVtas.Section5.Suppress =3D=20
True<BR> =
End=20
If<BR> =20=
crRep_ArbolVtas.Database.SetDataSource=20 adoRS<BR> = Received on Tue Jul 22 2003 - 11:38:10 CDT
 |
 |