跪求!DataGird和ADO如何绑定?谢谢了!
DataGird和ADO如何绑定?最好告诉我下步骤以及代码,谢谢了! --------------------编程问答-------------------- 设计时只需要将DataGrid控件的DataSource属性设为相应的ADO控件即可。运行时 Set DataGrid.DataSource = Adodc1. --------------------编程问答-------------------- MSDN帮助 应该足够详细了吧 给分 呵呵
使用 DataGrid 控件
DataGrid 控件是一种类似于电子数据表的绑定控件,可以显示一系列行和列来表示 Recordset 对象的记录和字段。可以使用 DataGrid 来创建一个允许最终用户阅读和写入到绝大多数数据库的应用程序。DataGrid 控件可以在设计时快速进行配置,只需少量代码或无需代码。当在设计时设置了 DataGrid 控件的 DataSource 属性后,就会用数据源的记录集来自动填充该控件,以及自动设置该控件的列标头。然后您就可以编辑该网格的列;删除、重新安排、添加列标头、或者调整任意一列的宽度。
在运行时,可以在程序中切换 DataSource 来察看不同的表,或者可以修改当前数据库的查询,以返回一个不同的记录集合。
注意 DataGrid 控件与 Visual Basic 5.0中的 DBGrid 是代码兼容的,除了一个例外:DataGrid 控件不支持 DBGrid 的“解除绑定模式”概念。DBGrid 控件包括在 Visual Basic 98 的 Tools 目录中。
可能的用法
查看和编辑在远程或本地数据库中的数据。
与另一个数据绑定的控件(诸如 DataList 控件)联合使用,使用 DataGrid 控件来显示一个表的记录,这个表通过一个公共字段链接到由第二个数据绑定控件所显示的表。
使用 DataGrid 控件的设计时特性
可以不编写任何代码,只通过使用 DataGrid 控件的设计时特性来创建一个数据库应用程序。下面的说明概要地说明了在实现 DataGrid 控件的典型应用时的一般步骤。完整的循序渐进的指示,请参阅主题“DataGrid 方案1: 使用 DataGrid 控件创建一个简单数据库应用程序”。
要在设计时实现一个 DataGrid 控件
为您希望访问的数据库创建一个 Microsoft 数据链接 (.UDL) 文件。请参阅“创建 Northwind OLE DB 数据链接”主题,以获得一个示例。
在窗体上放置一个 ADO Data 控件,并将其 ConnectionString 属性设置为在第 1 步中所创建的OLE DB 数据源。
在这个 Ado Data 控件的 RecordSource 属性中输入一条将返回一个记录集的 SQL 语句。例如,
Select * From MyTableName Where CustID = 12
在窗体上放置一个 DataGrid 控件,并将其 DataSource 属性设置为这个 ADO Data 控件。
右键单击该 DataGrid 控件,然后单击“检索字段”。
右键单击该 DataGrid 控件,然后单击“编辑”。
重新设置该网格的大小、删除、或添加网格的列。
右键单击该 DataGrid 控件,然后单击“属性”。
使用“属性页”对话框来设置该控件的适当的属性,将该网格配置为所需的外观和行为。
在运行时更改显示的数据
在创建了一个使用设计时特性的网格后,也可以在运行时动态地更改该网格的数据源。下面介绍实现这一功能的通常方法。
更改 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 控件的 Texr 属性。
下一步
要阅读关于使用该控件创建简单的应用程序的一个循序渐进的过程,请参阅“使用 DataGrid 控件创建简单的数据库应用程序”,或“创建一个连接 DataList 控件的 DataGrid”。
要了解关于 Split 对象以及如何对其编程的详细信息,请参阅“操作 DataGrid 视图”。
--------------------编程问答-------------------- 果然详细,顶你 --------------------编程问答-------------------- Dim myval As String '定义字符串变量
Private Sub Form_Load()
'查询所有客房预定信息
Adodc1.RecordSource = "select * from 客房预定表 order by 编号"
Adodc1.Refresh
'添加证件列表
Combo1.AddItem ("身份证")
Combo1.AddItem ("工作证")
Combo1.AddItem ("学生证")
Combo1.AddItem ("军官证")
Combo1.AddItem ("警官证")
Combo1.ListIndex = 0
'添加房间类型列表
Combo2.AddItem ("普房")
Combo2.AddItem ("标房")
Combo2.AddItem ("双人房")
Combo2.ListIndex = 0
End Sub
Private Sub Txtdz_Change()
End Sub
Private Sub Txtjg_Change()
Txtje.Text = Val(Txtts.Text) * Val(Txtjg.Text) '计算预付金额
End Sub
Private Sub Txtts_Change()
Txtjg_Change
End Sub
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
With Adodc1.Recordset
If .RecordCount > 0 Then
'给文本框赋值
If .Fields("编号") <> "" Then Txtbh.Text = .Fields("编号")
If .Fields("姓名") <> "" Then Txtxm.Text = .Fields("姓名")
If .Fields("证件名称") <> "" Then Combo1.Text = .Fields("证件名称")
If .Fields("证件号") <> "" Then Txtzjh.Text = .Fields("证件号")
If .Fields("联系电话") <> "" Then Txtdh.Text = .Fields("联系电话")
If .Fields("详细地址") <> "" Then Txtdz.Text = .Fields("详细地址")
If .Fields("工作单位") <> "" Then Txtdw.Text = .Fields("工作单位")
If .Fields("客房类型") <> "" Then Combo2.Text = .Fields("客房类型")
If .Fields("房间价格") <> "" Then Txtjg.Text = .Fields("房间价格")
If .Fields("预住日期") <> "" Then DTP1.Value = .Fields("预住日期")
If .Fields("预住天数") <> "" Then Txtts.Text = .Fields("预住天数")
If .Fields("预付金额") <> "" Then Txtje.Text = .Fields("预付金额")
End If
End With
End Sub
Private Sub CmdModity_Click() '允许修改数据
Txtxm.Enabled = True
Combo1.Enabled = True
Txtzjh.Enabled = True
Txtdh.Enabled = True
Txtdz.Enabled = True
Txtdw.Enabled = True
Combo2.Enabled = True
Txtjg.Enabled = True
DTP1.Enabled = True
Txtts.Enabled = True
Txtje.Enabled = True
Txtbh.Enabled = True
End Sub
Private Sub CmdSave_Click() '保存修改后的数据
Adodc2.RecordSource = "select * from 客房预定表 where 编号='" + Txtbh.Text + "'order by 编号"
Adodc2.Refresh
If Adodc2.Recordset.RecordCount > 0 Then
myval = MsgBox("是否修改该信息?", vbYesNo)
If myval = vbYes Then
'赋值给数据库字段
If Txtxm.Text <> "" Then Adodc1.Recordset.Fields("姓名") = Txtxm.Text
If Combo1.Text <> "" Then Adodc1.Recordset.Fields("证件名称") = Combo1.Text
If Txtzjh.Text <> "" Then Adodc1.Recordset.Fields("证件号") = Txtzjh.Text
If Txtdh.Text <> "" Then Adodc1.Recordset.Fields("联系电话") = Txtdh.Text
If Txtdz.Text <> "" Then Adodc1.Recordset.Fields("详细地址") = Txtdz.Text
If Txtdw.Text <> "" Then Adodc1.Recordset.Fields("工作单位") = Txtdw.Text
If Combo2.Text <> "" Then Adodc1.Recordset.Fields("客房类型") = Combo2.Text
If Txtjg.Text <> "" Then Adodc1.Recordset.Fields("房间价格") = Val(Txtjg.Text)
If DTP1.Value <> "" Then Adodc1.Recordset.Fields("预住日期") = DTP1.Value
If Txtts.Text <> "" Then Adodc1.Recordset.Fields("预住天数") = Val(Txtts.Text)
If Txtje.Text <> "" Then Adodc1.Recordset.Fields("预付金额") = Val(Txtje.Text)
If Txtbh.Text <> "" Then Adodc1.Recordset.Fields("编号") = Txtbh.Text
Adodc1.Recordset.Update '更新记录
Adodc2.Refresh
'设置控件无效
Txtxm.Enabled = False
Combo1.Enabled = False
Txtzjh.Enabled = False
Txtdh.Enabled = False
Txtdz.Enabled = False
Txtdw.Enabled = False
Combo2.Enabled = False
Txtjg.Enabled = False
DTP1.Enabled = False
Txtts.Enabled = False
Txtje.Enabled = False
Txtbh.Enabled = False
End If
Else
MsgBox "没有要修改的信息!"
End If
End Sub
Private Sub CmdEnd_Click()
End
End Sub
一个用DATAGRID使用的例子..
ADODC1.ADODC2 DATARID1 2个combobox 9个TEXTBOX 3个COMMANDBUTTON
补充:VB , 数据库(包含打印,安装,报表)