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)" & "
Ïà¹ØÎÊ´ð£º
ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾͨ¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË ......
Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......
´ó¼ÒºÃ£¬Îʸövb´òÓ¡ÎÊÌâ
printer.print "dsff"
.....
....
Printer.EndDoc
´òÓ¡³É¹¦ºóÎÒ½«Ö´ÐÐ
sqlstr = "update vc_yh set pr=' ÒÑ´òÓ¡ ', ......
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
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
......