Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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ÖÐÔõôÅжϣ¬²åÈëµ½Êý¾Ý¿âÖеÄÖµÊÇÖØ¸´µÄ£¬±¾È˲ŸսӴ¥VBÓïÑÔ£¬ÉõÊÇÓÐºÃ¶àµØ·½»¹²»¶®£¬»¹Çë¸÷λ´óÏÀÃǸø³ö´úÂ룬ллÁËѽ£¡£¡£¡
²åÈë֮ǰselectһϰ¢¡£
»òÕßдһ¸ö×éºÏSQL²åÈëÓï¾ä£¬ÀýÈç
IF not Exist(
& ......

vb¿ØÖÆGPRS MODEM²¦ºÅ

ÎÒÏë×ö¸öÓÃvb6×öµÄ³ÌÐò£¬¿ÉÒÔ¿ØÖÆGPRS MODEM²¦ºÅ£¬È粦ÎÒ×Ô¼ºµÄÊÖ»ú
¿ÉÒÔ°¡
ÄãÏÈϸöATÃüÁºÏѧϰѧϰ

ÎÒÀ´¶¥

¶¥Ìù

LZºÃÀ÷º¦

²»¶¥²»ÐÐ

ÀÏÊÇÅÅMP
ÒýÓÃ
LZºÃÀ÷º¦
......

¡¾¼±Çó¡¿VBÖÐʹÓÃWScriptµ÷ÓÃÍⲿÃüÁî - VB / »ù´¡Àà

ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:

Private Function getFile_CMD(filename, filepath) As Bo ......

ÔõôÓÃVB×öÔ¶³ÌÉÏ´«ÎļþʱµÄ½ø¶ÈÌõ£¿

ÎÒÔÚÓÃVBдһ¸ö½«ÊÓÆµÎļþÉÏ´«µ½Ô¶³ÌÊý¾Ý¿âµÄС³ÌÐò£¬ÏÖÔÚÏëÒªÓýø¶ÈÌõÀ´ÏÔʾµ±Ç°ÉÏ´«µÄ½ø¶È£¬ÇëÎÊÒªÔõô×öÄØ£¿ÎÒÊǸöÐÂÊÖ£¬ËùÒÔÂé·³´ó¼Ò°ÑÒâ¼ûдÇå³þһЩ£¬ÓдúÂë×îºÃÀ²£¬Ð»Ð»£¡
ÒªÍêÈ«ÕýÈ·±È½ÏÀ§ÄÑ¡£
¹À¼ÆÏ° ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ