¥¹¥Ý¥ó¥µ¡¼¥É¥ê¥ó¥¯
̵ÎÁ¥Ö¥í¥°ºîÀ®¥µ¡¼¥Ó¥¹ JUGEM
¿Íµ¤¥Ö¥í¥°¥é¥ó¥­¥ó¥° ¤¯¤Ä¤í¤° ¥Ö¥í¥°²¦
¢£ Mobile
qrcode
¥¯¥¨¥ê¤Ç¥½¡¼¥È¤¬Ê£¿ô¤Î¾ì¹ç¤Î¥Õ¥£¡¼¥ë¥É¥Ç¥¶¥¤¥ó
¥¯¥¨¥ê¤ÇʤÓÂؤ¨¤¬Ê£¿ô¤Î¾ì¹ç

Î㤨¤Ð¡¢¡ÖÃ϶襳¡¼¥É¡×½ç¢ª¡ÖôÅö¼Ô¥³¡¼¥É¡×½ç¤Î¾ì¹ç
»þÅÀ¤Ç¡ÖÃ϶襳¡¼¥É¡×¤òº¸Â¦¤Ë¡¢¡ÖôÅö¼Ô¥³¡¼¥É¡×¤ò¤½¤Î±¦Â¦¤Ë¤Ê¤ë¤è¤¦¤Ë¥Õ¥£¡¼¥ë¥É¥Ç¥¶¥¤¥ó¤¹¤ë¡£
Ã϶襳¡¼¥É ¸ÜµÒ¥³¡¼¥É ôÅö¼Ô¥³¡¼¥É
1001 5012 201
1001 4987 201
1001 3698 202
1002 1458 211
1002 5645 211
1002 6582 212
1002 6543 213
1002 6589 213
1002 1529 214
1003 5423 221
Ê£¿ô¤ÎʤÓÂؤ¨(¥½¡¼¥È)¤¬¤¢¤ë¾ì¹ç¥Ç¥¶¥¤¥ó¥Ó¥å¡¼¤Îº¸Â¦¤«¤é½ç¤ËʤÙÂؤ¨¤é¤ì¤ë¡£

¤À¤«¤é¡¢¡ÖôÅö¼Ô¥³¡¼¥É½ç¡×¢ª¡ÖÃ϶襳¡¼¥É¡×½ç¤Î¾ì¹ç¤Ï
¡ÖôÅö¼Ô¥³¡¼¥É¡×¤ò¡ÖÃ϶襳¡¼¥É¡×¤Îº¸Â¦¤Ë¥Ç¥¶¥¤¥ó¤¹¤ë¡£
| °¦¥¢¡¼¥¹ | È÷˺Ͽ¡¦ACCESS | comments(0) | trackbacks(0) | pookmark |
ÇÛÎó¤Î¤è¤¦¤Ë°·¤¦ÊýË¡
Ʊ¼ï¤Î¥³¥ó¥È¥í¡¼¥ë¤òÊ£¿ô»È¤¤¤¿¤¤»þ¤ËÍ­¸ú¡£
Î㤨¤Ð¡¢¥Æ¥­¥¹¥È¥Ü¥Ã¥¯¥¹¤¬txt¥³¡¼¥É01¡¢txt¥³¡¼¥É02¤Ê¤É¤ÈÊ£¿ô¤¢¤ë¾ì¹ç

For lngW1 = 1 To 10
strW1 = Format(lngW1, "00")
varW1 = Me("txt¥³¡¼¥É" & strW1).Value
¡¦¡¦¡¦
¥ë¡¼¥×¤ÎËè¤Ë
varW1¤Ë¤Ï¡Öme.txt¥³¡¼¥É01.Value¡×¡¢¡Öme.txt¥³¡¼¥É02.Value¡×¡¢¡Ä¡¢¡Öme.txt¥³¡¼¥É10.Value¡×
¤¬¥»¥Ã¥È¤µ¤ì¤ë¡£

ÇÛÎó¤Ç¤Ï¤Ê¤¤¤¬¡¢ÇÛÎó¤Ë¶á¤¤»È¤¤Êý¤¬¤Ç¤­¤ë¡£
| °¦¥¢¡¼¥¹ | È÷˺Ͽ¡¦ACCESS | comments(0) | trackbacks(0) | pookmark |
¥¤¥ó¥¿¡¼¥Ð¥ë¥¿¥¤¥Þ¡¼¤Î¼Â¸½
°ìÄê´Ö³Ö¤Î»þ´Ö¤Ç²¿¤é¤«¤Î½èÍý¤ò¤µ¤»¤ë¤è¤¦¤Ê¾ì¹ç¤Ï¡¢Form¤ÎTimer¥¤¥Ù¥ó¥È¤òÍøÍѤ¹¤ë¡£

Form¤ÎTimer¥¤¥Ù¥ó¥È¤òÀßÄê(µ¯Æ°)¤µ¤»¤ë¤Ë¤Ï¡¢
Me.TimerInterval = ÀßÄê»þ´Ö(¥Þ¥¤¥¯¥íÉäÇÀßÄê¡£1000¤Ç£±Éá¢Ç¤°Õ¤ÇÀßÄê¡£)

Form¤ÎTimer¥¤¥Ù¥ó¥È¤òÄä»ß¤µ¤»¤ë¤Ë¤Ï¡¢
Me.TimerInterval = 0

µ¯Æ°¸å¡¢ÀßÄê»þ´ÖËè¤Ë¥Õ¥©¡¼¥à¤Î¥¿¥¤¥Þ¡¼¥¤¥Ù¥ó¥È¤òȯ¹Ô¤µ¤ì¤ë¡£
¤½¤Î¥¤¥Ù¥ó¥È¤òÍøÍѤ¹¤ë¤ÈÌÜŪ¤Î½èÍý¤¬¼Â¸½²Äǽ¡£
Ää»ß¤µ¤»¤ë¤Þ¤Ç¤½¤Î¾õ¶·¤¬Â³¤¯¡£

¢­¤³¤Î¥×¥í¥·¥¸¥ã¡¼¡ÖForm_Timer()¡×¤ËÌÜŪ¤Î½èÍý¤ò¢­
Private Sub Form_Timer()
'¥¿¥¤¥Þ¡¼¥¤¥Ù¥ó¥È¤¬È¯À¸

***ÌÜŪ¤Î½èÍý***
End Sub
| °¦¥¢¡¼¥¹ | È÷˺Ͽ¡¦ACCESS | comments(1) | trackbacks(0) | pookmark |
VBA¤ÇUTF-8¤ò°·¤¦ÊýË¡
ADODB.Stream¤ò»È¤¦¤³¤È¤Ë¤Ê¤ë¤Î¤Ç
»²¾ÈÀßÄê¤Ç¡ÖMicrosoft ActiveX Data Objects 2.8 Library¡×¤Ë¥Á¥§¥Ã¥¯¤òÆþ¤ì¤ë¡£


Private Function Func_freadu8(strFnm As String) As String
Dim strList As String
Dim adoSt As New ADODB.Stream
Dim strText As String
With adoSt
.Type = adTypeText
.Charset = "UTF-8"
.Open
.LoadFromFile (strFnm)
Do While Not (.EOS)
strList = .ReadText(adReadLine)
strText = strText & strList & vbLf
Loop
.Close
End With
Func_freadu8 = strText
End Function
| °¦¥¢¡¼¥¹ | È÷˺Ͽ¡¦ACCESS | comments(0) | trackbacks(0) | pookmark |
ACCESS¤Î¥Õ¥¡¥¤¥ë·Á¼°¤òÊѹ¹¤¹¤ë
ACCESS¤Î¥Õ¥¡¥¤¥ë·Á¼°¤òÊѹ¹¤¹¤ë¾ì¹ç
(¤¿¤È¤¨¤Ð¡¢Access2000¤Îmdb¥Õ¥¡¥¤¥ë¤òaccdb¥Õ¥¡¥¤¥ë¤ËÊÑ´¹¤¹¤ë)


­¡ÊÑ´¹ÂоݤÎmdb¤ò³«¤¯¡£
­¢[¥Õ¥¡¥¤¥ë]¥¿¥Ö¤ò¥¯¥ê¥Ã¥¯¤·¡¢[Êݸ¤·¤Æȯ¹Ô]¤ò¥¯¥ê¥Ã¥¯
[¥Ç¡¼¥¿¥Ù¡¼¥¹¥Õ¥¡¥¤¥ë¤Î¼ïÎà]¤òÁªÂò¤·[̾Á°¤òÉÕ¤±¤ÆÊݸ]
| °¦¥¢¡¼¥¹ | È÷˺Ͽ¡¦ACCESS | comments(0) | trackbacks(0) | pookmark |
4 7 10 13 16 19 22 25 28 31 34 37 40 43 46 49 52 55 58 61 64 67 70 73 76 79 82 85 88 91 94 97 100 103 106 109 112 115 118 121 124 127 130 133 136 139 142 145 148 151 154 157 160 163 166 169 172 175 178 181 184 187 190 193 196 199 202 205 208 211 214 217 220 223 226 229 232 235 238 241 244 247 250 253 256 259 262 265 268 271 274