/ CD Actual Thematic 7: Programming / CDAT7.iso / Share / Java / ScriptBuilder / NOSB30_TRIAL.exe / data1.cab / Program_Files / scriptlib3.sbl / ROOT5 / DATA

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0e 00 00 00 49 6e 73 65 | 72 74 44 62 52 65 63 6f |....Inse|rtDbReco|
|00000010| 72 64 0e 00 00 00 49 6e | 73 65 72 74 44 62 52 65 |rd....In|sertDbRe|
|00000020| 63 6f 72 64 03 00 00 00 | 41 53 50 26 00 00 00 49 |cord....|ASP&...I|
|00000030| 6e 73 65 72 74 73 20 72 | 65 63 6f 72 64 20 69 6e |nserts r|ecord in|
|00000040| 74 6f 20 74 68 65 20 64 | 61 74 61 62 61 73 65 20 |to the d|atabase |
|00000050| 74 61 62 6c 65 68 05 00 | 00 27 3d 3d 3d 3d 3d 3d |tableh..|.'======|
|00000060| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000070| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000080| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000090| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000a0| 3d 3d 3d 3d 3d 0d 0a 27 | 20 50 52 4f 43 45 44 55 |=====..'| PROCEDU|
|000000b0| 52 45 3a 09 49 6e 73 65 | 72 74 44 62 52 65 63 6f |RE:.Inse|rtDbReco|
|000000c0| 72 64 0d 0a 0d 0a 27 20 | 49 4e 50 55 54 3a 09 09 |rd....' |INPUT:..|
|000000d0| 09 64 62 20 28 6f 62 6a | 65 63 74 29 09 09 09 09 |.db (obj|ect)....|
|000000e0| 2d 20 61 6e 20 6f 70 65 | 6e 65 64 20 64 61 74 61 |- an ope|ned data|
|000000f0| 62 61 73 65 20 63 6f 6e | 6e 65 63 74 69 6f 6e 20 |base con|nection |
|00000100| 6f 62 6a 65 63 74 0d 0a | 27 09 09 09 09 09 74 61 |object..|'.....ta|
|00000110| 62 6c 65 6e 61 6d 65 31 | 20 28 73 74 72 69 6e 67 |blename1| (string|
|00000120| 29 09 2d 20 74 68 65 20 | 6e 61 6d 65 20 6f 66 20 |).- the |name of |
|00000130| 74 68 65 20 74 61 62 6c | 65 20 69 6e 74 6f 20 77 |the tabl|e into w|
|00000140| 68 69 63 68 20 74 68 65 | 20 72 65 63 6f 72 64 73 |hich the| records|
|00000150| 0d 0a 27 09 09 09 09 09 | 09 09 09 09 20 20 09 09 |..'.....|....  ..|
|00000160| 09 20 20 61 72 65 20 74 | 6f 20 62 65 20 69 6e 73 |.  are t|o be ins|
|00000170| 65 72 74 65 64 0d 0a 27 | 09 09 09 09 09 74 61 62 |erted..'|.....tab|
|00000180| 6c 65 6e 61 6d 65 32 20 | 28 73 74 72 69 6e 67 29 |lename2 |(string)|
|00000190| 09 2d 20 74 68 65 20 6e | 61 6d 65 20 6f 66 20 74 |.- the n|ame of t|
|000001a0| 68 65 20 74 61 62 6c 65 | 20 66 72 6f 6d 20 77 68 |he table| from wh|
|000001b0| 69 63 68 20 74 68 65 20 | 72 65 63 6f 72 64 73 0d |ich the |records.|
|000001c0| 0a 27 09 09 09 09 09 09 | 09 09 09 20 20 09 09 09 |.'......|...  ...|
|000001d0| 20 20 74 6f 20 69 6e 73 | 65 72 74 20 61 72 65 20 |  to ins|ert are |
|000001e0| 74 6f 20 62 65 20 73 65 | 6c 65 63 74 65 64 20 28 |to be se|lected (|
|000001f0| 6c 65 61 76 65 20 62 6c | 61 6e 6b 0d 0a 27 09 09 |leave bl|ank..'..|
|00000200| 09 09 09 09 09 09 09 20 | 20 09 09 09 20 20 69 66 |....... | ...  if|
|00000210| 20 69 6e 73 65 72 74 69 | 6e 67 20 73 70 65 63 69 | inserti|ng speci|
|00000220| 66 69 63 20 76 61 6c 75 | 65 73 29 0d 0a 27 09 09 |fic valu|es)..'..|
|00000230| 09 09 09 66 69 65 6c 64 | 6c 69 73 74 20 28 73 74 |...field|list (st|
|00000240| 72 69 6e 67 29 09 2d 20 | 61 20 73 74 72 69 6e 67 |ring).- |a string|
|00000250| 20 63 6f 6e 73 74 72 75 | 63 74 65 64 20 75 73 69 | constru|cted usi|
|00000260| 6e 67 20 74 68 65 20 70 | 72 6f 70 65 72 20 71 75 |ng the p|roper qu|
|00000270| 65 72 79 0d 0a 27 09 09 | 09 09 09 09 09 09 09 09 |ery..'..|........|
|00000280| 09 09 20 20 6c 61 6e 67 | 75 61 67 65 20 73 79 6e |..  lang|uage syn|
|00000290| 74 61 78 20 74 68 61 74 | 20 63 6f 6e 74 61 69 6e |tax that| contain|
|000002a0| 73 20 74 68 65 20 6c 69 | 73 74 20 6f 66 0d 0a 09 |s the li|st of...|
|000002b0| 09 09 09 09 09 09 09 09 | 09 09 09 20 20 66 69 65 |........|...  fie|
|000002c0| 6c 64 73 20 77 68 6f 73 | 65 20 76 61 6c 75 65 73 |lds whos|e values|
|000002d0| 20 61 72 65 20 74 6f 20 | 62 65 20 69 6e 73 65 72 | are to |be inser|
|000002e0| 74 65 64 0d 0a 27 09 09 | 09 09 09 76 61 6c 75 65 |ted..'..|...value|
|000002f0| 6c 69 73 74 20 28 73 74 | 72 69 6e 67 29 09 2d 20 |list (st|ring).- |
|00000300| 61 20 73 74 72 69 6e 67 | 20 63 6f 6e 73 74 72 75 |a string| constru|
|00000310| 63 74 65 64 20 75 73 69 | 6e 67 20 74 68 65 20 70 |cted usi|ng the p|
|00000320| 72 6f 70 65 72 20 71 75 | 65 72 79 0d 0a 27 09 09 |roper qu|ery..'..|
|00000330| 09 09 09 09 09 09 09 20 | 20 09 09 09 20 20 6c 61 |....... | ...  la|
|00000340| 6e 67 75 61 67 65 20 73 | 79 74 6e 61 78 20 74 68 |nguage s|ytnax th|
|00000350| 61 74 20 63 6f 6e 74 61 | 69 6e 73 20 61 20 6c 69 |at conta|ins a li|
|00000360| 73 74 20 6f 66 0d 0a 27 | 09 09 09 09 09 09 09 09 |st of..'|........|
|00000370| 09 09 09 09 20 20 76 61 | 6c 75 65 73 20 74 6f 20 |....  va|lues to |
|00000380| 69 6e 73 65 72 74 0d 0a | 0d 0a 27 20 44 45 53 43 |insert..|..' DESC|
|00000390| 3a 09 09 09 54 68 69 73 | 20 70 72 6f 63 65 64 75 |:...This| procedu|
|000003a0| 72 65 20 69 6e 73 65 72 | 74 73 20 61 20 72 65 63 |re inser|ts a rec|
|000003b0| 6f 72 64 20 69 6e 74 6f | 20 61 20 74 61 62 6c 65 |ord into| a table|
|000003c0| 20 75 73 69 6e 67 0d 0a | 27 09 09 09 09 09 61 20 | using..|'.....a |
|000003d0| 70 61 73 73 74 68 72 6f | 75 67 68 20 53 51 4c 20 |passthro|ugh SQL |
|000003e0| 73 74 61 74 65 6d 65 6e | 74 2e 20 09 0d 0a 27 3d |statemen|t. ...'=|
|000003f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000400| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000410| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000420| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000430| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 0d 0a 53 75 62 20 |========|==..Sub |
|00000440| 49 6e 73 65 72 74 44 62 | 52 65 63 6f 72 64 28 64 |InsertDb|Record(d|
|00000450| 62 2c 20 74 61 62 6c 65 | 6e 61 6d 65 31 2c 20 74 |b, table|name1, t|
|00000460| 61 62 6c 65 6e 61 6d 65 | 32 2c 20 66 69 65 6c 64 |ablename|2, field|
|00000470| 6c 69 73 74 2c 20 76 61 | 6c 75 65 6c 69 73 74 29 |list, va|luelist)|
|00000480| 0d 0a 09 44 69 6d 20 73 | 71 6c 20 0d 0a 09 0d 0a |...Dim s|ql .....|
|00000490| 09 49 66 20 4c 65 6e 28 | 76 61 6c 75 65 6c 69 73 |.If Len(|valuelis|
|000004a0| 74 29 20 3d 20 30 20 54 | 68 65 6e 0d 0a 09 09 73 |t) = 0 T|hen....s|
|000004b0| 71 6c 20 3d 20 22 49 4e | 53 45 52 54 20 49 4e 54 |ql = "IN|SERT INT|
|000004c0| 4f 20 22 20 26 20 74 61 | 62 6c 65 6e 61 6d 65 31 |O " & ta|blename1|
|000004d0| 20 26 20 22 20 28 22 20 | 26 20 66 69 65 6c 64 6c | & " (" |& fieldl|
|000004e0| 69 73 74 20 26 20 22 29 | 20 53 45 4c 45 43 54 20 |ist & ")| SELECT |
|000004f0| 22 20 26 20 66 69 65 6c | 64 6c 69 73 74 0d 0a 09 |" & fiel|dlist...|
|00000500| 09 73 71 6c 20 3d 20 73 | 71 6c 20 26 20 22 20 46 |.sql = s|ql & " F|
|00000510| 52 4f 4d 20 22 20 26 20 | 74 61 62 6c 65 6e 61 6d |ROM " & |tablenam|
|00000520| 65 32 0d 0a 09 45 6c 73 | 65 0d 0a 09 09 73 71 6c |e2...Els|e....sql|
|00000530| 20 3d 20 22 49 4e 53 45 | 52 54 20 49 4e 54 4f 20 | = "INSE|RT INTO |
|00000540| 22 20 26 20 74 61 62 6c | 65 6e 61 6d 65 31 20 26 |" & tabl|ename1 &|
|00000550| 20 22 20 28 22 20 26 20 | 66 69 65 6c 64 6c 69 73 | " (" & |fieldlis|
|00000560| 74 20 26 20 22 29 20 56 | 41 4c 55 45 53 20 28 22 |t & ") V|ALUES ("|
|00000570| 20 26 20 76 61 6c 75 65 | 6c 69 73 74 20 26 20 22 | & value|list & "|
|00000580| 29 22 0d 0a 09 45 6e 64 | 20 49 66 0d 0a 09 0d 0a |)"...End| If.....|
|00000590| 09 64 62 2e 45 78 65 63 | 75 74 65 28 73 71 6c 29 |.db.Exec|ute(sql)|
|000005a0| 0d 0a 45 6e 64 20 53 75 | 62 20 27 20 45 6e 64 20 |..End Su|b ' End |
|000005b0| 6f 66 20 69 6e 73 65 72 | 74 44 62 52 65 63 6f 72 |of inser|tDbRecor|
|000005c0| 64 0e 00 00 00 32 2e 30 | 20 61 6e 64 20 68 69 67 |d....2.0| and hig|
|000005d0| 68 65 72 0e 00 00 00 33 | 2e 30 20 61 6e 64 20 68 |her....3|.0 and h|
|000005e0| 69 67 68 65 72          |                         |igher   |        |
+--------+-------------------------+-------------------------+--------+--------+