Visual Basic 6 Client/Server Programming Gold Book:Table of ...

More documents

Recommendations

Info

Products | Contact Us | About Us | Privacy | Ad Info | Home Use of this site is subject to certain Terms & Conditions, Copyright © 1996-2000 EarthWeb Inc. All rights reserved. Reproduction whole or in part in any form or medium without express written permission of EarthWeb is prohibited. Read EarthWeb's privacy statement.
Brief Full Advanced Search Search Tips To access the contents, click the chapter and section titles. Visual Basic 6 Client/Server Programming Gold Book (Publisher: The Coriolis Group) Author(s): Michael MacDonald and Kurt Cagle ISBN: 1576102823 Publication Date: 10/01/98 Search this book: Previous Table of Contents Next Now that we have a convenient place from which to decode values (and potentially to encode as well), how do we use the table for validation? It is no longer possible to have referential integrity constraints, because there is no unique key for the database to validate against. The primary key of Data_Dic is dd_type and dd_val combined. dBase developers will remember that you could validate by hard-coding a portion of the other table’s key—if SQL allowed this, it would look something like: ALTER TABLE CUSTOMER ADD CONSTRAINT FK_Val_State FOREIGN KEY ('SC', cust_st) REFERENCES DATA_DIC (dd_type, dd_val) The (‘SC’, cust_st) would be needed, of course, so that you could validate cust_st against dd_val where dd_type = ‘SC’. So, what is left to accomplish the validation? The obvious answer is to open record sets from VB to validate our data: Set arLookup A= New Recordset Set arCust = New Recordset ' acon is an active connection arLookup.Open "Select * from data_dic Where dd_type = " & _ "'CC' And dd_val = " & txtCountry.text, acon If arLookup.BOF = True and arLookup.EOF = True Then ' No records MsgBox "Invalid Country!" txtCountry.SetFocus Exit Sub Else ' proceed with update End If
Page 1 and 2:
Brief Full Advanced Search Search T
Page 3 and 4:
The Active Data Control Where To Go
Page 5 and 6:
Index Products | Contact Us | About
Page 7 and 8:
technology. We have kept our eye to
Page 9 and 10:
people checked each piece of code.
Page 11 and 12:
and sell through your Web site. (Tr
Page 13 and 14:
grammatical correctness. Kris offer
Page 15 and 16:
In this chapter, I introduce the un
Page 17 and 18:
Page 19 and 20:
example, a “high-speed” Etherne
Page 21 and 22:
which customers are from the state
Page 23 and 24:
Page 25 and 26:
COM automatically “knows” how t
Page 27 and 28:
little more than present forms, men
Page 29 and 30:
Figure 1.4 The beginning of a simpl
Page 31 and 32:
Page 33 and 34:
IBM’s Token Ring architecture run
Page 35 and 36:
application to application. The IP
Page 37 and 38:
Page 39 and 40:
Page 41 and 42:
Any database that organizes data in
Page 43 and 44:
proper choice is highly dependent o
Page 45 and 46:
Page 47 and 48:
equire the database to work too har
Page 49 and 50:
You might want to consider the fina
Page 51 and 52:
Page 53 and 54:
integrated well with XDB. The choic
Page 55 and 56:
The columns correspond to fields in
Page 57 and 58:
Page 59 and 60:
In this example, the database autom
Page 61 and 62:
places, such as 1.25. An irrational
Page 63 and 64:
Page 65 and 66:
key, we assign one to the Student_C
Page 67 and 68:
Page 69 and 70:
Second normal form, usually abbrevi
Page 71 and 72:
might want to consider selectively
Page 73 and 74:
Page 75 and 76:
This example adds a column named Em
Page 77 and 78:
Page 79 and 80:
(such as being only ‘M’ or ‘F
Page 81 and 82:
Page 83 and 84:
Previous Table of Contents Next Pro
Page 85 and 86:
query result. (I expanded upon this
Page 87 and 88:
Page 89 and 90:
If your database does not provide a
Page 91 and 92:
Page 93 and 94:
You can join together more than two
Page 95 and 96:
Page 97 and 98:
SELECT EMP_NO AS 'NUMBER', EMP_LNAM
Page 99 and 100:
Page 101 and 102:
FROM EMPLOYEE The result is: MIN(EM
Page 103 and 104:
GENEVIEVE WESLEY The LTRIM function
Page 105 and 106:
(15, 2) returns 1 because 15 divide
Page 107 and 108:
SELECT SUM(EMP_SALARY) FROM EMPLOYE
Page 109 and 110:
300 66958.36 400 53983.02 You can n
Page 111 and 112:
ORDER BY EMP_DEPT_NO The output of
Page 113 and 114:
SELECT EMP_NO, EMP_FNAME, EMP_LNAME
Page 115 and 116:
Page 117 and 118:
Page 119 and 120:
the ODBC API as a means of database
Page 121 and 122:
DAO/Jet * 4 7 5 6 DAO/ODBCDirect Da
Page 123 and 124:
Page 125 and 126:
Listing 4.1 opens three files (in A
Page 127 and 128:
Page 129 and 130:
Dim sBuffer As String * 512 Get #iF
Page 131 and 132:
Page 133 and 134:
ODBCDirect was added to DAO with ve
Page 135 and 136:
later in this chapter. For new rela
Page 137 and 138:
Page 139 and 140:
End Sub Figure 4.5 The Employee app
Page 141 and 142:
Page 143 and 144:
Listing 4.3 Code from frmDSNList. P
Page 145 and 146:
Page 147 and 148:
When placing a data-aware control o
Page 149 and 150:
Str$(Adodc1.RecordSet.RecordCount)
Page 151 and 152:
Page 153 and 154:
similar to general modules in that
Page 155 and 156:
source to other objects, including
Page 157 and 158:
Page 159 and 160:
If bCancel Then adStatus = adStatus
Page 161 and 162:
Page 163 and 164:
Page 165 and 166:
Structured Query Language, which li
Page 167 and 168:
Figure 5.1 DAO objects in the Jet w
Page 169 and 170:
Page 171 and 172:
dbVersion11 new_db will be the Jet
Page 173 and 174:
Page 175 and 176:
collection after database operation
Page 177 and 178:
dbDecimal Decimal dbDouble Double d
Page 179 and 180:
Page 181 and 182:
nested transactions in an ODBCDirec
Page 183 and 184:
wrkEmp.BeginTrans ' Start of inner
Page 185 and 186:
Set User = object.CreateUser (name,
Page 187 and 188:
three properties: Name, Password, a
Page 189 and 190:
Database Type Specifier Example Mic
Page 191 and 192:
Page 193 and 194:
QueryDef object and thus omits the
Page 195 and 196:
Page 197 and 198:
this, specify a URL instead of a fi
Page 199 and 200:
topic. Connection also has a Cancel
Page 201 and 202:
Page 203 and 204:
docTemp.Properties.Append prpTemp d
Page 205 and 206:
property is useful when two users m
Page 207 and 208:
Page 209 and 210:
ForeignName property is set to the
Page 211 and 212:
Page 213 and 214:
• The Primary property is a Boole
Page 215 and 216:
' Display how many unique values th
Page 217 and 218:
Page 219 and 220:
current object should be replicated
Page 221 and 222:
Page 223 and 224:
"EMP_LNAME, EMP_SALARY FROM EMPLOYE
Page 225 and 226:
Page 227 and 228:
set automatically reflects the chan
Page 229 and 230:
workspaces. In a Jet workspace, BOF
Page 231 and 232:
each record in the RecordSet. The c
Page 233 and 234:
Page 235 and 236:
occurrences. FindLast finds the las
Page 237 and 238:
Products | Contact Us | About Us |
Page 239 and 240:
chapter provides an example of usin
Page 241 and 242:
Page 243 and 244:
End Sub Table 5.15 Constants for th
Page 245 and 246:
loaded as it does in DAO, and RDO p
Page 247 and 248:
doEngine object is created. Additio
Page 249 and 250:
messages (ODBC SQL_SUCCESS_WITH_INF
Page 251 and 252:
Page 253 and 254:
in an rdoEnvironment object, all rd
Page 255 and 256:
Page 257 and 258:
If cSalary !emp_Salary Then ' If c
Page 259 and 260:
password parameters are not supplie
Page 261 and 262:
The rdoConnections Collection And r
Page 263 and 264:
Command1(0).Enabled = True Command1
Page 265 and 266:
Dim vErr As rdoError For Each vErr
Page 267 and 268:
objects. If the query was successfu
Page 269 and 270:
Page 271 and 272:
Page 273 and 274:
Page 275 and 276:
embrace where two processes lock ea
Page 277 and 278:
Page 279 and 280:
Page 281 and 282:
Connect:="UID=Coriolis;PWD=Coriolis
Page 283 and 284:
If MsgBox(sMsg, vbYesNo & vbQuestio
Page 285 and 286:
pbStatus.Value = .PercentPosition D
Page 287 and 288:
cannot be updated. If the columns r
Page 289 and 290:
Page 291 and 292:
Dim vArray As Variant ' Get 100 row
Page 293 and 294:
modified. You can set the Cancel ar
Page 295 and 296:
Page 297 and 298:
The SourceColumn and SourceTable pr
Page 299 and 300:
stored procedures from Visual Basic
Page 301 and 302:
Figure 6.6 The RDO parameters demon
Page 303 and 304:
Private Sub MSRDC1_Error(Number As
Page 305 and 306:
Page 307 and 308:
Page 309 and 310:
With VB6 comes MDAC 2.0, which adde
Page 311 and 312:
Page 313 and 314:
Remote Data Services (RDS) is a dev
Page 315 and 316:
adGUID Globally unique identifier (
Page 317 and 318:
Page 319 and 320:
(ByVal pError As ADODB.Error, _ adS
Page 321 and 322:
that few records are affected and a
Page 323 and 324:
adXactChaos (Default.) Cannot overw
Page 325 and 326:
(adSchemaTables, Array(Empty, Empty
Page 327 and 328:
Dim sTable As String sTable = lbTab
Page 329 and 330:
Figure 7.6 Message from the data so
Page 331 and 332:
A value of 0 specifies that there i
Page 333 and 334:
Page 335 and 336:
• The Direction property is used
Page 337 and 338:
To move through a set of records, y
Page 339 and 340:
ByVal pRecordset As ADODB.Recordset
Page 341 and 342:
adOpenStatic. If you will be perfor
Page 343 and 344:
as an argument the number of record
Page 345 and 346:
FileName argument is self-explanato
Page 347 and 348:
OriginalValue property contains the
Page 349 and 350:
Page 351 and 352:
ADO, RDO, and DAO are roughly analo
Page 353 and 354:
Page 355 and 356:
it exploits enough different method
Page 357 and 358:
"UID=Coriolis;PWD=Coriolis" Set aco
Page 359 and 360:
Page 361 and 362:
You must modify the connection stri
Page 363 and 364:
' Display the results With arsRepor
Page 365 and 366:
Objects library to Microsoft Active
Page 367 and 368:
Page 369 and 370:
lbTables(0).AddItem ars.Fields(1).V
Page 371 and 372:
Page 373 and 374:
Page 375 and 376:
e automatically created (!). To use
Page 377 and 378:
Page 379 and 380:
eing the data source of a Command o
Page 381 and 382:
Page 383 and 384:
default caption. I did this for the
Page 385 and 386:
4. Now, you will need to add naviga
Page 387 and 388:
txtRaise(2) = deStoredProcedure.Com
Page 389 and 390:
object’s name by prefixing it wit
Page 391 and 392:
Page 393 and 394:
The DataReport object supports a nu
Page 395 and 396:
Page 397 and 398:
Command object represents a band in
Page 399 and 400:
ight-click on the Flexgrid control
Page 401 and 402:
Page 403 and 404:
Select Case dir Case rsFirst rs.Mov
Page 405 and 406:
Page 407 and 408:
ByVal pConnection As ADODB.Connecti
Page 409 and 410:
Page 411 and 412:
If IsNull(rs(iRs).Fields(iCtr - iSt
Page 413 and 414:
possible. In fact, the nature of VB
Page 415 and 416:
Page 417 and 418:
To map the properties, select Proce
Page 419 and 420: Brief Full Advanced Search Search T
Page 423 and 424: object in component based developme
Page 425 and 426: If Len(first) = 0 Or Len(last) = 0
Page 427 and 428: Previous Table of Contents Next Pro
Page 429 and 430: Figure 10.2 Once you declare a refe
Page 431 and 432: Private Sub Graphics_PrintIt(Target
Page 433 and 434: The next example modifies the Print
Page 435 and 436: End Select End Sub I will show you
Page 437 and 438: sMsg = "The following errors were e
Page 439 and 440: Private WithEvents empCLSDemo As cl
Page 441 and 442: triggered. In that event, I invoke
Page 443 and 444: Why go to all this trouble? Figure
Page 445 and 446: object. In a sense, the class modul
Page 447 and 448: Optimizing Cross-Process Calls As n
Page 451 and 452: start it in a separate instance of
Page 453 and 454: this method remotely, and I was for
Page 457 and 458: .Height = (iIndex * 360) + 1850 .Sh
Page 461 and 462: All of the code in both the remote
Page 463 and 464: the data dictionary. I will then le
Page 465 and 466: number of solutions. Previous Table
Page 467 and 468: CTRY_NAME VARCHAR (35) NOT NULL, CO
Page 469: dd_desc VARCHAR (64), CONSTRAINT PK
Page 473 and 474: Public when the application opens:
Page 475 and 476: cannot take an Oracle stored proced
Page 477 and 478: efficient), I chose to use the sp_l
Page 479 and 480: ' Command object for the stored pro
Page 481 and 482: End Function When ADO dynamically c
Page 483 and 484: RETURN ; END IF ; /* If country sta
Page 485 and 486: Previous Table of Contents Next Pro
Page 487 and 488: FROM data_dic WHERE dd_type = old_d
Page 489 and 490: Figure 11.3 The Data Dictionary Mai
Page 491 and 492: data type—its underlying data typ
Page 493 and 494: Products | Contact Us | About Us |
Page 495 and 496: CommitTrans Else RollbackTrans End
Page 497 and 498: Products | Contact Us | About Us |
Page 499 and 500: any money. At worst, it should at l
Page 503 and 504: update to Cindy failed but the upda
Page 505 and 506: UPDATE employee SET emp_salary = 50
Page 509 and 510: difficult to update. With XML, the
Page 511 and 512: Raining on and off throughout the
Page 517 and 518: library in your Visual Basic projec
Page 519 and 520: ReplaceNode Replaces one node with
Page 521 and 522:
Page 523 and 524:
Public WithEvents DownloadTimer As
Page 525 and 526:
Page 527 and 528:
Page 529 and 530:
Sunny and hot. Raining on a
Page 531 and 532:
Page 533 and 534:
Page 535 and 536:
Of course, it would be useful to ge
Page 537 and 538:
Page 539 and 540:
Recursion is a powerful programming
Page 541 and 542:
Dim Index As Integer Dim tempNode A
Page 543 and 544:
End Sub You could create a simple X
Page 545 and 546:
Figure 12.4 A DTD makes it much eas
Page 547 and 548:
Page 549 and 550:
The DTD is contained as part of th
Page 551 and 552:
Page 553 and 554:
In addition to enumerated lists, th
Page 555 and 556:
Skies will be clear and warm today,
Page 557 and 558:
Page 559 and 560:
which relies heavily on line breaks
Page 561 and 562:
&ALABAMA; &ALASKA; &ARIZONA; ... &W
Page 563 and 564:
Page 565 and 566:
can also leverage the powers of DHT
Page 567 and 568:
Page 569 and 570:
information, usually a structured s
Page 571 and 572:
somewhat in sales. IIS introduced A
Page 573 and 574:
Page 575 and 576:
client side scripting is fully visi
Page 577 and 578:
Page 579 and 580:
Page 581 and 582:
happening than just the creation of
Page 583 and 584:
Page 585 and 586:
Page 587 and 588:
Cookies A collection of cookies tha
Page 589 and 590:
Page 591 and 592:
8. Select the WeatherSummary object
Page 593 and 594:
Page 595 and 596:
for all these possible additional p
Page 597 and 598:
• Query strings have a limit of 1
Page 599 and 600:
Page 601 and 602:
eturns it as a formatted string. Fu
Page 603 and 604:
The Daily Post As mentioned previou
Page 605 and 606:
Page 607 and 608:
Page 609 and 610:
4. Double-click the weatherSubmitFo
Page 611 and 612:
Page 613 and 614:
If Request.Form("Forecast")="" then
Page 615 and 616:
shows the actual Web event connecti
Page 617 and 618:
Page 619 and 620:
in the record are modified and then
Page 621 and 622:
Page 623 and 624:
the list of all states, ordered by
Page 625 and 626:
Response.Write "" Response.Write Re
Page 627 and 628:
Page 629 and 630:
Page 631 and 632:
same format as a rainfall map. A We
Page 633 and 634:
still using Internet Explorer 3.x a
Page 635 and 636:
Page 637 and 638:
Figure 14.5 The standard Properties
Page 639 and 640:
Figure 14.10). Notice that the docu
Page 641 and 642:
The highlighted code in Listing 14.
Page 643 and 644:
Page 645 and 646:
CtrlKey Boolean True if the Ctrl ke
Page 647 and 648:
Page 649 and 650:
collections, many of which are cove
Page 651 and 652:
ClearInterval(timerID as Long) Clea
Page 653 and 654:
Prompt(msg as String, defaultStr as
Page 655 and 656:
Page 657 and 658:
OuterText=textString OuterText=“T
Page 659 and 660:
Mouse Data The STYLE=“positio
Page 661 and 662:
Page 663 and 664:
as a or paragraph element, accumul
Page 665 and 666:
Dim expn As String expn = TextData
Page 667 and 668:
uffer = buffer + expn WriteLn = exp
Page 669 and 670:
Page 671 and 672:
Dim rowOS as COStream 'Set the dest
Page 673 and 674:
example, if you wish to retrieve th
Page 675 and 676:
Page 677 and 678:
Page 679 and 680:
Dim cell As HTMLTableCell Dim row A
Page 681 and 682:
Page 683 and 684:
While on the subject of the parentW
Page 685 and 686:
Page 687 and 688:
Understanding Input Text boxes and
Page 689 and 690:
High Temperature:° F Low Tempe
Page 691 and 692:
For index = 0 To lbCtrl.Length - 1
Page 693 and 694:
Exit For End If Next RS.Close conn.
Page 695 and 696:
Page 697 and 698:
State = States.Value Set WeatherTab
Page 699 and 700:
Page 701 and 702:
Page 703 and 704:
Scrollbars Built into containers Th
Page 705 and 706:
Page 707 and 708:
A little searching reveals that, in
Page 709 and 710:
Set opt = Document.createElement("O
Page 711 and 712:
Page 713 and 714:
Figure 15.1 The Project Properties
Page 715 and 716:
HSPACE=0 > 2. Create a new DHTML
Page 717 and 718:
Page 719 and 720:
loop Img.loop=3 Indicates the numbe
Page 721 and 722:
useMap Img.useMap=“#MyMap” Prov
Page 723 and 724:
there are times (especially with We
Page 725 and 726:
associating code as with ExecFuncti
Page 727 and 728:
Page 729 and 730:
tools. The tag demonstrates both t
Page 731 and 732:
style rules that you need, as shown
Page 733 and 734:
Page 735 and 736:
posLeft, MyDiv.style.posLeft=20 Set
Page 737 and 738:
This is some text This is anoth
Page 739 and 740:
Page 741 and 742:
sheet’s rule. Listing 15.7 The Ge
Page 743 and 744:
slt=document.parentWindow.confirm("
Page 745 and 746:
Answer=window.showModalDialog(URL,a
Page 747 and 748:
Visual Basic 6 includes two new use
Page 749 and 750:
ibliography at the end of this chap
Page 751 and 752:
The calendar object is de
Page 753 and 754:
Comment.Value = Replace(RS("Comment
Page 755 and 756:
goods at all stages of production,
Page 757 and 758:
Page 759 and 760:
Page 761 and 762:
DEPT_LOC_ID CHAR (3) NOT NULL, DEPT
Page 763 and 764:
ALTER TABLE LINE_ITEM ADD CONSTRAIN
Page 765 and 766:
Page 767 and 768:
COMMIT, ROLLBACK, And LOCK ANSI SQL
Page 769 and 770:
VAR returns the variance (the squar
Page 771 and 772:
RDO is loaded instead. However, whe
Page 773 and 774:
Level 2 Conformance Requirements
Page 775 and 776:
objects, 374 proxy objects and, 18
Page 777 and 778:
B Application Wizard, 125, 619 Appl
Page 779 and 780:
C Bound controls, 202 Boyce-Code no
Page 781 and 782:
doConnection object, 235 rdoResults
Page 783 and 784:
Connection object, 278 parameters,
Page 785 and 786:
Microsoft Jet and, 105 object cross
Page 787 and 788:
QueryTimeOut property, 159 RecordsA
Page 789 and 790:
Debug mode, 618 DECIMAL (38) data t
Page 791 and 792:
E Documents collection, 138, 168-16
Page 793 and 794:
F properties, 288 Source property,
Page 795 and 796:
G FLOATING POINT data type, 46 Floa
Page 797 and 798:
I Hello World application, 511-514,
Page 799 and 800:
delegation, 122 reuse, 121-122 Inhe
Page 801 and 802:
doResultset object, 245-246 RecordS
Page 803 and 804:
N MIN function, 79, 80 Minimum ODBC
Page 805 and 806:
O NodeValue property, 472 NoMatch p
Page 807 and 808:
P OpenSchema method, 284, 324, 327-
Page 809 and 810:
Q prop_type string, 148 prop_val st
Page 811 and 812:
licensing fees, 35 Lotus Approach,
Page 813 and 814:
doCreateEnvironment property (rdoEn
Page 815 and 816:
doVersion property (rdoEngine objec
Page 817 and 818:
ValidationText property, 196 Record
Page 819 and 820:
S ResultChanged event (rdoResultset
Page 821 and 822:
Snapshot-type record set, 189 SNF.
Page 823 and 824:
T Strings, 45 XML attribute values
Page 825 and 826:
U Connection object, 165 rdoConnect
Page 827 and 828:
W RecordSet object, 196 TableDef ob
Page 829 and 830:
X Type property, 151 UserName prope
show all

Visual Basic 6 Client/Server Programming Gold Book:Table of ...

Create successful ePaper yourself

Delete template?

Save as template?