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Óï¾äÓдíÎó£¬ÎÒÓе㲻Ã÷°×ÎÒ´Ó Êý¾Ý¿âÖжÁÈ¡µ
Ïà¹ØÎÊ´ð£º
ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿Ø¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓƵ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......
ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾͨ¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË ......
Private Sub Check1_Click()
If Check1.Value = 1 Then
DTP1.Enabled = True
Else
DTP1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
DTP2.Enabled = True
Else
......
ÔÚvbÖÐÔõôÅжϣ¬²åÈëµ½Êý¾Ý¿âÖеÄÖµÊÇÖظ´µÄ£¬±¾È˲ŸսӴ¥VBÓïÑÔ£¬ÉõÊÇÓкöàµØ·½»¹²»¶®£¬»¹Çë¸÷λ´óÏÀÃǸø³ö´úÂ룬ллÁËѽ£¡£¡£¡
²åÈë֮ǰselectһϰ¢¡£
»òÕßдһ¸ö×éºÏSQL²åÈëÓï¾ä£¬ÀýÈç
IF not Exist(
& ......