VBµÄÎÊÌâ
ÄǸö´ó¸ç°ï°ïÎÒ ÎÒvb³ÌÐòÖÐÓеãСÎÊÌâ ÔÚÎҵijÌÐòÖÐн¨Ì×ÕÊÊDz»ÄÜÔÙÁбíÖÐÁ¢¼´ÏÔʾн¨µÄÌ×ÕÊ Õâ¸öÀïÃæ²»ÄÜÓÃË¢ÐÂÀ´ÊµÏÖ ÎÒ¸ÃÔõô½â¾ö ÎҵijÌÐòÈçÏ£º
Private Sub Add_Click()
If cnn.State = 1 Then cnn.Close
cnn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=yxsell;Data Source=."
Set yx1 = cnn.Execute("select * from Óû§ where Óû§Ãû='" & yxadmin & "'")
If yx1.Fields("ȨÏÞ") <> 1 Then
msg = MsgBox("ÄúûÓÐÓû§¹ÜÀíµÄȨÏÞ", vbCritical, "˹¿÷èERP—Óû§¹ÜÀí")
Exit Sub
Else
Newdatabase.Show 1, Me
End If
End Sub
ÔõôûÈË˵»° °¡£¿
û¿´¶®
http://C:\Documents and Settings\Administrator\×ÀÃæ\˹¿÷èERP
¾ÍÊÇÔڲ˵¥ÖÐн¨µÄ Á¢¼´ÔÚlist—dataÖÐÄÜ¿´µ½Ð½¨µÄÌ×ÕÊ
'Dim YongHu As New Recordset
Dim msg As String
Private aDo_DataBase As New ADODB.Recordset
Private Sub Add_Click()
If cnn.State = 1 Then cnn.Close
cnn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=yxsell;Data Source=."
Set yx1 = cnn.Execute("select * from Óû§ where Óû§Ãû='" & yxadmin & "'")
If yx1.Fields("ȨÏÞ") <>
Ïà¹ØÎÊ´ð£º
ÔÚvbÖÐÔõôÅжϣ¬²åÈëµ½Êý¾Ý¿âÖеÄÖµÊÇÖØ¸´µÄ£¬±¾È˲ŸսӴ¥VBÓïÑÔ£¬ÉõÊÇÓÐºÃ¶àµØ·½»¹²»¶®£¬»¹Çë¸÷λ´óÏÀÃǸø³ö´úÂ룬ллÁËѽ£¡£¡£¡
²åÈë֮ǰselectһϰ¢¡£
»òÕßдһ¸ö×éºÏSQL²åÈëÓï¾ä£¬ÀýÈç
IF not Exist(
& ......
ÎÒÏë×ö¸öÓÃvb6×öµÄ³ÌÐò£¬¿ÉÒÔ¿ØÖÆGPRS MODEM²¦ºÅ£¬È粦ÎÒ×Ô¼ºµÄÊÖ»ú
¿ÉÒÔ°¡
ÄãÏÈϸöATÃüÁºÏѧϰѧϰ
ÎÒÀ´¶¥
¶¥Ìù
LZºÃÀ÷º¦
²»¶¥²»ÐÐ
ÀÏÊÇÅÅMP
ÒýÓÃ
LZºÃÀ÷º¦
......
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
ÎÒÔÚÓÃVBдһ¸ö½«ÊÓÆµÎļþÉÏ´«µ½Ô¶³ÌÊý¾Ý¿âµÄС³ÌÐò£¬ÏÖÔÚÏëÒªÓýø¶ÈÌõÀ´ÏÔʾµ±Ç°ÉÏ´«µÄ½ø¶È£¬ÇëÎÊÒªÔõô×öÄØ£¿ÎÒÊǸöÐÂÊÖ£¬ËùÒÔÂé·³´ó¼Ò°ÑÒâ¼ûдÇå³þһЩ£¬ÓдúÂë×îºÃÀ²£¬Ð»Ð»£¡
ÒªÍêÈ«ÕýÈ·±È½ÏÀ§ÄÑ¡£
¹À¼ÆÏ° ......