c_c_lai

¦^´_ 14# c_c_lai
2014¦~¾÷²¼°O¿ý¡G
¥»µ{¦¡¤§Ã±ÃÒ¶O¥Î¡B¾÷²¼¶O¥Îªº¥[Á`­pºâ³B²z§Ú¤w¸g±N¥¦
¥[¤J¤F (§Q¥Î¦r¨åª«¥óªº³B²z)¡A¨Ï¥ÎªÌ©óÁA¸Ñ Excel ªí³æ³B²z¡B
¥H¤Î Access ªº¸ê®Æ¦s¨ú«á¡A«K¥i±qµ{¦¡¤¤±N¥¦­Ì¤©¥H¤À¶}¡A
¦Ó¥uÂ^¨ú¨Ï¥ÎªÌ¨ä¥»¨­»Ý¨Dªº³¡¤À¡C ¥Ø«eµ{¦¡¥]§t A¡BB ¨â³¡¤À¡G
A¡B¯Âºé Excel ¤u§@ªí³æ (¥»¨­) Àx¦s§@·~¡A¸ê®ÆÀx¦s©ó¤u§@ªí³æ¤¤¡F
B¡B±N©Ò¦³³B²z¸ê®Æµ²ªGÀx¦s¦Ü Access ¸ê®Æ®w¤¤¡A¤è«K¤é«á¦s¨ú§@·~¡C

c_c_lai

¦^´_ 13# ML089
¤§«e´¿¸g±N Excel ÀɮפW¶Ç©ñ¸m©ó Google Chrome ­Ó¤HÀɮ׬ö¿ý¤º¡A
´£¨Ñ¦h¦ì§@·~¤H­ûÀH®É°O¿ý¤Î­×¥¿¡A°O¾Ð¤¤¦n¹³¤]¤£´¿¦³µo¥Í²§ª¬°¦±¡¨Æ¡C

¥H©¹¦b¾«e¹ê§@ªº¸ê®Æ³B²z¡A´X¥G³£°O¿ý©ó Clipper, MS SQL¡B
¥H¤Î PostgreSQL ¤W¡C¦]·¥¤Ö±µÄ² Office©Ò¥H¥u¦³¦b½m²ß®É¤~
·|¥h¸Õ¹Ï¾Þ§@ Access¡A¦ý¤£¬O«Ü¼ô¡C
¨ä¹ê¸ê®Æ®wªº§@·~³B²z¼Ò¦¡³£¬O«Ü¹p¦Pªº¡A«Ü®e©öÁ|¤@¤Ï¤T¡C¡C

ML089

¦^´_ 12# c_c_lai


ÁÂÁ§A¡A»¡©úªº«Ü²M·¡¡C(PS §Ú°O±o¤W¦¸§Ú¤w¸g¦^ÂйL¡A§Ú¦n¹³¦³¦Ñ¤Hè§b¯g¤F «¢«¢)

EXCEL¸ê®Æ¦h¤H¦P®É¨Ï¥Îªº¤¶²Ð«Ü¤Ö¡A©ÎÀ³¸Ó¥ÎACCESS§a

c_c_lai

¦^´_  c_c_lai

§Úµo²{stillfish00¤j¯u±o«Ü²Ó¤ß¡A¤W¦¸timerªº¨Æ¤]¬O¥LÀ°¦£ªº

§Ú·Q°Ý ¨Ï¥ÎACCESS ¸ê®Æ ...
ML089 µoªí©ó 2013-12-11 09:33

¥H©¹¦­´Á dBase/dBaseII ¦b¸ê®Æ¦s¨ú®É¡A»Ý¦Ò¼{¦h¨Ï¥ÎªÌ (Multi User) ¤§¸ê®Æ¦s¨úªºÂê©w»PÄÀ©ñ¡A
¥HÁקKÀɮ׳QÂꦺ (Dead Lock)¡A«á´ÁºtÅܪº Access/Clipper µ¥¸ê®Æ®w¦b I/O ¤W¤w¦³§ï¶i¤Î³B²z¡C
¥B³£¿í¦æ ANSI SQL ªº¼Ð·Ç³W½d¡C©Ò¥H¥Ø«e¤@¯ëµ{¦¡¤H­û (Programmer) §¡¦³¤@¦@ÃÑ¡A§Y¦b³B²z
¦³Ãö¸ê®Æ®w§@·~¡A¤@°õ¦æ§¹²¦¡A«KÀH¤âÃö³¬¸ê®Æ®w¡C¦p¦¹¡A¶ë¨®ªº²~ÀV°ÝÃD«K¦æ¦Ó­°§C¡C   
²{¤µ­n¦Ò¶qªº¡A¬O¸ê®Æªº¹ê»Ú¯à³B²zÀx¦s¶qªº¦h¹è¡A¯Á¤Þªº°õ¦æ³t«×¡A³Ì¤jªºÀx¦s¸ê®Æµ§¼Æµ¥¡C
¬°¦ó¦³¨Ç¥ø·~·|¥h¦Ò¶q±Ä¥Î MS SQL¡B§ó³ÓªÌ·|¥hµû¦ô PosgreSQL¡BMySQL¡BInformix¡BInterBase¡B
Oracle µ¥ª¾¦W±M·~¸ê®Æ®w¬ãµo¼t°Ó¡A¥ç¬O¦¹¹D²z¡C
¤]¯uÁÂÁ stillfish00¤j¤j¡A¥L¯u±o«Ü²Ó¤ß¡A³o¤]³\¬O·í§½ªÌ°g§a¡I

ML089

¦^´_ 10# c_c_lai

§Úµo²{stillfish00¤j¯u±o«Ü²Ó¤ß¡A¤W¦¸timerªº¨Æ¤]¬O¥LÀ°¦£ªº

§Ú·Q°Ý ¨Ï¥ÎACCESS ¸ê®ÆÀɮɡA¥i¥H¦h¤H¦P®É¦s¨ú¶Ü?(¬ðµM·Q°_¥H«e¥ÎDBASEªº¤@¨Ç¸ê®ÆÂê©w¦s¨ú°ÝÃD¡A°Ý±o¦³ÂIÅ¢²Î½Ð¤Å¤¶·N)

§Ú¶]¤@¨Çµ²ºc¤ÀªR¡A¥H«e¬O¬ÝTXTÀÉ¡A²{¦b¤]¦h¤FACCESSªºMDB¥i¥H¨Ï¥Î¡A¬Ý¨ì§A³o½gÅý§Ú¦b·Q¨Ï¥ÎMDB³B²z·|¤ñTXTÀɦs¨ú§Ö¶Ü?

c_c_lai

¦^´_ 9# stillfish00
¤Ó·PÁ§A¤F¡I§Ú­ì¥»¤@ª½¦b§ä­ì¦](¦Ê«ä¤£¸Ñ)¡A
¦ý¤d·Q¸U·Q´N¬O¨Sª`·N¨ì¤@¦r¤§®t (¬ö -> °O)¡A
¦A¦¸¨¥Á¡A¥»µ{¦¡²×©ó¯à©ó Office 2003¡B
Office 2007¡B2010 ¶¶§Q¦a¦Û¦p§@·~¤F¡C

stillfish00

¦^´_ 1# c_c_lai
accdb ¤¤¡Aªí³æ¦WºÙÅܤF©Ò¥H¬d¤£¨ì¡A
¾÷²¼°O¿ý<>¾÷²¼¬ö¿ý¡C

c_c_lai

±Ndata©ñ¦bAccess,¬°¦ó¤£ª½±µ¦bAccess§¹¦¨?
aa7551 µoªí©ó 2013-12-9 18:34

§Ú¤§©Ò¥H­n¦P®É³B¸Ì Excel ¤u§@ªí³æ»P Access ¸ê®Æ®wªº¹D²z¬O§Æ±æ
ÅѥѦ¹½d¨Ò¥hÅý¤H¤F¸Ñ¡BÀ³¥Î¡B³z¹L ADO ¦p¦ó¥h³B²z¤u§@ªí³æ»P
Access ¸ê®Æ®wªº¹ê§@¡C
³o­ì¥»¬O¤@¦ìºô¤Íªº´£°Ý¡A·Q³z¹L³o­ÓijÃDÅý¦o¤F¸Ñ¨â³yªº³B²z¤è¦¡¡A
¨Ã¦P®É¯à¥h²z¸Ñ¦p¦ó³B²zÂù¤uªº§@·~¡C

aa7551

±Ndata©ñ¦bAccess,¬°¦ó¤£ª½±µ¦bAccess§¹¦¨?

c_c_lai

¦^´_ 5# c_c_lai

1. Private Sub DeleteData_Click()
   
2.     Dim nCode As Range, ret As Boolean
   
3.    
   
4.     With Sheets("data")
   
5.         Set nCode = .[B:B].Find(CallID.Text, , , 1)
   
6.         .Rows(Val(Mid(nCode.Address, 4))).EntireRow.Delete Shift:=xlUp
   
7.     End With
   
8.    
   
9.     ret = ExcelData.Value
   
10.     ExcelData.Value = False
    
11.    
    
12.     closeRS
    
13.     OpenDB
    
14.    
    
15.     strSQL = "DELETE FROM ¾÷²¼¬ö¿ý WHERE ¦W¦r = '" & CallID.Text & "'"
    
16.     cmd.CommandText = strSQL
    
17.    
    
18.     cmd.ActiveConnection = cnn
    
19.     cmd.Execute
    
20.     cnn.Close
    
21.    
    
22.     Confirm.Enabled = True
    
23.     ExcelData.Value = ret
    
24.     ResetData_Click
    
25. End Sub
    
26. 
    
27. Sub ResetData_Click()
    
28.     CallID.Text = ""
    
29.     RecordExisted.Caption = ""
    
30.     Confirm.Enabled = True
    
31.     DataCear
    
32. End Sub
    
33. 
    
34. Private Sub DataCear()
    
35.     DeptNo.Text = ""
    
36.     DateTime.Text = ""
    
37.     CreditDate.Text = ""
    
38.     License1.Text = ""
    
39.     LicenseFee1.Text = "0"
    
40.     License2.Text = ""
    
41.     LicenseFee2.Text = "0"
    
42.     cabin.Text = ""
    
43.     ticketfee.Text = "0"
    
44.     totalfee.Text = "0"
    
45.     routinefrom.Text = ""
    
46.     routineto.Text = ""
    
47.     contents.Text = ""
    
48.     remarks.Text = ""
    
49. End Sub
    
50. 
    
51. Private Sub SaveData_Click()
    
52.     Dim totalRows As Long, ret As Boolean
    
53.     Dim nCode As Range
    
54.    
    
55.     ret = ExcelData.Value
    
56.     ExcelData.Value = True
    
57.             
    
58.     With Sheets("data")
    
59.         '  ¼g¤J Sheets("data")
    
60.         If editMode = True Then
    
61.             Set nCode = Sheets("data").[B:B].Find(CallID.Text, , , 1)
    
62.             
    
63.             With nCode
    
64.                 .Offset(, -1) = DeptNo.Text
    
65.                 .Offset(, 2) = CreditDate.Text
    
66.                 .Offset(, 3) = routinefrom.Text
    
67.                 .Offset(, 4) = routineto.Text
    
68.                 .Offset(, 5) = contents.Text
    
69.                 .Offset(, 6) = cabin.Text
    
70.                 .Offset(, 7) = License1.Text
    
71.                 .Offset(, 8) = LicenseFee1.Text
    
72.                 .Offset(, 9) = License2.Text
    
73.                 .Offset(, 10) = LicenseFee2.Text
    
74.                 .Offset(, 11) = ticketfee.Text
    
75.                 .Offset(, 12) = totalfee.Text
    
76.                 .Offset(, 13) = remarks.Text
    
77.             End With
    
78.         Else
    
79.             With Sheets("data")
    
80.                 strSQL = "SELECT * FROM [data$] WHERE [¦W¦r] ='" & CallID.Text & "'"
    
81.             
    
82.                 '  Now extract data
    
83.                 closeRS
    
84.                 OpenDB
    
85.                
    
86.                 rs.Open strSQL, cnn, 1, 3     '  adOpenKeyset, adLockOptimistic
    
87.                
    
88.                 If rs.RecordCount = 0 Then  ' ¥ý§PÂ_¸ê®Æ¬O§_¤w¸g¦s¦b¡A¦pªG¤£¦s¦b¡A«h ...
    
89.                     Set nCode = .Range("B" & .Range("B" & Rows.Count).End(xlUp).Row + 1)
    
90.                     
    
91.                     With nCode
    
92.                         .Offset(, 0) = CallID.Text
    
93.                         .Offset(, -1) = DeptNo.Text
    
94.                         .Offset(, 1).NumberFormat = "m/d/yyyy hh:mm:ss"
    
95.                         .Offset(, 1) = Format(DateTime.Text, "m/d/yyyy hh:mm:ss")
    
96.                         .Offset(, 2) = CreditDate.Text
    
97.                         .Offset(, 3) = routinefrom.Text
    
98.                         .Offset(, 4) = routineto.Text
    
99.                         .Offset(, 5) = contents.Text
    
100.                         .Offset(, 6) = cabin.Text
     
101.                         .Offset(, 7) = License1.Text
     
102.                         .Offset(, 8) = LicenseFee1.Text
     
103.                         .Offset(, 9) = License2.Text
     
104.                         .Offset(, 10) = LicenseFee2.Text
     
105.                         .Offset(, 11) = ticketfee.Text
     
106.                         .Offset(, 12) = totalfee.Text
     
107.                         .Offset(, 13) = remarks.Text
     
108.                     End With
     
109.                 End If
     
110.             End With
     
111.         End If
     
112.         
     
113.         ExcelData.Value = False
     
114.         '  Now extract data
     
115.         closeRS
     
116.         OpenDB
     
117.             
     
118.         '  ¼g¤J Access ¸ê®Æ®w
     
119.         If editMode = True Then
     
120.             strSQL = "Update ¾÷²¼¬ö¿ý SET ¦W¦r = '" & CallID.Text & "', ³æ¦ì = '" & DeptNo.Text & _
     
121.                      "', ¨ê¥d¤é´Á = '" & CreditDate.Text & "', ¦æµ{¤é´Á±q = '" & routinefrom.Text & _
     
122.                      "', ¦æµ{¤é´Á¨ì = '" & routineto.Text & "', ¦æµ{¤º®e = '" & contents.Text & _
     
123.                      "', ¿µµ¥ = '" & cabin.Text & "', ñÃÒ¤º®e1 = '" & License1.Text & "', ñÃÒ¶O¥Î1 = " & _
     
124.                      LicenseFee1.Text & ", ñÃÒ¤º®e2 = '" & License2.Text & "', ñÃÒ¶O¥Î2 = " & LicenseFee2.Text & _
     
125.                      ", ¾÷²¼¶O¥Î = " & ticketfee.Text & ", Á`­p = " & totalfee.Text & ", ³Æµù = '" & _
     
126.                      remarks.Text & "' WHERE ¦W¦r = '" & CallID.Text & "';"
     
127.         Else
     
128.             strSQL = "INSERT INTO ¾÷²¼¬ö¿ý (³æ¦ì,¦W¦r,¤é´Á,¨ê¥d¤é´Á,¦æµ{¤é´Á±q,¦æµ{¤é´Á¨ì,¦æµ{¤º®e," & _
     
129.                      "¿µµ¥,ñÃÒ¤º®e1,ñÃÒ¶O¥Î1,ñÃÒ¤º®e2,ñÃÒ¶O¥Î2,¾÷²¼¶O¥Î,Á`­p,³Æµù) VALUES ('" & DeptNo.Text & "','" & _
     
130.                      CallID.Text & "','" & DateTime.Text & "','" & CreditDate.Text & "','" & routinefrom.Text & "','" & _
     
131.                      routineto.Text & "','" & contents.Text & "','" & cabin.Text & "','" & License1.Text & "'," _
     
132.                      & LicenseFee1.Text & ",'" & License2.Text & "'," & LicenseFee2.Text & "," & ticketfee.Text & "," & _
     
133.                      totalfee.Text & ",'" & remarks.Text & "') ;"
     
134.         End If
     
135.         '  Sheets("data").[A20] = strSQL     '  Àˬd strSQL »yªk¤º®e¬O§_¥¿½T
     
136.         cmd.CommandText = strSQL
     
137.    
     
138.         cmd.ActiveConnection = cnn
     
139.         cmd.Execute
     
140.         cnn.Close
     
141.         
     
142.         Confirm.Enabled = True
     
143.         SaveData.Enabled = False
     
144.         ResetData.Enabled = False
     
145.         ExcelData.Value = ret
     
146.         ResetData_Click
     
147.     End With
     
148. End Sub

½Æ»s¥N½X