精华内容
下载资源
问答
  • vb6.0 读取access(mdb)数据库代码代码很简单,很适合学习vb6.0操作数据库的菜鸟学习
  • 内容索引:VB源码,报表打印,打印 读取Access数据库调用系统打印机的一个示例,适合VB初学者,主要演示读取ACCESS数据库,并进行预览打樱源代码演示了对MDB数据库的一些基本操作,如跳到记录头、指向下一条、上一条...
  • VB复制数据库结构

    2021-05-18 01:13:18
    VB复制数据库结构的小程序,复制数据库结构,调用VB安装目录中的数据库,路径一般是D:\Program Files\Microsoft Visual Studio\VB98,如果不是这个目录烦请修改一下。 运行环境:Windows/VB6
  • VB提取文件目录到数据库程序,调用access数据库VB6.0源代码编写
  • SQL语句调用MDB数据库多表演示,VB代码。演示不同表中的基本情况表.姓名,基本情况表.学号,学生成绩表.课程,学生成绩表.成绩,学生成绩表,基本情况表,学生成绩表之间的混合调用,其实也就是SQL复合语句的一个操作...
  • 过程创建Access数据库设计窗体编写代码定义一个函数过程(这里仅仅是定义这样一个过程,后面的事件才是真真的调用这个过程并予以实现),在函数过程里面通过connectinstring来建立对数据库的连接,然后利用objrs获取...

    实例1

    1.任务

    创建基于数据库的“系统登录”界面

    2.过程

    创建Access数据库设计窗体编写代码

    定义一个函数过程(这里仅仅是定义这样一个过程,后面的事件才是真真的调用这个过程并予以实现),在函数过程里面通过connectinstring来建立对数据库的连接,然后利用objrs获取用户登录信息,其中用了if嵌套来是实现登录过程中出现的各种情况的应对。(这里应该就是米老师常说的为人民服务的宗旨,这里我想起来了一句海芳师姐的话,让用户躺在向日葵中。)

    3.经典的代码

    可能这并不是多么多么经典,只是应用过程中会用到很多次。

    Objcn.connetionstring=”provider=Microsoft.jet.oledb.4.0;”& “data source=” & app.path & “\数据库\实例1.mdb”

    Objcn.open

    或者是这个一个版本

    Strcn=”provider=Microsoft.jet.oledb.4.0;”&”data source =”& app.path &”\数据库\实例1.mdb”

    Objcn.connectionstring=strcn

    Objcn.open

    当然在之前还是要定义objcn为连接集的,这段代码说白了就是用来连接数据库用的。是直接可以拿来用的,可能要更改一下路径什么的。

    当然建立了数据库的连接,最后还是要释放的。就有下面这段你死了都不会忘了的代码了。

    Set objrs=nothing

    Objcn.close

    Set objcn=nothing

    可能大家有的顺序不一样,到目前为止我见过很多版本。还没有发现顺序对于运行有何影响。

    实例2

    1. 任务使用ADO实现对ODBC数据源的访问。(卡了?简单来说ODBC提供了对SQL语言的支持,用户可以直接将SQL语句送给ODBC。还能以统一的方式访问数据库。)

    2. 过程

    Set objcn=new connection

    Objcn.open”DSN=实例 2 DSN” Domain name system ‘

    这里的DSN ,中文域名系统一个DSN中至少应该包含如下一些内容:

    ◆关于数据库驱动程序的信息。

    ◆数据库存放位置。文件型数据库(如Access)的存放位置为数据库文件的路径;非文件型数据库(如SQL Server)的存放位置是指服务器的名称。

    ◆数据库名称。在ODBC数据源管理器中,所有的DSN名称是不能重复的。

    实例 3

    1. 任务

    使用 ADO Data 控件创建数据库连接

    2. 过程

    第一步:ADO Data控件连接数据库

    第二步:文本框显示数据

    Adodc1.caption="当前记录:"& Adodc1.RecordSet.AbsolutePosition & "\" & Adodc1.Recordset.Recordcount

    实例4

    1.任务

    利用DataGrid 控件和记录集分页特性显示数据分页

    2.过程

    第一步:添加Microsoft DataGrid Control 6.0(OLEDB)部件

    第二步:自定义过程用来显示当前记录页数据,并复制到记录集对象中,最后绑定DataGrid控件

    第三步:连接数据库和记录集对象

    出现的问题:对于实例4来说,其实我在实验过程中出现了很多问题。都是一些很小的细节,什么字母丢了,中英文切换错误。还是太粗心了。

    这个例子跟前面几个例子,有很多的相似的地方。不同的是这里用了一个datacrid控件,用来分页显示。

    实例5

    1.任务

    使用ADO Command对象实现数据库查询功能

    2.过程

    第一步;窗体加载时创建数据库连接和Command 对象

    下面是建立参数查询的代码

    Dim parm As New Parameter

    set parm =objcmd.createparameter("用户名",advarchar,adparaminput,10)

    objcmd.parameters.append parn

    set parm =objcmd.createparameter("身份",advarchar,adparaminput,10)

    objcmd.parameters.append parm

    第二步:执行查询结果

    第三步:关闭数据库连接

    实例5和实例4好像都是前面几个例子的综合,外加上几个很好用的控件来显示数据那种效果。Msflexgrid控件里面很多参数属性倒是挺新鲜的。(应该VB有接触,但是学的。。。)

    展开全文
  • VB+Access实例:使用ADO连接Access数据库。Private Sub Form_Load() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & ...
  • VB.NET连接Access数据库并显示数据库中表信息;
  • VB.Net - 数据库访问

    千次阅读 2018-03-01 09:35:53
    VB.Net - 数据库访问应用程序与数据库通信,首先,检索存储在那里的数据,并以用户友好的方式呈现它,其次,通过插入,修改和删除数据来更新数据库。Microsoft ActiveX Data Objects.Net(ADO.Net)是一个模型,.Net...

    VB.Net - 数据库访问


    应用程序与数据库通信,首先,检索存储在那里的数据,并以用户友好的方式呈现它,其次,通过插入,修改和删除数据来更新数据库。

    Microsoft ActiveX Data Objects.Net(ADO.Net)是一个模型,.Net框架的一部分,由.Net应用程序用于检索,访问和更新数据。


    ADO.Net对象模型

    ADO.Net对象模型只不过是通过各种组件的结构化流程。 对象模型可以被图形描述为:


    ADO.Net对象

    通过数据提供者检索驻留在数据存储或数据库中的数据。 数据提供者的各种组件检索应用程序的数据并更新数据。


    应用程序通过数据集或数据读取器访问数据。


    • Datasets 数据集:数据集将数据存储在断开连接的缓存中,应用程序从中检索数据。

    • Data readers 数据读取:数据读取器以只读和仅转发模式向应用程序提供数据。

    数据提供程序

    数据 提供程序 用于 连接 数据库   执行 命令 检索 数据 存储 一个 数据集 阅读 检索到 数据 更新 数据库

      ADO.Net   数据 提供程序 包括 以下 四个 对象

    SN对象和说明
    1

    Connection

    This component is used to set up a connection with a data source.

    该组件被用来建立与数据源的连接。

    2

    Command

    A command is a SQL statement or a stored procedure used to retrieve, insert, delete or modify data in a data source.

    命令是用于检索,插入,删除或修改数据源中的数据的SQL语句或存储过程。

    3

    DataReader

    Data reader is used to retrieve data from a data source in a read-only and forward-only mode.

    数据读取器用于以只读和仅转发模式从数据源检索数据。

    4

    DataAdapter

    This is integral to the working of ADO.Net since data is transferred to and from a database through a data adapter. It retrieves data from a database into a dataset and updates the database. When changes are made to the dataset, the changes in the database are actually done by the data adapter.

    这是ADO.Net的工作的组成部分,因为数据通过数据适配器传输到数据库和从数据库传输。 它将数据从数据库检索到数据集并更新数据库。 当对数据集进行更改时,数据库中的更改实际上由数据适配器完成。

    ADO.Net中包含以下不同类型的数据提供程序

    • SQL Server的.Net Framework数据提供者 - 提供对Microsoft SQL Server的访问。

    • OLE DB的.Net Framework数据提供者 - 提供对使用OLE DB公开的数据源的访问。

    • ODBC的.Net Framework数据提供程序 - 提供对ODBC公开的数据源的访问。

    • Oracle的.Net Framework数据提供程序 - 提供对Oracle数据源的访问。

    • EntityClient提供程序 - 允许通过实体数据模型(EDM)应用程序访问数据。


    数据集

    DataSet是数据的内存表示。 它是从数据库检索的断开连接的高速缓存的记录集。 当与数据库建立连接时,数据适配器创建数据集并在其中存储数据。 在检索数据并将其存储在数据集中之后,将关闭与数据库的连接。 这被称为“断开连接的架构”。 数据集用作包含表,行和列的虚拟数据库。

    下图显示了数据集对象模型:


    VB.Net数据类

    DataSet类存在于System.Data命名空间中。 下表描述了DataSet的所有组件:

    SN组件及说明
    1

    DataTableCollection

    It contains all the tables retrieved from the data source.

    它包含了从数据源中检索的所有表。

    2

    DataRelationCollection

    It contains relationships and the links between tables in a data set.

    它包含数据集中的表之间的关系和链接。

    3

    ExtendedProperties

    It contains additional information, like the SQL statement for retrieving data, time of retrieval, etc.

    它包含的其他信息,例如用于检索数据的SQL语句,检索的时间等

    4

    DataTable

    It represents a table in the DataTableCollection of a dataset. It consists of the DataRow and DataColumn objects. The DataTable objects are case-sensitive.

    它表示数据集的DataTableCollection中的表。它由DataRow和DataColumn对象组成。 DataTable对象区分大小写。

    5

    DataRelation

    It represents a relationship in the DataRelationshipCollection of the dataset. It is used to relate two DataTable objects to each other through the DataColumn objects.

    它表示数据集的DataRelationshipCollection中的关系。它用于通过DataColumn对象将两个DataTable对象相互关联。

    6

    DataRowCollection

    It contains all the rows in a DataTable.

    它包含DataTable中的所有行。

    7

    DataView

    It represents a fixed customized view of a DataTable for sorting, filtering, searching, editing and navigation.

    它表示用于排序,过滤,搜索,编辑和导航的DataTable的固定自定义视图。

    8

    PrimaryKey

    It represents the column that uniquely identifies a row in a DataTable.

    它表示唯一标识DataTable中某一行的列。

    9

    DataRow

    It represents a row in the DataTable. The DataRow object and its properties and methods are used to retrieve, evaluate, insert, delete, and update values in the DataTable. The NewRow method is used to create a new row and the Add method adds a row to the table.

    它表示DataTable中的一行。 DataRow对象及其属性和方法用于检索,评估,插入,删除和更新DataTable中的值。 NewRow方法用于创建一个新行,Add方法向表中添加一行。

    10

    DataColumnCollection

    It represents all the columns in a DataTable.

    它表示DataTable中的所有列。

    11

    DataColumn

    It consists of the number of columns that comprise a DataTable.

    它由组成DataTable的列数组成。


    连接到数据库

    .Net框架提供两种类型的Connection类:

    • SqlConnection -设计用于连接到Microsoft SQL Server。

    • OleDbConnection -设计用于连接到各种数据库,如Microsoft Access和Oracle。

    示例1

    我们有一个表存储在名为testDB的数据库中的名为Customers的Microsoft SQL Server中。 有关在SQL Server中创建数据库和数据库表的信息,请参考“SQL Server”教程。

    让我们连接到此数据库。 执行以下步骤:


    • 选择工具 - >连接到数据库

      VB.Net数据库连接实例
    • 在“添加连接”对话框中选择服务器名称和数据库名称。

      VB.Net数据库连接
    • 单击测试连接按钮以检查连接是否成功。

      连接成功
    • 在表单上添加一个DataGridView。

      VB.Net的DataGridView
    • 单击选择数据源组合框。

    • 单击添加项目数据源链接。

      添加项目数据源链接
    • 这将打开“数据源配置向导”。

    • 选择“数据库”作为数据源类型

      数据源
    • 选择的DataSet作为数据库模型。

      数据库模型
    • 选择已设置的连接。

      VB.Net数据库连接
    • 保存连接字符串。

      保存连接字符串
    • 在我们的示例中选择数据库对象Customers表,然后单击完成按钮。

      VB.Net数据库连接
    • 选择“预览数据”链接以查看“结果”网格中的数据:

      数据预览

    当使用Microsoft Visual Studio工具栏上的“开始”按钮运行应用程序时,将显示以下窗口:

    在数据网格视图VB.net数据

    示例2

    在这个例子中,让我们使用代码访问DataGridView控件中的数据。 执行以下步骤:

    • 在窗体中添加一个DataGridView控件和一个按钮。

    • 将按钮控件的文本更改为“填充”。

    • 双击按钮控件,为按钮的Click事件添加所需的代码,如下所示:

    Imports System.Data.SqlClient
    Public Class Form1
       Private Sub Form1_Load(sender As Object, e As EventArgs) _
       Handles MyBase.Load
            'TODO: This line of code loads data into the 'TestDBDataSet.CUSTOMERS' table.   You can move, or remove it, as needed.
          Me.CUSTOMERSTableAdapter.Fill(Me.TestDBDataSet.CUSTOMERS)
          ' Set the caption bar text of the form.   
          Me.Text = "tutorialspoint.com"
       End Sub
       Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
          Dim connection As SqlConnection = New sqlconnection()
          connection.ConnectionString = "Data Source=KABIR-DESKTOP; _
              Initial Catalog=testDB;Integrated Security=True"
          connection.Open()
          Dim adp As SqlDataAdapter = New SqlDataAdapter _
          ("select * from Customers", connection)
          Dim ds As DataSet = New DataSet()
          adp.Fill(ds)
          DataGridView1.DataSource = ds.Tables(0)
       End Sub
    End Class
    


    当使用Microsoft Visual Studio工具栏上的“开始”按钮执行并运行上述代码时,将显示以下窗口:


    数据库连接


    单击“填充”按钮可显示数据网格视图控件上的表:

    数据库连接


    创建表,列和行



    我们已经讨论过,像DataTable,DataColumn和DataRow这样的DataSet组件允许我们分别创建表,列和行。

    下面的例子演示了这个概念:


    示例3

    到目前为止,我们已经使用我们的计算机中已经存在的表和数据库。 在本示例中,我们将创建一个表,向其中添加列,行和数据,并使用DataGridView对象显示表。


    执行以下步骤:

    • 在窗体中添加一个DataGridView控件和一个按钮。

    • 将按钮控件的文本更改为“填充”。

    • 在代码编辑器中添加以下代码。

    Public Class Form1
       Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
          ' Set the caption bar text of the form.   
          Me.Text = "tutorialspont.com"
       End Sub
       Private Function CreateDataSet() As DataSet
          'creating a DataSet object for tables
          Dim dataset As DataSet = New DataSet()
          ' creating the student table
          Dim Students As DataTable = CreateStudentTable()
          dataset.Tables.Add(Students)
          Return dataset
       End Function
       Private Function CreateStudentTable() As DataTable
          Dim Students As DataTable
          Students = New DataTable("Student")
          ' adding columns
          AddNewColumn(Students, "System.Int32", "StudentID")
          AddNewColumn(Students, "System.String", "StudentName")
          AddNewColumn(Students, "System.String", "StudentCity")
          ' adding rows
          AddNewRow(Students, 1, "Zara Ali", "Kolkata")
          AddNewRow(Students, 2, "Shreya Sharma", "Delhi")
          AddNewRow(Students, 3, "Rini Mukherjee", "Hyderabad")
          AddNewRow(Students, 4, "Sunil Dubey", "Bikaner")
          AddNewRow(Students, 5, "Rajat Mishra", "Patna")
          Return Students
       End Function
       Private Sub AddNewColumn(ByRef table As DataTable, _ 
       ByVal columnType As String, ByVal columnName As String)
          Dim column As DataColumn = _ 
           table.Columns.Add(columnName, Type.GetType(columnType))
       End Sub
    
       'adding data into the table
       Private Sub AddNewRow(ByRef table As DataTable, ByRef id As Integer,_
       ByRef name As String, ByRef city As String)
          Dim newrow As DataRow = table.NewRow()
          newrow("StudentID") = id
          newrow("StudentName") = name
          newrow("StudentCity") = city
          table.Rows.Add(newrow)
       End Sub
       Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
          Dim ds As New DataSet
          ds = CreateDataSet()
          DataGridView1.DataSource = ds.Tables("Student")
       End Sub
    End Class
    


    当使用Microsoft Visual Studio工具栏上的“开始”按钮执行并运行上述代码时,将显示以下窗口:


    例


    单击“填充”按钮可显示数据网格视图控件上的表:


    例
    展开全文
  • PI实时数据库的应用。应用PI-API连接数据库,读取数据。英文官方示例程序。
  • C#(VB.net)数据库访问操作类库

    热门讨论 2009-11-06 16:50:07
    C#(VB.net)数据库访问操作类库 你知道,一些类库把常用的操作封装起来,以后可以直接调用,就节省了普通开发人员的大量精力. 对于CN 大多数公司都是开发MIS系统 说白了就是数据库系统 使用数据访问类库,必将节省大量...
  • vb 连接 查询 修改 删除mysql数据库方法代码,直接调用就行。 SQLite是一款轻型的数据库,占用资源非常的低,处理速度快。SQLite虽然很小巧,但是支持的SQL语句不会逊色于其他开源数据库。无需安装和管理配置,储存...
  • 这次学生信息管理系统在代码的理解过程中遇到了一些问题。总结如下: 1.***** sql server的安装过程各个步骤的意思.在安装SQL Server的时候按照网上的步骤,我觉得这个需要学完整个数据库再返回头去看,或许就能...

    这次学生信息管理系统在代码的理解过程中遇到了一些问题。总结如下:

    1.

    sql server的安装过程各个步骤的意思.在安装SQL Server的时候按照网上的步骤,我觉得这个需要学完整个数据库再返回头去看,或许就能明白,为什么要那样设置了。

    2.

    游标

    最初听到游标这个东西,想到游标卡尺。这里的游标是查询返回的一个结果集和游标位置共同组成的。当我们在使用系统的时候,点击一个按钮下去,可能会执行一段查询语句。查询的结果保留在结果集中,这是一个临时表。查询的结果可能是很多条,而系统需要一条一条记录的显示,就需要去有一个类似C语言指针一样的东西,去指向这样一条一条的记录,这样就可以一条一条的查询出来了。 

    结果集就是数据库调用方法查询到的记录。其中包含查询返回的列标题(属性)和值。

    字段Fields:在关系型数据库中,一张二维表的表头会有多个属性,每一个属性也可以叫做一个字段。

     3.

    数据库的表设计:由于用户输入的信息大小,需要预先估计大小,选择合适的数据类型进行分配分配

    4.

    sql不能保存的问题【参考https://jingyan.baidu.com/article/ca41422fdfa3221eae99edd2.html】

    选择【工具】——>【选项】——>【Designers】——>找到【阻止保存要求重新创建变量】,取消勾选

    遇到的VB文件修改后不能保存问题,不知道为什么一直覆盖不了,所以后来就先删掉之前这的窗体的文件,把修改后 的文件进行保存,就可以保存上了,就不会出现文件路径访问错误了。

    5.

     Additemadditem是给列表框或组合框等具有列表的对象添加项目用的

    【参考https://zhidao.baidu.com/question/130480843.html?qbl=relate_question_7&word=vb%20AddItem 】

    比如在完善个人信息的界面出现的选择省份,这时候点击小三角,就会出现很多可选项,而这些可选项是事先加进去的。

    additem是列表框和组合框的一个方法,调用这个方法,可以直接添加选择项了。

    具体用法:

           list.additem "hello"

           list:是添加字符串的控件

           hello:要添加的文字

      也可以利用所以实现快速添加很多选择项。

    6.

    call vb6.0用于在一个函数中调用另一个函数【参考vb中的call有什么用???_百度知道

    在程序中,会出现调用自定义的函数多次,在VB中需要用到这个函数Call

    具体用法: 

                   Call myfunction(参数...)

    也可以不用Call

                  myfunction(参数...)

    7.

    拼接语句:之所以叫它拼接语句,分解一下

    txtSQL = txtSQL & "and student_Name = " &txtName.Text & " " 
    " &txtName.Text & "  这是获取系统中终端输入的内容
    "and student_Name = " &txtName.Text & " " 将获取的内容赋值给数据库表Student的Name属性
    txtSQL & "and student_Name = " &txtName.Text & " " 将前一个语句和后面的拼接到一起,把新的结果赋给txtSQL
    

    8.

    dd(0)定义的逻辑变量,用来判断进行那种查询方【参考【学生系统】——查询窗体和修改窗体_Coder Yasmine-CSDN博客_vba查询窗体

    9.

    CellAlignment【参考:MSFlexGrid控件_百度百科

    MSFlexGrid控件用来显示和操作表格数据。CellAlignment是MSFlexGrid控件的属性,不同的属性值有不同的效果

    常数

    描述

    flexAlignLeftTop

    0

    列内容顶部左对齐

    flexAlignLeftCenter

    1

    列内容中间左对齐。对字符串的缺省设置值。

    flexAlignLeftBottom

    2

    列内容底部左对齐。

    flexAlignCenterTop

    3

    列内容顶部居中。

    flexAlignCenterCenter

    4

    列内容中间居中。

    flexAlignCenterBottom

    5

    列内容底部居中

    flexAlignRightTop

    6

    列内容顶部右对齐

    flexAlignRightCenter

    7

    列内容中间右对齐。对数值的缺省设置值。

    flexAlignRightBottom

    8

    列内容底部右对齐。

    flexAlignGeneral

    9

    列内容一般对齐方式。对字符串中间左对齐而对数值中间右对齐。

    10.

    TextMatrix【参考:vb中textmatrix是什么?请详解_百度知道

    用法:

             MSFlexGrid.TextMatrix(2,3)="hello" //这时候MSFlexGrid控件里第二行第三列的内容就是hello了

    adoPrimaryRS1.Open
    "select       " & a & ", count("& a & ")
    from TBInfo
    group by " & a & ", db, adOpenStatic,adLockOptimistic
    
        With myFlexGrid
            .Rows = 2
            .CellAlignment = 4
            .TextMatrix(1, 0) = a
            .TextMatrix(1, 1) = "数量"
           
            Do While Not adoPrimaryRS1.EOF
                .Rows = .Rows + 1
                .CellAlignment = 4
                .TextMatrix(.Rows - 1, 0) =adoPrimaryRS1.Fields(0)
                .TextMatrix(.Rows - 1, 1) =adoPrimaryRS1.Fields(1)
    

    打开一个ADO对象

    执行SQL语句,选择a he count(a) 从TBInfo表中,按照字段a db adOpenStatic.adLockOptimistic 分组

    11.

    Ole db 状态值【参考:http://ymg97526.blog.163.com/blog/static/17365816020125141531472/

    产生如下图所示的错误,大概是因为你系统中所输入的内容超出了数据库中数据类型的范围!需要你去修改数据库的数据类型了。

    总结:当你看不懂大片代码的时候,就去一点点的去分析小部分的内容。

    展开全文
  • 方法2:对于一些支持安全验证的数据库管理系统,如SQL可将系统用户定义为数据库用户,再设计登录对话框时使用输入的用户名和登录口令来连接数据库,让数据库管理系统完成验证.   技术要领 设置默认按钮:将命令按钮...

    设计分析

    一般数据库管理系统登录对话框有两种基本方法

    方法1:在数据库中建立一个数据表用于保存系统用户登录信息,在设计登录对话框时通过查询该数据表完成验证.(一般性)

    方法2:对于一些支持安全验证的数据库管理系统,如SQL可将系统用户定义为数据库用户,再设计登录对话框时使用输入的用户名和登录口令来连接数据库,让数据库管理系统完成验证.

     

    技术要领

    设置默认按钮:将命令按钮控件的default属性设置为true,设置完以后按enter键即可选择该按钮

    设置取消按钮:将命令按钮的cancle属性设置为true.设置完以后按esc键或该按钮获得焦点时按enter键来选择它

     

    自定义函数过程

                         Function 函数名(参数1 AS 数据类型,参数2 AS数据类型 …...)AS数据类型

                          ……

                         函数名=返回值

                          ……

                         End Function

     

    注:要从函数返回一个值只需将该值赋给函数名,在过程的任意位置都可以出现这种赋值。如果没有对函数过程指定返回值,则过程将返回一个默认值:数值函数返回0,字符串函数返回一个零长度的字符串(""),Variant函数则返回Empty

     

       操作

    1.创建数据库

      (1在vb中选择"外接程序"->"可视化数据管理器"命令)

    (2)点击文件->新建->Microsoft Access->Version7.0 MDB命令,在文件名写上"实例1"作为数据库的文件名

    (3)点击保存

    因为是新建的数据库,数据库窗口中仅显示了一个Properties节点.此节点的属性为

    (4)在数据库窗口中单击鼠标右键,选择"新建表"

    (5)在表名称文本框中输入"系统用户"作为数据表名称,

    (6)单击添加字段按钮,在此对话框中需要制定字段的名称,类型,大小,顺序位置,验证文本,验证规则,默认值,自动增加,字段大小固定或可变,是否为零长度,是否是必要的字段等信息

    (7)设置完成以后单击确定按钮,完成一个字段的添加,同时添加字段对话框被复位可继续添加

    (8)单击添加索引

    (9)添加完索引之后的表结构

    (10)为数据表添加了字段和索引之后单击生成表按钮创建数据表

    (11)右击"系统用户",选择"打开"

    (12)单击添加按钮

    (13)输入用户名和口令后单击更新按钮

    (14)退出可视化数据管理器,完成创建数据库的创建

     

    2.设计窗体

    窗体包括两个文本框,两个标签,两个按钮

    注:文本框的名称改为txtpassword 和txtusername,并且将txtpassword 的passwordchar属性设置为*(用*代替用户输入,达到隐藏口令的目的)

       按钮的名称改为cmdok和cmdcancel

    3.建立ADO引用

    选择 工程->引用

    4.编写代码

    Option Explicit
    Const MaxLogTimes As Integer = 3 '定义允许用户严重呢个登录信息的最多次数
    '取消按钮
    Private Sub cmdCancel_Click()
    Dim intResult As Integer  '请求用户是否真的退出系统登录
    
    intResult = MsgBox("您是否真的要退出系统登录,退出将不能启动管理系统!" & vbCrLf _
    & "是否真的退出?", vbYesNo, "登录验证")
    
    If intResult = vbYes Then End
    End Sub
    
    '确定按钮
    Private Sub cmdOK_Click()
    Static intLogTimes As Integer
    Dim intChecked As Integer, strName As String, strPassword As String
    intLogTimes = intLogTimes + 1 '计算登陆次数
    If intLogTimes > MaxLogTimes Then
       MsgBox " 你已经超过允许登陆次数!" & vbCr _
        & " 应用程序将结束!", vbCritical, "登录验证"
    
       End
    Else
       strName = Trim(txtUserName.Text) '获得输入的用户名
       strPassword = Trim(TxtPassWord.Text) '获得输入的口令
       '检查用户名和口令的合法性,并根据检查返回值执行相应的操作
       Select Case Check_PassWord(strName, strPassword)
          Case 0
          MsgBox "<" & strName & _
          ">不是系统用户,请检查用户名输入是否正确!", vbCritical, "登录验证"
           txtUserName.SetFocus
           txtUserName.SelStart = 0
           txtUserName.SelLength = Len(txtUserName)
          Case 1
           MsgBox "口令错误,请重新登录!", vbCritical, "登录验证"
           TxtPassWord = ""
           TxtPassWord.SetFocus
          Case 2   '口令正确
           Unload Me
           MsgBox "登陆成功,将启动系统程序!", vbInformation, "登录验证"
          Case Else
           MsgBox "登录验证未正常完成!请重新运行登陆程序," & vbCrLf _
           & "如果仍不能正常登录,请报告系统管理员!", vbCritical, "登录验证"
           
          End Select
       
     End If
     
    
    End Sub
    
    '用户名和口令的验证过程
    Private Function Check_PassWord(ByVal UserName As String, ByVal Password As String) As Byte
    
    On Error GoTo gperror
    Dim objCn As New Connection, objRs As New Recordset, strCn As String
    Dim strSQL As String
    '建立数据库连接
    'MsgBox (App.Path)
    objCn.ConnectionString = "Provider=Microsoft.jet.oledb.3.51;" & _
     "Data source=" & "D:\VB98\系统登录\实例1.mdb"
     'MsgBox (objCn.ConnectionString)
    objCn.Open
    '执行查询命令,获得用户登录口令
    strSQL = "SELECT 口令 FROM 系统用户 WHERE 用户名='" & UserName & "'"
    Set objRs.ActiveConnection = objCn
    objRs.Open (strSQL)
    '判断有无查询结果
    If objRs.EOF Then
       Check_PassWord = 0 '没有查询结果,表示该用户为非法用户
    Else
       If Password <> Trim(objRs.Fields("口令").Value) Then
          Check_PassWord = 1 '口令不正确
        Else
          Check_PassWord = 2 '口令正确
       End If
    End If
    
    '关闭数据库连接,释放对象
    objCn.Close
    Set objRs = Nothing
    Set objCn = Nothing
    Exit Function
    
    gperror:
      Check_PassWord = 255
      Set objRs = Nothing
      Set objCn = Nothing
      
    End Function
    


     

    展开全文
  • VB中连接access数据库的几种方法

    千次阅读 2019-01-02 16:40:55
    使用ADO对象,通过编写代码訪问数据库 Connection 对象 ODBC数据源 使用ADO Data 控件高速创建数据库连接 有三种连接方法 Data Link文件 使用ODBC数据源名称 使用连接字符串 使用数据环境设计器创建数据库...
  • 摘要:VB源码,数据库应用,DSN VB动态创建访问数据库的DSN,编写过程中调用了诸多的API函数,也定义了比较多的变量,同进还涉及一些窗体编程的小技巧,对于VB初学者来说,是个不错的参考小实例。
  • VB读取ACCESS数据库数据

    千次阅读 2018-12-28 14:16:38
    1.注意datagrid名称和adodc名称的修改 2.此程序为vb实时读取Access数据库的内容。
  • VB.net数据库编程pdf

    2018-02-01 17:01:00
    第一部分包括3章,是基础部分,介绍VB.NET调用sQL语句操作Access、SQL Server数据的方法,每章后面都配有一个短小而综合的例子,在此基础上,可以针对简单的需求,编写一些应用程序。第二部分包括5章,从5个不同的...
  • 摘要:VB源码,数据库应用,SQL多表调用 一个SQL多表调用演示,VB示例代码,演示不同表中的基本情况表.姓名,基本情况表.学号,学生成绩表.课程,学生成绩表.成绩,学生成绩表,基本情况表,学生成绩表之间的混合调用,...
  • VB6 如何连接MYSQL数据库

    千次阅读 2017-03-22 16:45:00
    1 从官网下载MYSQL的ODBC,选择与自己操作系统对应的版本(前提是你安装了MYSQL) ...  2 安装完成之后,搜索数据源,你可以发现刚才装好... 3 新建一个VB6的工程,引用microsoft activex data objects 2.8...
  • vb操作WPS 文件

    2019-03-14 23:51:06
    在使用VB6.0软件编程过程中,收集了各种VB源码实例进行测试,然后按照自己的需要进行编辑整理。这里VB操作WPS 文件方法,适合新学者和初次编程人员进行参考。
  • VB读写dbf格式数据库

    千次阅读 2019-07-10 17:43:49
    dbf曾经是最流行的数据库之一,上世纪末foxbase被微软收购,并入VS6.0,就是大名鼎鼎的FoxPro,然而,微软的亲儿子,小数据库有Access,大数据库有SQL Sever,所以就越来越不待见dbf了,直至2010年1月正式宣布停止...
  •  代码如下: Option Explicit Dim SelectedSeries as Integer ′自定义变量 Dim Rs() as String ′提取记录集用的字符串数组 Private Sub Form_Load() ′设定DataGrid控件的数据源 DgScore.DataSource=″...
  • VB连接数据库

    千次阅读 2009-09-30 22:02:00
    今天告诉大家VB连接数据库的方法,我知道的有两种: 一种是在 adodc1的属性里设置数据库文件的路径,这种方法的优点是简单易操作,缺点是,当源文件换了地方后,要重新设置数据库的路径,否则连接不上数据库了。...
  • VB中选取数据库表中的字段名

    千次阅读 热门讨论 2016-09-04 20:02:58
    在敲机房的过程中,我们会大量调用数据库中的数据。下面有几种方法可以选取数据库表中的某一列。(设记录集为mrc) 以第三列 Level 为例 一、mrc.field(2) 这种写法最大的问题是要数 Level 在哪一列,如果排的比较...
  • 先建立一个无参的存储过程,为下面第一个无参调用作准备: [sql] view plaincopyprint? use Sales  go  create procedure sp_getGrade  as  select * from grade where...
  • VB6自动识别Access2000数据库路径,其实我没找到自动识别数据库路径的代码,这个可能和数据库版本关系不大,也可以是Access...并可以查上一条记录,下一条记录, 数据库连接,查询语句,调用函数等功能,VB6.0源代码
  • 在使用VB6.0软件编程过程中,收集了各种VB源码实例进行测试...这里主要包括AES加密算法,图片压缩方法,VB封装方法,连接各种数据库(access, sqlite, sql server), word 等,是新学者和初次编程人员很好的参考资料。
  • VB.net数据库编程(08):ADO.net数据访问接口

    万次阅读 多人点赞 2013-02-02 20:18:42
    编程语言与数据库的连接是通过一个接口,达到两者交流,以便两者谈情说爱。 一、接口种类:6种:  1、ODBC,面向C/C++。  2、DAO, 面向VB,操作ACCEss  3、RDO,上面的加强型  4、OLE DB  5、ADO, 对...
  • VB累加求和(函数过程计算)演示源程序,主要练习自定义函数的方法及使用,‘注意格式和参数以及调用函数的程序执行顺序。顺便说一下,调用函数过程,到这里后要跳到函数处执行函数,然后回来继续往下执行。这里定义了...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 30,263
精华内容 12,105
关键字:

vb调用数据库的代码