1.ASP读写ACCESS代码
2.VB登陆窗体代码。源码数据库呢是示例access的 数据库名为data 有一个登陆表 有两个字段名 用户名 密码

ASP读写ACCESS代码

       <2>显示数据库记录

        原理：将数据库中的记录一一显示到客户端浏览器，依次读出数据库中的每一条记录

        如果是从头到尾：用循环并判断指针是否到末 使用: not rs.eof

        如果是从尾到头：用循环并判断指针是否到开始 使用：not rs.bof

        rs.open sqlstr,conn,1,3 ---->(表示打开数据库的方式)

        rs.movefirst ---->(将指针移到第一条记录)

        while not rs.eof ---->(判断指针是否到末尾)

        response.write(rs("name")) ---->(显示数据表message中的name字段)

        rs.movenext ---->(将指针移动到下一条记录)

        wend ---->(循环结束)

       <4>删除一条记录

        rs.open sqlstr,conn,1,3 ---->(表示打开数据库的方式)

       -------------------------------------------------------

        while not rs.eof

        if rs.("name")=name then

        rs.delete

        rs.update 查询数据表中的name字段的值是否等于变量name的值"xx"，如果符合就执行删除，

        else 否则继续查询,直到指针到末尾为止

        rs.movenext

        emd if

        wend

VB登陆窗体代码。数据库呢是源码nginx 1.14 源码access的 数据库名为data 有一个登陆表 有两个字段名 用户名 密码

       Microsoft Data Environment Instance 1.0

       Microsoft ActiveX Objects 2.5 Library

       因为你要用Access数据库，源码易支付 源码所以需要在工程中添加控件。示例java fork 源码

       建立Access数据库，源码在这个vb工程文件夹新建一个文件夹，示例命名为table，源码然后将这个Access数据库文件放入table文件夹中。示例

       源代码：

       Private Con_Access As Connections

       Private Sub Form_Load()

           Set Con_Access = New Connection

           With Con_Access

               .Provider = "microsoft.jet.oledb.4.0"

               .ConnectionString = App.Path & "\table\ship.mdb"

               .Open

           End With

       End Sub

       Private Sub cmdOK_Click()

           Dim cmd As New Command

           Dim rd As New Recordset

           cmd.ActiveConnection = Con_Access

           cmd.CommandText = "select username,源码userpassword from usertable where username='" & Text1.Text & "'"

           On Error GoTo db_error

           Set rd = cmd.Execute

           On Error GoTo 0

           If rd.EOF Then

               MsgBox "用户名不存在。",示例 vbOKOnly + vbInformation, "错误"

               Exit Sub

           End If

       db_error:

           MsgBox Err.Description, vbOKOnly + vbInformation, "错误"

       End Sub

       Private Sub cmdCancel_Click()

           End

       End Sub

       已经附上截图了，如果还有疑问，源码html源码动漫发电邮给我rearguard_zero@hotmail.com