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

vb2005²Ù×÷access

ÎÒÏëʵÏÖµÄÊǸüмǼµÄÒ»¸ö¹¦ÄÜ
ÔÚÕâ¸ö±íÖÐ ÓÐÈÕÆÚ ºÍ»õ±ÒÀàÐ͵Ä×Ö¶Î

±í×Ö¶ÎΪ

MemberCharge ±íÃû


ID1        ×Ô¶¯±àºÅ
ID        Îı¾
DateTime  ʱ¼ä
Type      Êý×Ö
Money      »õ±Ò
StorageMoney  »õ±Ò

ÒÔÉÏÊDZíµÄ

VB.NET code:

Dim strUpdate As String = "update MemberCharge set ID=@ID,DateTime=@DateTime,Type=@Type,Money=@Money,StorageMoney=@StorageMoney where ID1=@ID1"



Õâ¸öÊÇÎÒ×Ô¼ºµÄдµÄ sqlÓï¾ä
VB.NET code:

myComm.Parameters.AddWithValue("@ID1", txtID1.Text.Trim)
myComm.Parameters.AddWithValue("@ID",txtID.Text.Trim)
myComm.Parameters.AddWithValue("@DateTime",txtTime.Text.Trim)
myComm.Parameters.AddWithValue("@Type", txtMemberType.Text.Trim)
myComm.Parameters.AddWithValue("@Money", txtMoney.Text)
myComm.Parameters.AddWithValue("@StorageMoney", txtMoney.Text)
myComm.ExecuteNonQuery()


¸üÐÂʧ°Ü£¬ËµÎÒµÄupdateÓï¾äÓдíÎó£¬ÎÒÓе㲻Ã÷°×ÎÒ´Ó  Êý¾Ý¿âÖжÁÈ¡µ


Ïà¹ØÎÊ´ð£º

VBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ

ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾ­Í¨¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË&# ......

VBÈçºÎ×èֹij³ÌÐòÔËÐС££¿

±ÈÈç½ø³Ì¼ÓÔØеijÌÐò¡£

ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£

È»ºóÔÊÐíºó·ÅÐС£


±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£

¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£

ÉèÖ ......

ÇëºÃÐÄÈË°ïÎÒ°ÑVBÔ´ÂëתΪVB.NET~

Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..


Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html

תΪVB.NETÔ´Âë.

СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ

ÎÒµÄEMAILÊÇ:4452 ......

VBÈçºÎÁªÏµÁ½¸ö´°Ì壿

¾ÍÊÇÉè¼ÆÒ»¸ö¼ÆËã»úÄ£Ä⿼ÊÔϵͳ£¬´øÓÐѧÉúºÍ¹ÜÀíÔ±£¬ËùÒԵǼ´°ÌåºÍÖ÷´°ÌåÏë·Ö¿ª£¬µÇ½ѧÉúµÄÏÔʾѧÉúµÄÖ÷´°Ì壬µÇ½¹ÜÀíÔ±ÏÔʾ¹ÜÀíÖ÷´°Ì壬ÎÒÖ»»áÒ»¸ö´°ÌåÓÃÒ»¶Ñ¿Ø¼þ£¬ÏÖÔÚÏíÓжà¸öÖ÷´°Ì壬²»ÖªµÀÔõô×ö£¬Ï£ÍûÇë´ó ......

VB Çë½Ì¸ßÊÖ¹ØÓÚÓû§¿Ø¼þÎÊÌâ

ÎÒÖÆ×÷Á˸öÓû§¿Ø¼þ£¬ÐèÒª¶¯Ì¬¼ÓÔص½´°ÌåÉÏ

    Set objExt = Controls.Add("¹¤³Ì1.meActiveX", argName)
    objExt.Visible = True

³ÌÐòÒ»´ÎÄܼÓÔØN¸ö£¬ ÏÖÔÚÏë¶Ô ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ