1.VB登陆窗体代码。源码数据库呢是源码access的 数据库名为data 有一个登陆表 有两个字段名 用户名 密码
2.VB编程如何实现ACCESS数据库记录的查询？
3.VB关于ACCESS的程序代码

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

       新建vb工程，然后点击“工程”-->“引用”，源码在以下两个选项前挑勾：

       Microsoft Data Environment Instance 1.0

       Microsoft ActiveX Objects 2.5 Library

       因为你要用Access数据库，源码所以需要在工程中添加控件。源码牛蒡php源码

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

VB编程如何实现ACCESS数据库记录的源码查询？

       在VB编程中，实现ACCESS数据库记录的源码查询、新增、删除、ym源码在线修改等操作主要依赖于ADO（ActiveX Data Objects）组件。以下将具体介绍如何通过VB编程实现这些功能。

       一、查询数据库记录

       要查询数据库中的记录，首先需要创建一个连接对象，并使用其执行SQL查询语句。具体步骤如下：

        创建ADO连接对象并建立与数据库的连接。

        创建一个命令对象，震荡线源码并设置其类型为“查询”。

        在命令对象中编写SQL查询语句，例如：`"SELECT * FROM Students WHERE Age = ''"`。

        执行命令对象，并获取查询结果集。

        遍历结果集，获取每条记录的信息。

        关闭连接对象以释放资源。pyc生成源码

       二、新增数据库记录

       新增数据库记录同样通过连接对象和命令对象实现。步骤如下：

        创建ADO连接对象并建立与数据库的连接。

        创建一个命令对象，并设置其类型为“插入”。

        在命令对象中编写SQL插入语句，例如：`"INSERT INTO Students (Name, Age) VALUES ('Jackie', '')"`。

        执行命令对象，海岸盒子源码完成记录的新增。

        关闭连接对象以释放资源。

       三、删除数据库记录

       删除数据库记录的步骤与新增记录类似，主要涉及创建命令对象和执行SQL删除语句。具体步骤如下：

        创建ADO连接对象并建立与数据库的连接。

        创建一个命令对象，并设置其类型为“删除”。

        在命令对象中编写SQL删除语句，例如：`"DELETE FROM Students WHERE Age = ''"`。

        执行命令对象，完成记录的删除。

        关闭连接对象以释放资源。

       四、修改数据库记录

       修改数据库记录同样需要通过连接对象和命令对象实现。以下是具体的步骤：

        创建ADO连接对象并建立与数据库的连接。

        创建一个命令对象，并设置其类型为“更新”。

        在命令对象中编写SQL更新语句，例如：`"UPDATE Students SET Name = 'Jackiejor', Age = '' WHERE Name = 'Jackie' AND Age = ''"`。

        执行命令对象，完成记录的更新。

        关闭连接对象以释放资源。

       通过以上步骤，可以实现使用VB编程与ACCESS数据库之间的交互，完成查询、新增、删除、修改等操作。

VB关于ACCESS的程序代码

       åœ¨VB菜单→过程→引用→对象库 "Microsoft ActiveX Data Objects 2.5 Library"

       '定义

       Private Sub Command1_Click()

       Const connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="

       dim conn As New ADODB.Connection

       dim Rs As New ADODB.Recordset

       dim sql As string

        conn.Open connStr & "【我的数据库路径及文件.mdb】"

        sql = "SELECT * FROM 你的表单名称"

        Rs.Open sql, conn, adOpenKeyset, adLockPessimistic

        If Not Rs.State = adStateOpen Then '确定数据库能顺利打开后，才省略这个判断

        MsgBox "数据库没有开启。检查数据库的链接是哪儿出问题！"

        exit sub

        End If

        ‘数据库能开启才会继续往下一行运行

        Rs.MoveLast: Rs.MoveFirst

        ‘这一行只是检查Rs是不是正常运行，整体代码完成后可以移除

        MsgBox "记录集总共笔数：" & Rs.RecordCount

        ‘ 数据库确定能正常开启了，想继续操作新增、更新、删除...都行

        '开始新增一笔数据

        'Rs.AddNew

        '.......赋值代码

        '.......赋值代码.

        ‘Rs.Update

        'Rs.Refresh

       End Sub