ÓÃvbÏòÊý¾Ý¿âÌí¼ÓÊý¾ÝµÄÎÊÌ⣬¸ßÊÖÇëÖ¸µ¼£¡
ÓÃvbÏòÊý¾Ý¿âÌí¼ÓÊý¾Ý£¬±àÂëÊÇ×Ô¶¯±àÂ룬Ìí¼ÓºóÔÚÊý¾Ý¿â°ÑÊý¾Ýɾ³ýÁË£¬¿ÉÊÇÔÙ¼ÌÐøÌí¼ÓÊý¾Ý£¬±àÂëÊǰ´É¾³ýǰµÄ±àÂëÍùºó¼ÆÊýµÄ£¬ÇëÎÊÔõÑù½â¾öÕâ¸öÎÊÌ⣿
²¿·Ö´úÂ룺
Private Sub Command1_Click()
'On Error Resume Next
'MsgBox Form1.Data1.Recordset.RecordCount
Form1.Data1.Recordset.AddNew
Form1.Data1.Recordset.Fields(1) = Form2.Text1.Text
Form1.Data1.Recordset.Fields(2) = Form2.Text2.Text
Form1.Data1.Recordset.Fields(3) = Form2.Text3.Text
Form1.Data1.Recordset.Fields(4) = Form2.Text4.Text
Form1.Data1.Recordset.Update
If Err.Number <> 0 Then
Beep
MsgBox "ÊäÈëÊý¾Ý´íÎó£¬ÇëÖØÐÂÊäÈë", vbCritical + vbOKOnly, "´íÎóÐÅÏ¢"
Exit Sub
Else
Form1.Data1.Recordset.Bookmark = Form1.Data1.Recordset.LastModified
End If
Form1.Enabled = True
Unload Form2
End Sub
Form1.Data1.Recordset.Fields(1) = Form2.Text1.Text ÊDz»ÊÇ×Ô¶¯±àºÅµÄ×ֶΣ¬Èç¹ûÊÇ£¬¾Í²»ÓÃдÕâ¸öÁË¡£
²»ÊÇ£¬±àÂëÊǵÚ0¸öÊý¾Ý
Èç¹û×Ö¶ÎÊÇ×Ô¶¯µÝÔöµÄ±êʶÁУ¬ÔòȷʵÊÇÕâÑùµÄ£¬¼´Ê¹ÔÚÊý¾Ý¿âÖÐɾ³ý¼Ç¼ÔÙÔöÐÐÒ²ÊDz»Á¬ÐøµÄ
ÄÇÔõÑù²ÅÄܸÄÉÆÕâ¸
Ïà¹ØÎÊ´ð£º
ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿ØÂ¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓÆµ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......
ÓÃVBÔõôֻÕë¶Ôwindows×Ô´øµÄÎļþµÄÓÒ¼üÌí¼Ó²Ëµ¥ È磨.txt .doc)
Õâ¸öÊÇÖ»Õë¶ÔÒÔÕâÁ½¸öΪÀ©Õ¹ÃûµÄÎļþ²Ù×÷
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\txtfile\shell\[Ëæ±ãÆðÃû]\command]
@= ......
ÔÚvbÖÐÔõôÅжϣ¬²åÈëµ½Êý¾Ý¿âÖеÄÖµÊÇÖØ¸´µÄ£¬±¾È˲ŸսӴ¥VBÓïÑÔ£¬ÉõÊÇÓÐºÃ¶àµØ·½»¹²»¶®£¬»¹Çë¸÷λ´óÏÀÃǸø³ö´úÂ룬ллÁËѽ£¡£¡£¡
²åÈë֮ǰselectһϰ¢¡£
»òÕßдһ¸ö×éºÏSQL²åÈëÓï¾ä£¬ÀýÈç
IF not Exist(
& ......
ÎÒÊÇVBµÄгÉÔ±£¬ÏÖÔÚÏëÓÃVBÀ´×ö¸öTXTÎĵµ£¬Çë´ó¼Ò¸øÎÒ´úÂë¼°½éÉÜÒ»ÏÂÏàÓ¦µÄ¿Ø¼þ£¡
·Ç³£¸Ðл£¡£¡£¡£¡£¡£¡
¿ÉÒÔÓÃһЩOFFICE¿Ø¼þ
googleÉÏÕÒһϰÉ,VBдÈëTXT,ºÜ¶àÑùÀý´úÂëµÄ
Ö±½Óµ÷²éÓþͿÉÒÔÁË
Ãæ¶ÔÃÀÅ® ......
µÚÒ»´Î½Ó´¥CrystalReport
¼±Ñ°ÕÒVb.net Access ͨ¹ý²éѯ³öµÄÊý¾ÝÊä³öµ½CrystalReportµÄÀý×Ó.
ÓеÄÅóÓÑÂé·³·¢À´Ñ§Ï°.¶àл!
¸úÄãµÄÒªÇó²î²»¶à£¬²Î¿¼Ò»Ï£º
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......