データベースから読む

コンポーネントの追加
メニューからプロジェクト-->参照の追加-->COMで下の２つを１つずつ追加する
Microsoft ActiveX Data Objects 2.8 Library
Microsoft ADO Ext. 2.8 for DLL and Security

Public Partial Class bbs2
    Inherits System.Web.UI.Page
    Private cat As ADOX.Catalog
    Private cn As ADODB.Connection
    Private rs As ADODB.Recordset

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If IsPostBack Then
            cat = New ADOX.Catalog
            cn = New ADODB.Connection
            rs = New ADODB.Recordset
            cn.Provider = "Microsoft.ACE.OLEDB.12.0"
            cn.Open("Data Source=" & Page.Server.MapPath("Database1.accdb"))
            rs.Open("bbs", cn, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic)

        End If
    End Sub

    Protected Sub btnSend_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnSend.Click
        Do While Not rs.EOF
            frmName.Text = rs.Fields("tName").Value
            rs.MoveNext()
        Loop
    End Sub
End Class

Filename: データの追加

        rs.AddNew()
        rs.Fields("tName").Value = frmName.Text
        rs.Fields("tMail").Value = frmMail.Text
        rs.Fields("tSubject").Value = frmSubject.Text
        rs.Fields("tBody").Value = frmBody.Text
        rs.Update()