精华内容
下载资源
问答
  • 一个标准的VB编辑控件VB利用DataGrid控件辅助录入数据,当输入数据并按下 ENTER 键,或用鼠标单击MSHFlexGrid控件中的另一个单元时,焦点将返回此控件。这时 TextBox 中的文本被复制到活动单元中。ESC:隐藏焦点并...
  • vbdatagrid控件的详细使用方法

    热门讨论 2009-10-20 17:08:08
    vbdatagrid控件的详细使用方法,拿出来给大家看看!!!!是学习datagrid控件的好助手
  • VB计算DataGrid数据控件中的数据,自动计算金额一栏的数据,注:只允许修改数量及单价。在代码中需要设置DataGrid1的列宽,锁定某列单元格,格式化第4列、第5列数据等操作,实例所需数据库为Access文件,已保存至...
  • vbdatagrid控件

    2010-09-04 08:57:44
    用于解决vb6精简版没有datagrid控件的情况 安装完成后,可能出现“该部件的许可证信息没有找到,在设计环境中,没有合适的许可证使用该功能”提示 请运行vb6cli.exe,该软件我已上传至csdn。并且微软官网提供下载。
  • VB利用DataGrid控件显示数据库中数据信息,DataGrid在数据库数据显示的时候非常重要,它在用户操作舒适度及数据排列方面有独到之处,对于Vb数据库编程的用户来说,掌握DataGrid的使用是至关重要的事情。
  • VB 使用DataGrid显示书名数据表,这个例子相当简单,主要是学习在VB编程中如何使用DataGrid数据网格控件,将数据库内容读取出来,然后绑定到DataGrid表格中显示:  Adodc1.ConnectionString = "Provider=SQLOLEDB.1...
  • vbdatagrid控件的使用(一)

    万次阅读 2016-12-29 10:42:31
    vbdatagrid控件的使用(一) 时间:2007-05-05 使用 DataGrid 控件 DataGrid 控件是一种类似于电子数据表的绑定控件,可以显示一系列行和列来表示 Recordset 对象的记录和字段。可以使用 DataGrid 来...

    vb的datagrid控件的使用(一)

    时间:2007-05-05

    使用 DataGrid 控件

    DataGrid 控件是一种类似于电子数据表的绑定控件,可以显示一系列行和列来表示 Recordset 对象的记录和字段。可以使用 DataGrid 来创建一个允许最终用户阅读和写入到绝大多数数据库的应用程序。DataGrid 控件可以在设计时快速进行配置,只需少量代码或无需代码。当在设计时设置了DataGrid 控件的 DataSource 属性后,就会用数据源的记录集来自动填充该控件,以及自动设置该控件的列标头。然后您就可以编辑该网格的列;删除、重新安排、添加列标头、或者调整任意一列的宽度。
    在运行时,可以在程序中切换 DataSource 来察看不同的表,或者可以修改当前数据库的查询,以返回一个不同的记录集合。
    注意 DataGrid 控件与 Visual Basic 5.0中的 DBGrid 是代码兼容的,除了一个例外:DataGrid 控件不支持 DBGrid 的“解除绑定模式”概念。DBGrid 控件包括在 Visual Basic 的 Tools 目录中。

    可能的用法
    查看和编辑在远程或本地数据库中的数据。
    与另一个数据绑定的控件(诸如 DataList 控件)联合使用,使用 DataGrid控件来显示一个表的记录,这个表通过一个公共字段链接到由第二个数据绑定控件所显示的表。

    使用 DataGrid 控件的设计时特性
    可以不编写任何代码,只通过使用 DataGrid 控件的设计时特性来创建一个数据库应用程序。下面的说明概要地说明了在实现 DataGrid 控件的典型应用时的一般步骤。完整的循序渐进的指示,请参阅主题“DataGrid 方案1: 使用 DataGrid 控件创建一个简单数据库应用程序”。
    要在设计时实现一个 DataGrid 控件
    1. 为要访问的数据库创建一个 Microsoft 数据链接 (.MDL) 文件。请参阅“创建 Northwind OLE DB 数据链接”主题,以获得一个示例。
    2. 在窗体上放置一个 ADO Data 控件,并将其 ConnectionString 属性设置为在第 1 步中所创建的OLE DB 数据源。
    3. 在这个 Ado Data 控件的 RecordSource 属性中输入一条将返回一个记
    录集的 SQL 语句。例如,Select * From MyTableName Where CustID = 12
    4. 在窗体上放置一个 DataGrid 控件,并将其 DataSource 属性设置为这个 ADO Data 控件。
    5. 右键单击该 DataGrid 控件,然后单击“检索字段”。
    6. 右键单击该 DataGrid 控件,然后单击“编辑”。
    7. 重新设置该网格的大小、删除或添加网格的列。
    8. 右键单击该 DataGrid 控件,然后单击“属性”。
    9. 使用“属性页”对话框来设置该控件的适当的属性,将该网格配置为所需的外观和行为。

    在运行时更改显示的数据
    在创建了一个使用设计时特性的网格后,也可以在运行时动态地更改该网格的数据源。下面介绍实现这一功能的通常方法。

    更改 DataSource 的RecordSource
    更改所显示的数据的最通常方法是改变该 DataSource 的查询。例如,如果DataGrid 控件使用一个ADO Data控件作为其 DataSource,则重写RecordSource和刷新该ADO Data 控件都将改变所显示的数据。
    ' ADO Data 控件连接的是 Northwind 数据库的' Products 表。新查询查找所有
    ' SupplierID = 12 的记录。
    Dim strQuery As String
    strQuery = "SELECT * FROM Suppliers WHERE SupplierID = 12"
    Adodc1.RecordSource = strQuery
    Adodc1.Refresh

    更改 DataSource
    在运行时,可以将 DataSource 属性重新设置为一个不同的数据源。例如,您可能具有若干个 ADO Data 控件,每个控件连接不同的数据库,或设置为不同的 RecordSource 属性。可以简单地将 DataSource 从一个 ADO Data控件重新设置为另一个 ADO Data 控件:
    ' 将 DataSource 重新设置为一个连接到 Pubs 数据库的、
    ' 使用 Authors 表的 ADO Data 控件。
    Set DataGrid1.DataSource = adoPubsAuthors

    重新绑定 DataSource
    当将 DataGrid 控件用于一个远程数据库,诸如 SQLServer 时,可以改变表的结构。例如,可以给这个表添加一个字段。在这种情形下,可以调用Rebind 方法根据新的结构来重新创建该网格。注意,如果已经在设计时改变了这个列的布局,DataGrid 控件将会试图重新创建当前的布局,包括任何空的列。不过,通过首先调用 ClearFields 方法,可以强制该网格重新设置所有的列。

    从 DataGrid 返回值
    在 DataGrid 被连接到一个数据库后,可能想要监视用户单击了哪一个单元。可以使用 RowColChange 事件——而不是 Click 事件。如下所示:
    Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
    ' 显示用户所单击的单元的文字、行和列的信息。
    Debug.Print DataGrid1.Text; DataGrid1.Row; DataGrid1.Col
    End Sub

    使用 CellText 和 CellValue 方法
    当一个列使用 NumberFormat 属性设置格式后,CellText 和 CellValue 属性是很有用的。NumberFormat 属性不必更改实际的数据格式就可以更改任何包含数字的列的格式。例如,给定一个网格,其中包含一个名为 ProductID的、包含整数的列。下面的代码将使 DataGrid 以"P-0000" 的格式来显示数据。换句话说,尽管在 ProductID 字段中所包含的实际数值为 "3",但该网格所显示的值将是 "P-0003"。
    Private Sub Form_Load()
    DataGrid1.Columns("ProductID").NumberFormat = "P-0000"
    End Sub
    要返回数据库中所包含的实际值,应使用 CellValue 方法,如下所示:
    Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
    Debug.Print _
    DataGrid1.Columns("ProductID").CellValue(DataGrid1.Bookmark)
    End Sub
    注意 上面所用的 CellValue 和下面所用的 CellText 值,都需要将Bookmark 属性作为一个参数,功能才正确。
    相反地,如果要返回该字段的格式化的值,应使用 CellText 方法:
    Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
    Debug.Print _
    DataGrid1.Columns("ProductID").CellText(DataGrid1.Bookmark)
    End Sub
    注意 上面的 CellText 方法等价于使用 DataGrid 控件的 Text 属性。

    下一步
    要阅读关于使用该控件创建简单的应用程序的一个循序渐进的过程,请参阅“使用 DataGrid 控件创建简单的数据库应用程序”,或“创建一个连接DataList 控件的 DataGrid”。
    要了解关于 Split 对象以及如何对其编程的详细信息,请参阅“操作DataGrid 视图”。



      展开全文
    • 摘要:VB源码,数据库应用,DataGrid VB利用DataGrid控件显示数据库中数据信息,DataGrid在数据库数据显示的时候非常重要,它在用户操作舒适度及数据排列方面有独到之处,对于Vb数据库编程的用户来说,掌握DataGrid的...
    • 大家伙,我在这里给大家分享一下最近我在VB中使用的DataGrid控件的部分用法,希望大家下载分享!有更好的还望大家给我推荐,谢谢!
    • 这是一个在VB中使用 数据库绑定控件DataGrid的实例,演示了如何将从数据库中读取出的数据显示到DataGrid控件中。本例子中包括了很多ADO 操作数据库方面的基本操作,是新手学习VB环境下的ado操作的好范例,比如添加、...
    • VB 6.0 在DataGrid表格中实现下拉列表框,大家可以看截图,在如演示效果所示的DataGrid表格中,单击“单位”一列任意行数据,会显示出一个下拉框,供输入者选择单位,扩展了DataGrid的功能,增加了易用性,提升了...
    • 有关VBDataGrid空间的详细使用情况
    • VB中的ADO控件DATAGrid数据打印报表,一个VB打印的例子,报表生成的例子,数据取自Access数据库,使用Ado将数据从Access读出后绑定在DataGrid报表中,在利用打印组件输出到打印机,效果截图如上所示。
    • 摘要:VB源码,数据库应用,DataGrid VB在列中加入计算,计算利润和销售金额,在VB的数据显示控件DataGrid的列中加入计算的功能,大大提升了软件的体验,丰富了功能,如本例所示,可以用列来计算利润和销售金额。
    • DataGridVB.NET中重要的数据感知控件,它不仅可以把数据库的记录以表格形式显示出来,而且可以表格形式编辑数据库的记录,所以,它在数据库编程中应用非常广泛。那么,在VB.NET数据库编程中DataGrid控件有哪些使用...

      VB.net数据库编程中DataGrid控件的使用技巧

       

      如何用同一个DataGrid显示不同的数据表;如何用DataGrid显示主表/明细表的内容;如何用DataGrid分页显示或编辑数据表的记录。这些技巧在开发数据库程序中很实用。

      DataGrid是VB.NET中重要的数据感知控件,它不仅可以把数据库的记录以表格形式显示出来,而且可以表格形式编辑数据库的记录,所以,它在数据库编程中应用非常广泛。那么,在VB.NET数据库编程中DataGrid控件有哪些使用技巧呢?这就是我今天要谈的内容。

      1、用同一个DataGrid分别显示不同的数据表

      通过动态指定DataGrid的数据源就可以把一个(或多个)数据库中的多个数据表按需要显示在DataGrid中。

      在图1、图2中所显示的就是这种情况。在这个实例中,使用的是student.mdb数据库,该数据库中的三个表分别是T_Stu(学生表)、T_Course(课程表)、T_Mark(成绩表)。由于有三个数据表,所以要在窗体上添加三个数据适配器,我们把这分别命名为daStu、daCourse、daMark,每个数据适配器可以连接到数据库中的一个数据,然后生成一个数据集(这  图1   里命名为 ds),数据集中有上述三个数据表。


      接着就要编写代码来实现程序的功能。程序代码如下图


      把上面程序中的 daCourse.Fill(ds, "T_Course")和 DataGrid1.DataMember = "T_Course"分别修改为daCourse.Fill(ds, "T_Course")和DataGrid1.SetDataBinding(ds, "T_Course")其功能是一样的。

      实际上,我们还可以直接利用DataGrid控件显示多个数据表的功能来达到我们的要求。程序代码如下图


      单击“加载”命令程序运行结果如下图2


      二、用DataGrid显示主表/明细表的内容

      左下图所示为程序运行结果的主从表内容。这二个表中有一个字段是相同的。这种情况下,当你在第一个DataGrid中单击任何一条记录,则在下面的第二个DataGrid中显示其对应的详细情况。



      在这里,我们使用的数据表是MSSQL Server 2008中的northwind数据库中的orders和orderdetails。由于有二个数据表,所以使用了二个数据适配器daorders和daorderdetails。当数据集生成之后,请在数据上展开“+”会显示orderdetails表。这里要注意要,一定要建立二表的关系;用代码建,代码如下

         ds.Relations.Add("order_details",ds.Tables("orders").Columns("orderid"), ds.Tables("orderdetails").Columns("orderid"))

      ds.relations.add(参数一,参数二,参数三)

      参数一为自定义的关系明,参数二为数据集中主表的主键的列,参数三为明细表参照主表的外键列。程序代码如下:


      三、分页显示或编辑数据表的记录。

      用VB.NET程序还可以控制DataGrid分页浏览或编辑数据库记录。这是一个非常实用的功能。不过我们首先要明白,Windows窗体中的DataGrid控件本身不具有分页显示的功能,但我们可以控制它在一个页面中显示记录的条数,从而实现分页显示或编辑功能。

      程序运行界面如下图。


      要实现这个功能最关键的是要掌握数据适配器的Fill方法的用法,其基本用法是:

      数据适配器.Fill(数据集,开始记录,要显示的记录条数,数据表)。

      “开始记录”是从0开始显示数据表customers的前5条记录,则可以用下面的程序实现:

      程序功能代码如下:

      Imports System.Data.SqlClient

      Imports System.Data

      Public Class Form1

          Dim con As New SqlConnection("datasource=localhost;initial catalog=northwind;user id=sa;password=123")

          Dim da As New SqlDataAdapter("select* from customers", con)

          Dim ds As New DataSet()

          DimcurrentIndex As Integer'当前页首条记录的序列数,第一页从0开始

          Public Const pageSize As Integer = 5 '每页显示的记录数

          Dim w As Integer '总页数

       

          Private Sub dsFill()

              ds.Clear()

              da.Fill(ds, currentIndex, pageSize, "customers")

              DataGrid1.DataMember = "customers"

          End Sub

          Private Sub Form1_Load(sender AsObject, e AsSystem.EventArgs) HandlesMe.Load

              currentIndex = 0

       

              Dim n As Integer '总记录数

              con.Open()

              ds.Clear()

              DataGrid1.DataSource = ds

              da.Fill(ds, "customers")

              DataGrid1.DataMember = "customers"

              n = ds.Tables(0).Rows.Count

              If(Int((n) / pageSize)) = n / pageSize Then '如果整除

                  w = Int(n / pageSize)

              Else

                  w = Int(n / pageSize) + 1

              End If

              Label1.Text = "请输入页码,页码数大于1小于" & w

              btnBefor.Enabled = False

              dsFill()

              con.Close()

       

          End Sub

       

       

       

          Private Sub btnNext_Click(sender AsSystem.Object, e AsSystem.EventArgs) HandlesbtnNext.Click

              btnBefor.Enabled = True

              btnFirst.Enabled = True

              IfcurrentIndex < (w - 1) * pageSize Then

                  currentIndex = currentIndex +pageSize

                  btnLast.Enabled = True

              Else

                  currentIndex = (w - 1) * pageSize

                  btnLast.Enabled = False

                  btnNext.Enabled = False

              End If

              dsFill()

          End Sub

       

          Private Sub btnBefor_Click(sender AsSystem.Object, e AsSystem.EventArgs) HandlesbtnBefor.Click

              btnBefor.Enabled = True

              btnLast.Enabled = True

              IfcurrentIndex = 0 Then

                  btnBefor.Enabled = False

              Else

                  currentIndex = currentIndex -pageSize

              End If

              dsFill()

          End Sub

       

          Private Sub btnShow_Click(sender AsSystem.Object, e AsSystem.EventArgs) HandlesbtnShow.Click

              Dim x As Integer '定义用户在文本框中输入的页码

              x = Val(TextBox1.Text)

              If x>= 1 And x <= w Then

                  currentIndex = (x - 1) * pageSize

                  dsFill()

              Else

                  MsgBox("你输入的页码必须在1" & w & "之间")

              End If

          End Sub

       

          Private Sub btnFirst_Click(sender AsSystem.Object, e AsSystem.EventArgs) HandlesbtnFirst.Click

              currentIndex = 0

              btnBefor.Enabled = False

              btnFirst.Enabled = False

              btnLast.Enabled = True

              btnNext.Enabled = True

              dsFill()

       

          End Sub

       

          Private Sub btnLast_Click(sender AsSystem.Object, e AsSystem.EventArgs) HandlesbtnLast.Click

              currentIndex = (w - 1) * pageSize

              btnLast.Enabled = False

              btnNext.Enabled = False

              btnFirst.Enabled = True

              btnBefor.Enabled = True

              dsFill()

          End Sub

       

          Private Sub btnQuit_Click(sender AsSystem.Object, e AsSystem.EventArgs) HandlesbtnQuit.Click

              con.Dispose()

              End

          End Sub

       

          Private Sub btnOk_Click(sender AsSystem.Object, e AsSystem.EventArgs) HandlesbtnOk.Click

              '''DimsqlComd As New SqlCommand

              'da.Update(ds,"customers")

              'MessageBox.Show("数据更新已完成")

          End Sub

      End Class

       

      到此处数据更新功能未能实现,待续……

      展开全文
    • vb中的DataGrid网格控件用法演示,相信很多人都很喜欢使用DataGrid来配合数据库显示内容吧,确实是很基储很直观的一个数据库控件,几乎很多的VB数据库程序中,都可以看到它的身影。这个例子比较简单,但可以让你掌握...
    • VB控件属性大全【珍藏版】

      热门讨论 2012-04-21 11:28:45
      VB控件属性大全【珍藏版】 1.01、窗体(FORM)的常用属性 2 1.02、标签控件(Lable)的常用属性 7 1.03、文本框控件(TextBox)的常用属性 9 1.04、框架控件(Frame)的常用属性 13 1.05、命令按钮控件(CommandButton)的...
    • VB DataGridView控件介绍

      2011-04-15 09:38:21
      VB DataGridView控件介绍VB DataGridView控件介绍VB DataGridView控件介绍VB DataGridView控件介绍
    • VB中的ADO控件DATAGrid数据打印报表的源代码,一个VB打印的例子,报表生成的例子,数据取自Access数据库,使用Ado将数据从Access读出后绑定在DataGrid报表中,在利用打印组件输出到打印机,效果截图如上所示。
    • vb DataGrid 控件的使用

      2008-10-05 13:51:36
      DataGrid 控件是一种类似于电子数据表的绑定控件,可以显示一系列行和列来表示 Recordset 对象的记录和字段。可以使用 DataGrid 来创建一个允许最终用户阅读和写入到绝大多数数据库的应用程序。DataGrid 控件可以在...
    • 我使用ADO连接数据库,通过绑定datagrid控件来显示数据库中符合条件的内容。Option ExplicitPrivate Sub Command1_Click()Dim cn As New ADODB.Connection '数据库连接变量Dim Cmd As New ADODB.Command '命令集Dim ...

      我使用ADO连接数据库,通过绑定datagrid控件来显示数据库中符合条件的内容。

      Option Explicit

      Private Sub Command1_Click()

      Dim cn As New ADODB.Connection '数据库连接变量

      Dim Cmd As New ADODB.Command '命令集

      Dim rs As New ADODB.Recordset '记录集

      Dim strConnect As String '连接字符串

      Set cn = New ADODB.Connection

      strConnect = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=database;Data Source=servername" '指定连接字符串

      cn.ConnectionString = strConnect

      cn.Open '连接数据库

      With Cmd

      .ActiveConnection = cn

      .CommandType = adCmdStoredProc '有四种可选择的类型,在编程过程中使用SQL SERVER的存储过程是很好的方法

      .CommandText = "SP_Get_Name" '存储过程名称

      .Parameters.Refresh

      .Parameters("@dt").Value = date() '存储过程中参数的值(存储过程中只有一个参数)

      End With

      With rs

      .CursorLocation = adUseClient

      .CursorType = adOpenStatic

      .LockType = adLockReadOnly

      .Open Cmd

      End With

      Set DataGrid1.DataSource = rs '绑定数据库显示控件

      End Sub

      要在DataGrid控件中显示数据CursorLocation = adUseClient和Set DataGrid1.DataSource = rs两个语句不可缺少。

      展开全文
    • Datagrid 控件 及注册 MSDATGRD.OCX

      热门讨论 2010-10-11 16:00:42
      解压后,点bat对datagrid 控件 进行注册
    • datagrid控件中加入列表框会使字段中重复的值可以选择
    • 事实上我们知道,VB平台下面的表格控件是相当丰富的,总结下来提供了4种类型:Microsoft Data Bound grid Control、Microsoft Datagrid Control、Microsoft Flexgrid Control、Microsoft Hierarchial Flexgrid ...
    • 本资源在VS2015环境下通过自定义窗体库组合VB.NET已有控件实现DataGridView控件分页显示功能。
    • VB增强型DataGrid数据显示插件,可实现每一行的Grid都可以设置高亮显示、为每一个单元格添加自定义控件,比如复选框、单选框、改变单元格颜色等,这样设置后,使数据的显示更加规范化和人性化,易于阅读,这个控件也...
    • 摘要:VB源码,数据库应用,Datagrid,ADO  VB使用ADO控件DATAGRID数据网络显示数据的实例,如果你还不知道如何使用VB连接或读取数据库,你正好可以参考本程序,你还可以学习到DataGrid数据显示控件的使用。
    • 这是一个VB6.0调整datagrid的模块代码,网上找过很多,都没有VB6的,而且都是两大段的,我这个简单就简单实用了。
    • vb找不到Datagrid控件

      千次阅读 2010-07-28 20:16:00
         做一个关于分页显示记录的例子,用到了DataGrid控件,突然发现在部件里找不... <br /> 如果不是装的精简版vb,那么一般是有DataGrid控件的,但是找不到怎么办呢?可以找一台能够添加DataGrid控件

       

               做一个关于分页显示记录的例子,用到了DataGrid控件,突然发现在部件里找不到。由于当时是在宿舍,没有联网,没办法上网搜索解决方法,正好有同学也遇到相同问题,就问了一下是怎么解决的。大概知道了解决办法,就是找到datagridocx文件,注册一下。但是同学忘记了是哪个文件了,所以我是留到第二天才解决的。

               如果不是装的精简版vb,那么一般是有DataGrid控件的,但是找不到怎么办呢?可以找一台能够添加DataGrid控件的电脑,还是工程/部件,找到Microsoft  DataGrid  Control 6.0(SP6),选中,在对话框的最下方会显示“定位:C:/Windows/system32/MSDATGRD.OCX”,这句话就是最有用的啦,我们所要做的,就是注册一下。在自己的电脑上,进行如下步骤:

                                运行 windows+R)→   regsvr32.exe /s C:/Windows/system32/MSDATGRD.OCX  OK啦!

                有的时候,并不是所有的控件都是已经注册好的,有一些是自动注册,而有一些可能需要你手动注册了。

       

      展开全文
    • 摘要:VB源码,控件组件,鼠标滚轮,列表控件,DataGrid 运行环境:Windows/VB6

    空空如也

    空空如也

    1 2 3 4 5 ... 20
    收藏数 6,012
    精华内容 2,404
    关键字:

    vb控件datagrid查询