vb²åÈëÊý¾Ý¿âÖØ¸´ÖµÎÊÌâ
ÔÚvbÖÐÔõôÅжϣ¬²åÈëµ½Êý¾Ý¿âÖеÄÖµÊÇÖØ¸´µÄ£¬±¾È˲ŸսӴ¥VBÓïÑÔ£¬ÉõÊÇÓÐºÃ¶àµØ·½»¹²»¶®£¬»¹Çë¸÷λ´óÏÀÃǸø³ö´úÂ룬ллÁËѽ£¡£¡£¡
²åÈë֮ǰselectһϰ¢¡£
»òÕßдһ¸ö×éºÏSQL²åÈëÓï¾ä£¬ÀýÈç
IF not Exist(
select .......
)
begin
insert into ......
end
Èç¹ûÄã²åÈëµÄÖµÊÇÄÜÔÚÊý¾Ý¿âÖÐ×öÖ÷¼üµÄÄǾÍÉèÖÃÒ»ÏÂ,²åÈë´íÎóµÄʱºò°Ñ´íÎ󽨻ñÒ»ÏÂ,Ò²ÄܴﵽЧ¹û
µ±È»Â¥ÉÏ˵µÄÒ²¿ÉÒÔ
´¦Àí˼·
1¡¢ÏȽ«Òª²åÈëÊý¾Ý¿âµÄÊý¾Ý´æ´¢ÔÚÒ»¸öÊý×éÖÐ
2¡¢È¥³ýÊý×éÖÐÖØ¸´µÄÏֻÁôÒ»¸ö¡£
3¡¢²åÈëÊý¾Ý¿â
ÓпÉÄÜÊDzåÈëºóÊý¾Ýºó£¬Ã»ÓжԱäÁ¿/Êý×é±äÁ¿ÖµÇå¿Õµ¼Ö¡£
×Ô¼º²éѯÅжÏ....
Ïà¹ØÎÊ´ð£º
TF1.text = " <_2_ZCHGZBH> " & MSFlexGrid1.TextMatrix(k, 1) & " </_2_ZCHGZBH> "
´ó¼ÒºÃ£¬ÎÒÓÃÉÏÃæÒ»¸ö¶«Î÷¸³Öµ TF1.text = & ......
vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£
û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£
XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£
Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£
Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......
ÔõôÓÅ»¯²éѯµÄЧÂÊ£¬±ÈÈçÎÒÏë´Ó100ÍòÌõ¼Ç¼ÖÐÿ´ÎÖ»²éѯ100Ìõ¼Ç¼µÄ»°£¬ÄÇôÕâÌõsqlÓï¾ä¸ÃÔõôʵÏÖ£¬×¢Ò⣺ÓïÑÔÊÇVBScriptµÄ£¬
http://www.cnblogs.com/anjou/archive/2007/10/17/926944.html
Éæ¼°µ½Ëã·¨£¬goog ......
Private Sub Check1_Click()
If Check1.Value = 1 Then
DTP1.Enabled = True
Else
DTP1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
DTP2.Enabled = True
Else
......