Microsoft KB Archive/327238

= Programming Microsoft SQL Server 2000 with Visual Basic .Net Comments and Corrections =

Article ID: 327238

Article Last Modified on 3/1/2007

-

APPLIES TO


 * MSPRESS Programming Microsoft SQL Server 2000 with Visual Basic .Net, ISBN 0-7356-1535-7

-



This article was previously published under Q327238



SUMMARY
This article contains comments, corrections, and information about known errors relating to the Microsoft Press book Programming Microsoft SQL Server 2000 with Visual Basic .Net, ISBN 0-7356-1535-7.

The following topics are covered:


 * CD-ROM: Correction To InheritingSample Code
 * Page 324: CDbl Should Be Val
 * Page 325: Missing Statement in Code Sample
 * Page 338: Missing EndIf Statement



CD-ROM: Correction To InheritingSample Code
There is an error in the class3.vb and form1.vb files found on the CD in the SQLVBNET\Chapter_09\InheritingSample folder.

The change to form1.vb is the addition of one line of code.

Change:

num1 = 55.5 MsgBox(c3.TenPercentOfIt(num1).ToString,, _   &quot;Return based on a double input&quot;)

To:

num1 = 55.5 TextBox1.Text = &quot;55.5&quot; MsgBox(c3.TenPercentOfIt(num1).ToString,, _   &quot;Return based on a double input&quot;)

The change to class3.vb is the correction of CDbl to Val in the Return statement

Change:

Return (CDbl(It) * 0.1)

To:

Return (Val(It) * 0.1)

Page 324: CDbl Should Be Val
On page 324, at the bottom of the page in the Class3 code sample,

Change:

Return (CDbl(It) * 0.1)

To:

Return (Val(It) * 0.1)

Page 325: Missing Statement in Code Sample
In the code sample on page 325, a statement is missing.

Change:

num1 = 55.5 MsgBox(c3.TenPercentOfIt(num1).ToString,, _   &quot;Return based on a double input&quot;)

To:

num1 = 55.5 TextBox1.Text = &quot;55.5&quot; MsgBox(c3.TenPercentOfIt(num1).ToString,, _   &quot;Return based on a double input&quot;)

Page 338: Missing EndIf Statement
On page 338, at the center of the page, the required EndIf statement is missing. This code is correct on the sample CD.

Change:

If temp <= 255 Then MsgBox(&quot;Sum of &quot; & frm2bytel & &quot; and &quot; & frm2byte2 & _       &quot; is &quot; & temp & &quot;.&quot;, MsgBoxStyle.OkOnly, _        &quot;Result from Form2&quot;)

End Sub

To:

If temp <= 255 Then MsgBox(&quot;Sum of &quot; & frm2bytel & &quot; and &quot; & frm2byte2 & _       &quot; is &quot; & temp & &quot;.&quot;, MsgBoxStyle.OkOnly, _        &quot;Result from Form2&quot;) EndIf End Sub

Microsoft Press is committed to providing informative and accurate books. All comments and corrections listed above are ready for inclusion in future printings of this book. If you have a later printing of this book, it may already contain most or all of the above corrections.

Additional query words: 0-7356-1535-7 DOBSON .NET VB VSTUDIO SQL

Keywords: kbdocerr kbdocfix kbinfo KB327238

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© Microsoft Corporation. All rights reserved.