How to change query table name at run time in crystal report

[irfanafzal]

Hello
I have saved query in MS Access
"SELECT ID ,Name, Address from Data2001"
I am using this query in Crystal report
My question is this can I change table name in this query "DATA2001" to "DATA2002" at runtime
Thanks .

[QVeen72]

Hi,

What is your version of CR..?

[irfanafzal]

Sir i have CR 9

[QVeen72]

Hi,

After Opening report (CrRep), write this code:

[code=vb]
Dim crDB As CRAXDRT.Databas e
Dim crTab As CRAXDRT.Databas eTable
' Open Cr appl and report here..
Set CrRep = CrApp.OpenRepor t("C:\MyReport. rpt")
Set crDB = CrRep.Database
For Each CrTab In CrDB.Tables
crTab.Location = "C:\MyDB.md b"
Next
' Code to show the report in cr viewer here...
[/code]

Regards
Veena

[irfanafzal]

VERY VERY THANKS FOR REPLY
I THINK I HAVE NOT GIVE U COMPLETE DETAILS.

I HAVE SAVED QUERY (name of the query is "Details") IN ACCESS 2007.
this query have the text "SELECT ID ,Name, Address from Data2001"
(in this query there are also many other fields")
now i want to replace the table name " Data2001 ' to "Data2002" in query text .

i have 10 tables names Data2001,Data20 02..... and so on. all the tables have same structure
(I want to change Table Name in Query Text Not table )
i hope now you have understand my question waht i want.
i want to use same query for all tables.

is it possible ?

[QVeen72]

Hi,

In that case simply Drop The QueryDef, and create a new with required table name... keep query name same

Regards
Veena

[irfanafzal]

plz tell me how?
how can i use queryDef.
i am using ADO.
with best regards

[QVeen72]

Hi,

CheckThis

Regards
Veena

[irfanafzal]

Hi
Thanks veena g. i think i have got my answer.

Dim cat As New ADOX.Catalog
Dim cmd As New ADODB.Command
Dim sqltext As String
' create the sqltext as in the example above

Set cat.ActiveConne ction = CurrentProject. Connection
cmd.CommandText sqltext
Cat.Views.Appen d "My_Query", cmd

one thing more can i do the same thing without using ADOX.Catalog.
(I am using VB6) is it possible ?.Because some on told me it Create problems.(ADOX. Catalog)

Thanks Again
with best regards

[QVeen72]

What kind of problems...?

[irfanafzal]

i dont know what type of problems creates this ADOX.Catalog'
some one told me that there are problems.(like some time u can not create quires or invalid connection like this).
i did not use this.
now i will use this for my project

thanks for helping me
with best regards