PGlabo

« [VB.NET] 二重起動防止 | メイン | [VB.NET|Access] DataGrid に表示 »

2005年10月14日

[ASP.NET|Access] Access に接続

    Dim Conn As New OleDbConnection
    Dim Cmd As New OleDbCommand

        'DB接続文字列の設定

        '注：プロジェクトファイルホルダの下にあるbinホルダにMDBを置く

        'System.AppDomain.CurrentDomain.BaseDirectory = App.Path

        Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _

                                System.AppDomain.CurrentDomain.BaseDirectory & "\bin\***.mdb"

        'コネクションの設定

        Cmd.Connection = Conn

        'DB接続

        Conn.Open()

        'SQL文の設定

        strSQL = "SELECT * FROM BookMark ORDER BY SiteNo"

        Cmd.CommandText = strSQL

  

        DS.Dispose()

        DA.Dispose()

        Cmd.Dispose()

        Conn.Dispose()

2005 / 10 / 14