VisualBasic¡¤Perl¡¤C¸À¸ì¡¤Shell¤Ê¤É¤ÎÈ÷˺Ͽ¤äTips¤ò½ñ¤¤¤Æ¤¤¤¯Í½Äê¤Ç¤¹¡¥¼«Ê¬ÍѤʤΤǼ«Ê¬¤¬Ê¬¤«¤ë¤è¤¦¤Ë½ñ¤¤¤Æ¤¤¤Þ¤¹¡¥´Ö°ã¤Ã¤¿²ò¼á¤Ê¤É¤ò¤·¤Æ¤¤¤ë¾ì¹ç¤¬¤¢¤ë¤«¤â¤·¤ì¤Þ¤»¤ó¤¬¡¤¤½¤Î»Ý¤´Î»¾µ¤¯¤À¤µ¤¤¡¥»²¹Í¤Ë¤Ê¤µ¤ë¾ì¹ç¤Ï¡¤¼«¸ÊÀÕǤ¤Ç¤ª´ê¤¤¤·¤Þ¤¹¡¥

Visual Basic¤ÎTips¡ÚÌܼ¡¡Û

¥È¥Ã¥×¥Ú¡¼¥¸ -> Visual Basic -> ¥Ç¡¼¥¿¥Ù¡¼¥¹ ´ØÏ¢

¥Ç¡¼¥¿¥Ù¡¼¥¹¤ÎÀܳˡ

  • ¥³¡¼¥É¤ÎËÁƬ¤Ë°Ê²¼¤òµ­½Ò¤¹¤ë
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´ØÏ¢¥ê¥ó¥¯

¥³¥á¥ó¥È¤ò¤«¤¯


¡Öhttp://¡×¤ò´Þ¤àÅê¹Æ¤Ï¶Ø»ß¤µ¤ì¤Æ¤¤¤Þ¤¹¡£

ÍøÍѵ¬Ìó¤ò¤´³Îǧ¤Î¤¦¤¨¤´µ­Æþ²¼¤µ¤¤

¥á¥ó¥Ð¡¼¤Î¤ßÊÔ½¸¤Ç¤­¤Þ¤¹