Data Classes

bigfoot · Jul 20, 2000

I don't get Data Classes.  What are the good for? I've read the info in my MSDN help, but they don't (what a suprise) explain what they are good for. If someone uses them, could you please tell me how and for what? Thanks a bunch.

MikeLacey · Jul 21, 2000

Bigfoot, Found this article in the VB6 Help which seems quite good. I haven't used Data Classes myself - but the main advantage seems to be that you can create a data source - like a data control - that you can then bind controls like text boxes or list boxes to. Creating a Data-Aware Class that Reads Records from a Delimited Text File By creating a data-aware class, you can read data from a delimited text file into an ADO recordset and use the features of ADO to manipulate the data. You can then use the class as a data source in your application, binding controls on a form to fields in the recordset. This topic shows how to create a data-aware class that reads data in a tab-delimited text file and provides methods for navigating through the data. To create a data-aware class that reads data from a delimited text file Create a class that acts as a data source. Add code to read data from the text file into an ADO recordset. Set the data source for the class. Note   This topic is part of a series that walks you through creating a simple database application that interacts with data in a tab-delimited text file. It begins with the topic Interacting with Data in an ASCII Text File. Create a Class that Acts as a Data Source You can create a class that acts as a data source by inserting a class module in your project and specifying its data source behavior. First, insert a class module in your project by selecting Add Class Module from the Project menu. Then set the Name and DataSourceBehavior properties for the class. For example, to create a CustomerDataSource class that can act as a data source, set the following properties: Property Setting Name CustomerDataSource DataSourceBehavior vbDataSource For More Information   Data-aware classes are covered in depth in Creating Data-Aware Classes in the Programmer's Guide. Add Code to Read Data from the Text File into an ADO Recordset By reading data from a text file into an ADO recordset, you can use the features of ADO to manipulate the data. First, add a reference to the ADO object library by selecting References on the Project menu, then selecting Microsoft ActiveX Data Objects 2.0 Library in the References dialog box. Then declare a Recordset object variable in the Declarations section for the class. For example, to declare a Recordset object variable for working with customer records from the Customers.txt file, add the following to the Declarations section: Public rsCustomers As ADODB.Recordset By declaring the variable as a public variable, you can use the built-in methods of the Recordset object in applications that use the data-aware class. Finally, add code to the Class_Initialize event procedure for the class to read data from the text file. For example, add the following code to the Class_Initialize event procedure for the CustomerDataSource class to read data from the Customers.txt file into a recordset: Private Sub Class_Initialize()    Dim fld As ADODB.Field    Dim strRow As String    Dim strField As String    Dim intPos As Integer    Set rsCustomers = New ADODB.Recordset    With rsCustomers       ' Set CustomerID as the primary key.       .Fields.Append "CustomerID", adChar, 5, adFldRowID       .Fields.Append "CompanyName", adChar, 40, adFldUpdatable       .Fields.Append "ContactName", adChar, 30, adFldUpdatable       .Fields.Append "ContactTitle", adChar, 30, adFldUpdatable       .Fields.Append "Address", adChar, 60, adFldUpdatable       .Fields.Append "City", adChar, 15, adFldUpdatable       .Fields.Append "Region", adChar, 15, adFldMayBeNull       .Fields.Append "PostalCode", adChar, 10, adFldMayBeNull       .Fields.Append "Country", adChar, 15, adFldUpdatable       .Fields.Append "Phone", adChar, 24, adFldUpdatable       .Fields.Append "Fax", adChar, 24, adFldMayBeNull       ' Use Keyset cursor type to allow updating records.       .CursorType = adOpenKeyset       .LockType = adLockOptimistic       .Open    End With    Open "Customers.txt" For Input As #1    Do Until EOF(1)       Line Input #1, strRow       With rsCustomers          .AddNew          For Each fld In .Fields             ' If a tab delimiter is found, field text is to the             ' left of the delimiter.             If InStr(strRow, Chr(9)) <> 0 Then                ' Move position to tab delimiter.                intPos = InStr(strRow, Chr(9))                ' Assign field text to strField variable.                strField = Left(strRow, intPos - 1)             Else                ' If a tab delimiter isn't found, field text is the                ' last field in the row.                strField = strRow             End If             ' Strip off quotation marks.             If Left(strField, 1) = Chr(34) Then                strField = Left(strField, Len(strField) - 1)                strField = Right(strField, Len(strField) - 1)             End If             fld.Value = strField             ' Strip off field value text from text row.             strRow = Right(strRow, Len(strRow) - intPos)             intPos = 0          Next          .Update          .MoveFirst       End With    Loop    Close End Sub Set the Data Source for the Class When you specify a class as a data source by setting its DataSourceBehavior to vbDataSource, Visual Basic automatically adds a GetDataMember event to the class. The Class_GetDataMember event procedure is where you set the data source for the class by assigning it to the Data object for the class. For example, to set the rsCustomers recordset as the data source for the CustomerDataSource class, add the following to the Class_GetDataMember event procedure: Private Sub Class_GetDataMember(DataMember As String, Data As Object)   Set Data = rsCustomersEnd Sub For More Information   For a discussion of data sources, see Creating a Data Source in the Programmer's Guide. Step by Step This topic is part of a series that walks you through using a data-aware class and ADO to create a simple database application that interacts with data in a tab-delimited text file. To See Go to the next step Creating a Form that Lets You View and Update Data from a Data-Aware Class Start from the beginning Interacting with Data in an ASCII Text File Mike <a href=mailto:michael.j.lacey@ntlworld.com>michael.j.lacey@ntlworld.com</a> <a href=

http://www.cargill.com/>

Cargill's Corporate Web Site</a>

Snaggs · Jul 21, 2000

...as I duck and run...  Mike, you might try posting the link to the site instead of the article for a couple of reasons.  First, Copyright's and second the page may print better from the authors site since this site typically has wide columns. My 2 cents... Steve <a href=mailto:tribesaddict@swbell.net>tribesaddict@swbell.net</a> <a href= > </a>

bigfoot · Jul 24, 2000

Thanks Mike,  I'll play around with it... In fact, I have a use for it. Thanks again... Gary

MikeLacey · Jul 25, 2000

Steve, The article is attributed "from the VB6 help" and it was taken from the CD rather than a site - I'm not aware it is available online. Mike <a href=mailto:michael.j.lacey@ntlworld.com>michael.j.lacey@ntlworld.com</a> <a href=

http://www.cargill.com/>

Cargill's Corporate Web Site</a>

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Data Classes

bigfoot

Programmer

MikeLacey

MIS

Snaggs

Programmer

bigfoot

Programmer

MikeLacey

MIS

Similar threads

Part and Inventory Search

Sponsor