PRB: GetChunk & AppendChunk Not Allowed on Non-Memo Fields

MORE INFORMATION

Steps to Reproduce Behavior

1. Start a new project in Visual Basic. Form1 is created by default.
2. Add a command button (Command1) to the form.
3. Add the following code to the Command1_Click procedure.

      Sub Command1_Click ()
         Dim DB As Database
         Dim DS As Dynaset
         Set DB=OpenDatabase("C:\VB\BIBLIO.MDB")
         Set DS=DB.CreateDynaset("Authors")
         Debug.Print DS("Author").GetChunk(0,50)  ' fieldname's type <> memo
      End Sub
   						

4. Start the program (or press the F5 key). Click the Command1 button. This may produce a GP Fault. However, the more likely result is trappable error 3259 "Invalid field data type," as expected.

Steps to Solve the Problem

1. Replace the code in the above example with the following if you are using database objects:

      Sub Command1_Click ()
         Const DB_MEMO = 12
         Dim DB As Database
         Dim DS As Dynaset
         Set DB=OpenDatabase("C:\VB\BIBLIO.MDB")
         Set DS=DB.CreateDynaset("Authors")
         If DB.TableDefs("Authors").Fields("Author").Type = DB_MEMO Then
            Debug.Print DS("Author").GetChunk(0,50)
         Else
            Form1.Print "Wrong Field Type"
         End If
      End Sub
   						

   Or replace it with the following if you are using a Data control:

      Sub Command1_Click ()
         Const DB_MEMO = 12
         Data1.Databasename = "C:\VB\BIBLIO.MDB"
         Data1.RecordSource = "Authors"
         Data1.Refresh
         ' Enter the following two lines as one, single line:
         If Data1.Database.TableDefs("Authors").Fields("Author").Type =
            DB_MEMO Then
            Debug.Print Data1.RecordSet("Author").GetChunk(0,50)
         Else
           Form1.Print "Wrong Field Type"
         End If
      End Sub
   						

   This code will avoid using the inappropriate GetChunk method on the Author field because its type is DB_TEXT (value 10).
2. Start the program (or press the F5 key). Click the Command1 button.