| ²é¿´: 1108 | »Ø¸´: 0 | ||
wenchongгæ (³õÈëÎÄ̳)
|
[ÇóÖú]
ÀûÓÃVB6.0´´½¨AccessÐÂ±í²¢ÇÒбíÿÁеġ°±ØÌî×ֶΡ±Îª·ñ
|
|
dim MyCatalog as ADOX.Catalog dim Mytable as table dim Myrecordset as Recordset Set Mytable = New table 'н¨±í²¢Ð´ºÃÃû×ÖÓë×Ö¶ÎÃû Mytable.Name = "abcde" Mytable.Columns.Append "a", adInteger Mytable.Columns.Append "b", adVarWChar, 20 Mytable.Columns.Append "c", adVarWChar, 20 Mytable.Columns.Append "d", adInteger Mytable.Columns.Append "e", adVarWChar, 20 MyCatalog.Tables.Append Mytable '½«Ð±íÌí¼Óµ½Ä¿Â¼ Set Mytable = Nothing Set MyCatalog = Nothing Set MyRecordset = New ADODB.Recordset 'н¨¼Ç¼¼¯²¢ÉèÖà MyRecordset.CursorType = adUseClient MyRecordset.LockType = adLockOptimistic MyRecordset.CursorLocation = adUseClient MyRecordset.Open "abcde", MyConnection, adOpenDynamic, adCmdTable MyRecordset.Fields("a" .Properties("Required" .Value = False MyRecordset.AddNew MyRecordset.MoveFirst ' ÍùÏ¿ªÊ¼ÖðÌõд¼Ç¼ ÈçºìÉ«Óï¾äÏÔʾµÄ£¬±¾ÈËÓÃvb6.0¶ÔAccess2007н¨±í£¬ÏëÔÚ±í´ò¿ªºó£¬¶Ô×Ö¶ÎÊôÐԵġ°±ØÌî×ֶΡ±ÓÉĬÈÏÖµ¡°ÊÇ¡±ÐÞ¸ÄΪ¡°·ñ¡±£¬ÔÚÍøÉϲéÁËһЩд·¨£¬µ«Ã»³É¹¦£¬ÕâÀïÇë½Ì¸÷λ¸ßÊÖÁË¡£ |
» ²ÂÄãϲ»¶
ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼±
ÒѾÓÐ8È˻ظ´
ÌåÖÆÄÚ³¤±²ËµÌåÖÆÄÚ¾ø´ó²¿·ÖÒ»±²×ÓÔڵײ㣬ÈçͬÄãÃÇÒ»Ñù´ó²¿·ÖÆÕͨ½ÌʦæÇÒÊÕÈëµÍ
ÒѾÓÐ13È˻ظ´
ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼±
ÒѾÓÐ8È˻ظ´
ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼±
ÒѾÓÐ8È˻ظ´
ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼±
ÒѾÓÐ11È˻ظ´
ΪʲôÖйú´óѧ¹¤¿Æ½ÌÊÚÃÇË®ÁËÄÇô¶àËùνµÄ¶¥»á¶¥¿¯£¬µ«»¹ÊÇ×ö²»³öÓîÊ÷»úÆ÷ÈË£¿
ÒѾÓÐ8È˻ظ´
ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼±
ÒѾÓÐ5È˻ظ´
ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼±
ÒѾÓÐ6È˻ظ´
ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼±
ÒѾÓÐ9È˻ظ´
ÊÛSCIÒ»ÇøÎÄÕ£¬ÎÒ:8 O5 51O 54,¿ÆÄ¿ÆëÈ«,¿É+¼±
ÒѾÓÐ4È˻ظ´
ÕÒµ½Ò»Ð©Ïà¹ØµÄ¾«»ªÌû×Ó£¬Ï£ÍûÓÐÓÃŶ~
¡¾·ÖÏí¡¿MapgisÓ¦Óü¼ÇÉ
ÒѾÓÐ13È˻ظ´
¿ÆÑдÓСľ³æ¿ªÊ¼£¬ÈËÈËΪÎÒ£¬ÎÒΪÈËÈË













.Properties("Required"
»Ø¸´´ËÂ¥
µã»÷ÕâÀïËÑË÷¸ü¶àÏà¹Ø×ÊÔ´