ºÇ½ª¹¹¿·¡§ masasyou1990 2013ǯ10·î25Æü(¶â) 18:09:29ÍúÎò
Visual Basic¤ÎTips¡ÚÌܼ¡¡Û
¥È¥Ã¥×¥Ú¡¼¥¸ -> Visual Basic -> ¥Ç¡¼¥¿¥Ù¡¼¥¹ ´ØÏ¢
C:\Database\Animals.mdb¤Ï¡¢¥Ç¡¼¥¿¥Ù¡¼¥¹¤Î¥Õ¥¡¥¤¥ë̾¤È¡¢¤½¤Î¥Õ¥¡¥¤¥ë¤¬¤¢¤ë¾ì½ê¤ò»ØÄꤷ¤Æ¤¤¤ë¡£
¤Þ¤¿¡¢Cn¤Ï¡ÖÀܳ¡×¤ò¤¢¤é¤ï¤¹OleDbConnection¥¯¥é¥¹¤Î¥¤¥ó¥¹¥¿¥ó¥¹¤ò¼¨¤·¤Æ¤¤¤ë
»²¹ÍURL
¥È¥Ã¥×¥Ú¡¼¥¸ -> Visual Basic -> ¥Ç¡¼¥¿¥Ù¡¼¥¹ ´ØÏ¢
»²¹ÍURL
¥È¥Ã¥×¥Ú¡¼¥¸ -> Visual Basic -> ¥Ç¡¼¥¿¥Ù¡¼¥¹ ´ØÏ¢
livedoor Wiki´ØÏ¢¥ê¥ó¥¯
¥È¥Ã¥×¥Ú¡¼¥¸ -> Visual Basic -> ¥Ç¡¼¥¿¥Ù¡¼¥¹ ´ØÏ¢
- ¥Ç¡¼¥¿¥Ù¡¼¥¹¤ÎÀܳˡ
- ¥Ç¡¼¥¿¥»¥Ã¥È¤Î¥ì¥³¡¼¥É¹¹¿·
- ´û¸¤Î¥Æ¡¼¥Ö¥ë¤Ë¼ç¥¡¼¤òÀßÄê
- ¥Õ¥£¡¼¥ë¥É¤Ë¼ç¥¡¼¤òÀßÄꤹ¤ë
- DataSet¤Ø¤Î¼ç¥¡¼ÀßÄê¤ÎÄɲÃ
- ADOX¤Ç¼ç¥¡¼¤ò»ý¤Ä¥Æ¡¼¥Ö¥ë¤ÎºîÀ®ÊýË¡
- ¥Ç¡¼¥¿¥»¥Ã¥È¤ò»È¤Ã¤¿¥Ç¡¼¥¿¥Ù¡¼¥¹¡¦¥¢¥¯¥»¥¹
- DataTable.Select ¥á¥½¥Ã¥É¤Ç¤ÎÆüÉÕ·¿¤Î»ØÄê¤Î»ÅÊý
- ¥ì¥³¡¼¥É¤ÎÊ£¿ô¤Î¹àÌܤò¹¹¿·¤¹¤ë
- Ê£¿ô¤Î¾ò·ï¤ò»ØÄꤷ¤ÆSELECTʸ¤ò¼Â¹Ô¤¹¤ë
- DataSet¤ËÄɲä·¤¿DataTable¤ò²òÊü
- ¥³¡¼¥É¤ÎËÁƬ¤Ë°Ê²¼¤òµ½Ò¤¹¤ë
Imports System.Data.OleDb
- Àܳʸ»úÎó¤ò»È¤Ã¤Æ¥Ç¡¼¥¿¥Ù¡¼¥¹¤ËÀܳ¤¹¤ë¥×¥í¥°¥é¥à¤ò½ñ¤¯
Dim Cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Database\Animals.mdb")
C:\Database\Animals.mdb¤Ï¡¢¥Ç¡¼¥¿¥Ù¡¼¥¹¤Î¥Õ¥¡¥¤¥ë̾¤È¡¢¤½¤Î¥Õ¥¡¥¤¥ë¤¬¤¢¤ë¾ì½ê¤ò»ØÄꤷ¤Æ¤¤¤ë¡£
¤Þ¤¿¡¢Cn¤Ï¡ÖÀܳ¡×¤ò¤¢¤é¤ï¤¹OleDbConnection¥¯¥é¥¹¤Î¥¤¥ó¥¹¥¿¥ó¥¹¤ò¼¨¤·¤Æ¤¤¤ë
»²¹ÍURL
¥È¥Ã¥×¥Ú¡¼¥¸ -> Visual Basic -> ¥Ç¡¼¥¿¥Ù¡¼¥¹ ´ØÏ¢
Dim Com As OleDb.OleDbCommand Dim Cn As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="D:\Jobs\DataBase.mdb") Try Cn.Open() Com = New OleDb.OleDbCommand("ALTER TABLE ¥Æ¡¼¥Ö¥ë̾ ADD PRIMARY KEY(¹àÌÜ̾)", Cn) Com.ExecuteNonQuery() Cn.Close() Catch ex As Exception MessageBox.Show(ex.Message) End Try
»²¹ÍURL
¥È¥Ã¥×¥Ú¡¼¥¸ -> Visual Basic -> ¥Ç¡¼¥¿¥Ù¡¼¥¹ ´ØÏ¢
livedoor Wiki´ØÏ¢¥ê¥ó¥¯
¥³¥á¥ó¥È¤ò¤«¤¯