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²»ÊǾͿÉÒÔÁË ......
´ó¼ÒºÃ£¬Îʸövb´òÓ¡ÎÊÌâ
printer.print "dsff"
.....
....
Printer.EndDoc
´òÓ¡³É¹¦ºóÎÒ½«Ö´ÐÐ
sqlstr = "update vc_yh set pr=' ÒÑ´òÓ¡ ', ......
±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
³ö錯µÄ時ºòÈ¥執ÐÐÒ»¶Î´ú碼Ö®áá,Ôٻص½³ö錯µÄµØ·½½ÓÖøÍùÏÂ執ÐÐ
ÈçºÎÓÃvb來實現?
Sub FFFFFFF()
AAAA:
On Error goto BBBB
....
.... ......
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
......