VB ²éѯÓï¾ä³ö´í
VB code:
'sqlstr = "INSERT INTO useinfo " & "(usename ,password)" & " values (' " & usename & " ' " & ",'" & password & "');"
´úÂëÈçÉÏ
ÎÒÓõÄÊÇADOÁ¬½ÓACCESSÊý¾Ý¿â.
ÔÚµ÷ÊÔʱ ÌáʾINSERT INTO Óï¾äÓï·¨´íÎó
Çë´ó¼Ò°ïÎÒ¸ü¸ÄÏÂ,ÎÒ²»ÖªµÀÄÇÀï³ö´íÁË,ÓôÃÆ
sqlstr = "INSERT INTO useinfo (usename ,password) values ('" & usename & "', '" & password & "')"
sqlstr = "INSERT INTO useinfo " & "(usename ,password)" & " values (' " & usename & " ' " & ",'" & password & "');"
ûÓбØÒª
passwordÊÇjetÒýÇæµÄ¹Ø¼ü×Ö£¬×îºÃ²»ÒªÓÃÓÚ×Ö¶ÎÃû³Æ£¬Èç¹ûÓÃÁË£¬SQLÓï¾äÖÐÓÃ[]ºÅÀ¨ÆðÀ´
»¹ÓÐÒ»¸öÍêÕûµÄ×Ö·û´®²»ÒªÓÃ&´®½Ó£¬Ö»ÓÐÓöµ½±äÁ¿Ê±£¬²ÅÒªÓÃ&´®½Ó
SQL code:
sqlstr = "INSERT INTO useinfo (usename ,[password]) values ('" & usename & "','"& password & "');"
sqlstr = "INSERT INTO useinfo " & "(usename ,password)" & "
Ïà¹ØÎÊ´ð£º
Printer.ScaleMode = 6
6±íʾºÁÃ×
Printer.PaperSize = vbPRPSA4
'³õÊ¼×ø±ê
x = 1
y = 4
'×î´óµÄÏß¿ð
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......
±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
ÎÒÓÐ×Ô¶¯Éú³ÉÐòÁкŵijÌÐò£¬µ«ÊÇÔõô¸ú´ò°üºóµÄ°²×°³ÌÐò½áºÏÔÚÒ»Æð£¬ÔÚ°²×°Ê±ÌáʾÓû§ÊäÈëÐòÁкţ¬ÕýÈ·ºóÔÙ¼ÌÐø°²×°£¿£¿£¿
·½·¨1£ºÄã¿ÉÒÔÔÚÔËÐгÌÐòºóÊäÈëÐòÁкÅ×¢²á£¬ºÜ¶àÈí¼þ¶¼ÊÇÕâÑùµÄ¡£
·½·¨2£ºÊ¹ÓÃSetu ......
×òÌìлл chenhui530 °ïÎÒ½â¾öÁË´°¿ÚºÍÀàÃûµÄ¶¯Ì¬Ëæ»úÉú³É¡£
µ«ÏÖÔÚÓÐÒ»¸öÒÉÎÊ£¬¾ÍÊÇËùÓд°¿ÚºÍ¿Ø¼þ¸Ä³ÉµÄËæ»úÀàÃûºó£¬ÊÇ·ñÔÚ³ÌÐò¹Ø±Õʱ×Ô¶¯Ïú»ÙÁËÄØ£¿
Èç¹ûÐ¶ÔØ´°Ìåʱ¼ÓÉÏEND£¬»á×Ô¶¯½øÐÐÇåÀí¡£
×îºÃÑø³É Re ......
´ÓÍøÉÏÕÒÁËÒ»¸ö°æ±¾£¬Ô´´úÂëÈçÏ£º
VB code:
Option Explicit
'Global DefLang As String
Const WebURL As String = "http://translate.google.com/translate_t"
Const SearchString As Strin ......