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Óï¾äÓдíÎó£¬ÎÒÓе㲻Ã÷°×ÎÒ´Ó Êý¾Ý¿âÖжÁÈ¡µ
Ïà¹ØÎÊ´ð£º
Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..
Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html
תΪVB.NETÔ´Âë.
СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ
ÎÒµÄEMAILÊÇ:4452 ......
vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£
û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£
XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£
Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£
Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......
vb½«winsock¿Ø¼þ·â×°µ½dllÎÊÌâ ÓÐʲôºÃµÄ˼·£¿ Èç¹ûÓÃSocket APIÄØ£¿
ÀýÈ磬ÏñÏÂÃæÕâÑù·â×°Winsock¿Ø¼þ£¬ÐеÄͨ£¿
´´½¨ActiveX dll£¬Ìí¼Ó´°ÌåfrmClient£¬¼ÓÈëWinSock¿Ø¼þwskClient¡£
Àà´úÂ룺
Option Expli ......
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(
& ......