|
±§Ã襻¥ó¥¿¡¼¤ÎŸ¼¨¼¼¤Ë¾þ¤é¤ì¤Æ¤¤¤¿¥í¥±¥Ã¥È¤ÎÌÏ·¿¤È±§ÃèÈô¹Ô»Î¤Î³§¤µ¤ó¤Ç¤¹¡£ |

- >
- ²Ê³Ø
- >
- ¼Ò²ñ²Ê³Ø
- >
- ¤½¤Î¾¼Ò²ñ³Ø
¤³¤ó¤Ë¤Á¤Ï¡¢¥²¥¹¥È¤µ¤ó
[ ¥ê¥¹¥È | ¾ÜºÙ ]
Á´1¥Ú¡¼¥¸
[1]
|
±§Ã襻¥ó¥¿¡¼¤ÎŸ¼¨¼¼¤Ë¾þ¤é¤ì¤Æ¤¤¤¿¥í¥±¥Ã¥È¤ÎÌÏ·¿¤È±§ÃèÈô¹Ô»Î¤Î³§¤µ¤ó¤Ç¤¹¡£ |
|
¥Ç¡¼¥¿¥Ù¡¼¥¹¤òÁàºî¤·¤Æ¤ß¤è¤¦¡¤Î³¤¤Ç¤¹ ¡Úµ½Ò¤¹¤ë¡Û option Explict ¤Î¼¡¤Î¹Ô¤Ë Const DLG_TITLE1 = "¥Ç¡¼¥¿¥Ù¡¼¥¹¤ÎºîÀ®" Const DB_FILE = "\j1.mdb" Const CON1 = "Provider=Microsoft.Jet.OLEDB.4.0;Date Source=" Const CON2 = ";Jet OLEDB:Engine Type=5;" Const SHEET_NAME = "Sheet1" Const DB_PATH = "\data" Const ST_ROW = 2 Type typekey
Key_Name As String
¡ÌVisual Basic Editor¡Í¤Î¥á¥Ë¥å¡¼¥Ð¡¼¤Î¡ÌÁÞÆþ¡Í¢ª¡Ì¥×¥í¥·¡¼¥¸¥ã¡Í¤òÁªÂò¤·¤Þ¤¹Key_ix As Integer¤Èµ½Ò¤·¤Þ¤¹ ¡Ì¥×¥í¥·¡¼¥¸¥ã¤ÎÄɲòèÌ̡ͤ¬É½¼¨¤µ¤ì¤¿¤é̾Á°¤Ë¡Ìdata_type¡Í¤ÈÆþÎϤ·¼ïÎà¤Ç ¡ÌFunction¡Í¤òÁªÂò¤·¤Æ¡Ì£Ï£Ë¡Í¤ò²¡¤·¤Þ¤¹ Public Function data_type¡Ê¡Ë¤Î ¡Ê¡Ë¤ÎÃæ¤Ëtypedata As String¤ÈÆþÎϤ·¤Þ¤¹ ¡Ú¥×¥í¥·¡¼¥¸¥ã¤ËÆþÎϤ¹¤ë¡Û
¤³¤Î¥×¥í¥·¡¼¥¸¥ã¤Ë Public Function data_type(typedata As String) Dim rtn As Integer Select Case typedata Case "adBinary" rtn = 128 Case "adBoolean" rtn = 11 Case "adunsignedTinyInt" rtn = 17 Case "adCurrency" rtn = 6 Case "adDate" rtn = 7 Case "adNumeric" rtn = 131 Case "adDouble" rtn = 5 Case "adGUID" rtn = 72 Case "adSmallInt" rtn = 2 Case "adInteger" rtn = 3 Case "adLongVarBinary" rtn = 205 Case "adLongVarWchar" rtn = 203 Case "adSingle" rtn = 4 Case "adVarWchar" rtn = 202 End Select data_type = rtn End Function¤Èµ½Ò¤·¤Þ¤¹ Êݸ¤·¤Þ¤¹ ¤Ê¤ª¤Î£Å£ø£ã£å£ì¶µ¼¼¤è¤ê |
Á´1¥Ú¡¼¥¸
[1]
ÅÐÏ¿¤µ¤ì¤Æ¤¤¤Þ¤»¤ó
[PR]¤ªÆÀ¾ðÊó