FiveTech Support Forums

To All

Where can I find the tDatabase Class ?? ..

Thanks
Rick Lipkin

Dear Rick
\source\classes\database.prg

Cristobal

Any documentation and examples ...

1) I want to create a Database as oDbf and pass oDbf much like we do with Ado .. oRs
2) How do I set a filter ? .. are the oDbf:Filters as fast as with ADO ? oDbf:Filter := "[CustomerName] like '"+cLname1+"%'" ?
3) How to I extract a oDBf field Value ? oDBf:Fields("Whatever"):Value ??
4) How to I create and use index's .. Like .cdx ( tags )
5) Reference oDbf in xBrowse() ?

I know I can probably look for examples in the forum .. The five things I need to get started are the questions above.

Thanks
Rick

Rick,

Go here and read my Introduction To OOP articles.

http://gointellitech.com/program.html

1) I want to create a Database as oDbf and pass oDbf much like we do with Ado .. oRs

Simple: oCustomers:= TCustomers():new()

Requires that you build a TCustomers class first. You can pass the object. You can also have objects within objects.

Note that above I am using "Customers" (plural). This is a table of customers (database). You can also create a oCustomer object for a single customer, then you can edit and save it, print it, pass it to another object or function. Etc.

2) How do I set a filter ? .. are the oDbf:Filters as fast as with ADO ? oDbf:Filter := "[CustomerName] like '"+cLname1+"%'" ?

Filters are very slow with large databases. I mostly use scopes.

3) How to I extract a oDBf field Value ? oDBf:Fields("Whatever"):Value ??

msgInfo(oCustomers:Company) // from a database object for the current record

msgInfo(oCustomer:Company) // from a single customer object

4) How to I create and use index's .. Like .cdx ( tags )

The same way you always do.

5) Reference oDbf in xBrowse() ?

I am not sure what you mean.

Another point I would like to make is that you move functions (that are typically scattered all over) into the object that they are relevant to. Examples:

? oCustomer:DaysOverDue()
oCustomer:SendLateNotice()

It takes awhile to grasp OOP, but it is a hundred times more powerful and simpler to code once you get the hang of it. I have taken old code and reduced the number of lines by more than 50% using OOP. I could go on and on and on...

Oh, and you never have to deal with workareas again!

Tim Stone is using OOP with ADO so he may jump in with some relevant comments.

Rick,

Well, I have no experience with ADO, but I thought it was language compatible with FWin. Your code makes me think it is not.

After these lines in your code:

Select 9
DATABASE oDbf

I am not sure what oDBF is in the above case. I don't know if it is being made by Fivewin or ADO? If it is made by ADO is there some documentation?

Can you try:

msgInfo(oDbf:fieldname ) // where fieldname is an actual fieldname.

Does that work?

Also try:

MsgInfo(oDBF:nArea)

Note that TDatabase creates it's own unique workareas which is not going to be 9 in this case. With database objects you never deal with workareas. Your error message:

Error description: Error DBCMD/2001 Workarea not in use: ORDSCOPE

leads me to believe that the workarea is the issue.

James

SELECT 9
IF NETUSE( xVol+"\DBTMP\"+CustDbf+".DBF", .T.,5)
Index on CustName TAG CustName
Set Order to Tag CustName
ELSE
CLOSE DATABASES
FERASE( xVol+"\DBTMP\"+CustDbf+".DBF")
FERASE( xVol+"\DBTMP\"+CUSTDBF+".CDX")
oDlg:END()
RETURN(NIL)
ENDIF

Select 9
DATABASE oDbf

James ... I saw this code on opening a database .. I figured the statement DATABASE oDbf created the database object .. which it appears to do .. I pass oDBf to multiple modules and the table and data is there ..

Where I am getting hung up is to create a incremental search of oDbf ..

With ADO and SQl there is a LIKE statement .. so this statement works as you start typing a field value

cLname1 := alltrim( oLName1:GetText() ) // this starts building a value one charactor at a time.
oRsCust:Filter := "[CustomerName] like '"+cLname1+"%'"

This is what I want to achieve with tDatabase .. since there is no LIKE command I was hoping to use OrdScope to build my incremental list .. don't think orderscope works either

Need help ... this is a very big contract and I am ( due to the Colonial Pipeline ransom ) encrypting all the user data .. and moving the application from MS Access to Ms Sql Server .. Access and Sql server are both coded the same .. however .. the CUstomer Table is totally encrypted to I have to create a temp dbf table with the de-encrypted data and the ADO and tDatabase classes are not compatable so far as I can see...

I need a way to use a unencryptd .dbf database and be able to traverse a company's name just like I did using ADO as you see above .. surely there is a way I can start typing in a field and someone come up with an incremental search on oDbf one key at a time ...

I can use anyone's help !!

Thanks
Rick Lipkin

Rick,

> and moving the application from MS Access to Ms Sql Server

We already did this for a very large US customer and using standard FWH, and it was a great success.

Please wait for Mr. Rao instructions

James and Antonio

The problem I am running into is duplicating the same functionality of using an incremental search with ADO

//----------------------------------------------------
Static Func _Isearch( oLname1, cLname1, oCid1, cCid1, oSceis1, cSceis1, oLbx, oDbf ) //, oRsCust )

cLname1 := alltrim( oLName1:GetText() )
cCid1 := alltrim( oCid1:GetText() )
cSceis1 := alltrim( oSceis1:GetText() )

msginfo( cLname1 )

Do Case
Case (Empty( cLName1 ) .and. Empty( cCid1 ) .and. Empty( cSceis1) )
oRsCust:Filter := "[CustomerName] = 'bogus'"

Case !empty( cLname1 ) .and. Empty( cCid1 ) .and. Empty( cSceis1 )

• oDbf->OrdSetFocus( cLname1 )

• Set Scope to ( cLname1 )

• return ( ::cAlias )->( OrdScope( nScopeType, uValue ) )
• oRsCust:Filter := "[CustomerName] like '"+cLname1+"%'" // this works GREAT using MS Access and Sql Server ..

What I have done is de-encrypted the entire Sql Customer table to a Temp database ( oDbf or Select 9 ) .. I need the same incremental functionality to incrementally search oDBf

Thanks
Rick Lipkin

Rick,

Yes I get that you want to do an incremental search, however you still haven't answered a single question that I have asked. And without any answers there isn't anything more I can do.