皮皮网

【rsa1024源码】【彩虹转发域名源码】【软件添加视频源码】access源码示例

来源:2019视频app源码 时间:2024-12-23 21:39:57

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

access源码示例

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登陆窗体代码。数据库呢是源码rsa1024源码access的 数据库名为data 有一个登陆表 有两个字段名 用户名 密码

       新建vb工程,然后点击“工程”-->“引用”,示例在以下两个选项前挑勾:

       Microsoft Data Environment Instance 1.0

       Microsoft ActiveX Objects 2.5 Library

       因为你要用Access数据库,源码彩虹转发域名源码所以需要在工程中添加控件。示例软件添加视频源码

       建立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

       已经附上截图了,如果还有疑问,源码新闻列表页源码发电邮给我rearguard_zero@hotmail.com

示例

示例