 How I Can Create Query >>> OO4O & VB [message #258033] |
Thu, 09 August 2007 21:09  |
intelligence
Messages: 1
Registered: August 2007
|
Junior Member |
|
|
Hi,
I am using the OO4O method in an VB application
and I need help for create Query to print it by Crystal Report
i write code, compiler does not objection
also there is no response for out
may be code is not completed
My code is as follows
--------------------------------------------------------------
@ Module
Public CS As Object
Public DB As Object
Public Tabel1 As Object
Public Query1 As Object
--------------------------------------------------------------
@ Form Load
Set CS = New OracleInProcServer.OraSessionClass
Set DB = CS.OpenDatabase("", "general/case", 0&)
Set Tabel1 = DB.CreateDynaset("Select * from Tabel1 ", 0&)
--------------------------------------------------------------
@ Command
Set Query1 = DB.CreateSql("Select F1,F2 from Tabel1", 0&)
Query1.Refresh
CrystalReport1.ReportFileName = "Q1.rpt"
CrystalReport1.Connect = "uid=intelligence;pwd=case"
CrystalReport1.Action = 1
--------------------------------------------------------------
[Updated on: Thu, 09 August 2007 23:00] by Moderator Report message to a moderator |
|
|
|
|
|
] 
Blog
Search
Help
Members
Register
Login
Home
