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)" & "
Ïà¹ØÎÊ´ð£º
Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......
±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
¹²ÓÐ4¸öʾÀý¶¥µã»º´æInstanceVB1£¬InstanceVB2,InstanceVB3£¬InstanceVB4£¬ËüÃǵÄÖµ¶¼ÊÇͨ¹ýÒ»¸öÑ»·½øÐи³Öµ£¬ÇëÎÊ¿ÉÒÔÈçϲÙ×÷Âð£¬Ôõô²Ù×÷ЧÂÊ×î¸ß£¿
InstanceVB1->Lock£¨...);
InstanceVB2->Loc ......
form2,form3¶¼·Ö±ðÓÐÒ»¸ölabel1ÊôÐÔÊÇÒ»Ñù
Private Sub Command1_Click()
Dim lbl As Label
if combo1.text="1" then
lbl = Form2.Label1
else
lbl = Form3.Label1
end if
......