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Óï¾äÓдíÎó£¬ÎÒÓе㲻Ã÷°×ÎÒ´Ó Êý¾Ý¿âÖжÁÈ¡µ
Ïà¹ØÎÊ´ð£º
ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾͨ¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË ......
±ÈÈç½ø³Ì¼ÓÔØеijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..
Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html
תΪVB.NETÔ´Âë.
СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ
ÎÒµÄEMAILÊÇ:4452 ......
¾ÍÊÇÉè¼ÆÒ»¸ö¼ÆËã»úÄ£Ä⿼ÊÔϵͳ£¬´øÓÐѧÉúºÍ¹ÜÀíÔ±£¬ËùÒԵǼ´°ÌåºÍÖ÷´°ÌåÏë·Ö¿ª£¬µÇ½ѧÉúµÄÏÔʾѧÉúµÄÖ÷´°Ì壬µÇ½¹ÜÀíÔ±ÏÔʾ¹ÜÀíÖ÷´°Ì壬ÎÒÖ»»áÒ»¸ö´°ÌåÓÃÒ»¶Ñ¿Ø¼þ£¬ÏÖÔÚÏíÓжà¸öÖ÷´°Ì壬²»ÖªµÀÔõô×ö£¬Ï£ÍûÇë´ó ......
ÎÒÖÆ×÷Á˸öÓû§¿Ø¼þ£¬ÐèÒª¶¯Ì¬¼ÓÔص½´°ÌåÉÏ
Set objExt = Controls.Add("¹¤³Ì1.meActiveX", argName)
objExt.Visible = True
³ÌÐòÒ»´ÎÄܼÓÔØN¸ö£¬ ÏÖÔÚÏë¶Ô ......