vb6.0中使用adodc控件连接数据库，请问要如何在vb中向数据库提交信息

向数据库添加数据或修改数据，必须具备有数据采集控件，例如文本框，下拉选择框等等，你仅仅有adodc和datagrid控件如何采集数据？

Private Sub Command1_Click()

Adodc1RecordsetAddNew

Adodc1RecordsetFields(1) = Text1text

Adodc1RecordsetUpdate

End Sub

上面的示意代码是添加一条记录，一般字段0是ID字段，自动编号的。

VB60真正的ADO用得好的是ADO控件。介绍ADO类和ADO控件两种办法：

一   ADO类，在工程找到引用，在引用里找到Data Object 25以上版本，Command事件中写：

Dim cnn As ADODBConnection

Dim rs As ADODBRecodeSet

Set cnn As New ADODBConnection

Set rs As New ADODBRecordSet

cnnConnectionString="Provider=MicrosoftACEOLEDB120;Data Source="+ACCESS相对完整路径名    '//你那明明就是ACCESS2007的怎么会以mdb做后缀，这是2007以上版本字符串

cnnOpen

cnnExcute "Update SSSSSS Set 八爪鱼='XXX' where 用户名='八爪鱼'"

但是这种方法移植性差，ADO类文件要跟着安装包走

二 ADO控件，在工程里找到部件，部件里加ADO Data Control 60，随便拖一个到窗体，Visible隐藏起来，按钮事件中加代码，

Adodc1ConnectionString=="Provider=MicrosoftACEOLEDB120;Data Source="+ACCESS相对完整路径名

Adodc1RecordSource="Select  from SSSSSS where 用户名='八爪鱼'"

Adodc1Refresh    

While Not Adodc1RecordSetEOF

   Adodc1RecordSetFields("用户名")="八爪鱼"

   Adodc1Update

Loop

“修改”按钮的程序

Private Sub cmdEdit_Click()

sql = "select from 停时统计 where date = cdate('" & Text8Text & "') and ycqk = '" & Combo1Text & "'and id = '" & DataGrid1Columns(2)CellText(DataGrid1Bookmark) & "'"

rsOpen sql, dm, adOpenDynamic, adLockOptimistic

rsFields("id") = Text7Text

rsFields("ycqk") = Combo1Text

rsFields("date1") = Text1Text

rsFields("time1") = Text2Text

rsFields("date2") = Text3Text

rsFields("time2") = Text4Text

rsUpdate

rsClose

End Sub

'“删除”按钮的程序

Private Sub cmdDelete_Click()

strFCode = DataGrid1Columns(0)CellText(DataGrid1Bookmark)

strSCode = DataGrid1Columns(2)CellText(DataGrid1Bookmark)

strCCode = DataGrid1Columns(1)CellText(DataGrid1Bookmark)

sql = "select from 停时统计 where date='" & strFCode & "' and id='" & strSCode & "' and ycqk='" & strCCode & "'"

rsOpen sql, dm, adOpenDynamic, adLockOptimistic

rsDelete

rsUpdate

rsClose

End Sub

'“增加”按钮的程序

Private Sub Command1_Click()

sql = "select from 停时统计 order by id"

rsOpen sql, dm, adOpenDynamic, adLockOptimistic

rsAddNew

rsFields("date") = Date

rsFields("id") = Text7Text - 1

rsFields("ycqk") = Combo1Text

rsFields("date1") = Text1Text

rsFields("time1") = Text2Text

rsFields("date2") = Text3Text

rsFields("time2") = Text4Text

rsUpdate

rsClose

With Adodc1

Adodc1ConnectionString = "Provider=MicrosoftJetOLEDB40;Data Source=" & AppPath & "\db1mdb;Persist Security Info=False"

Adodc1RecordSource = "select from 停时统计 where date = cdate('" & Text8Text & "') and ycqk = '" & Combo1Text & "' order by id"

Adodc1Refresh

DataGrid1Refresh

End With

End Sub

1首先在控件箱中添加“ADODC”和“DBGRID”2个控件方法：右键点击控件箱，在d出的菜单中左键单击“部件”，在部件选项卡中选择“Microsoft

ADO

Date

Control

60(OLEDB)”和“Microsoft

DataGrid

Control

60(OLEDB)”复选框，然后“确定”。这样ADODC

和DATAGRID

控件就添加在控件箱中了。

2然后在窗体上放置放置一个adodc控件，单击控件，在属性窗口点击“connectionstring”属性右侧的带…的按钮，选择“使用字符串（C）”选项，点击“生成”按钮，在d出的“数据库链接属性”的“提供程序”选项卡中选择“Microsoft

Jet

40

OLE

DB

Provider”，点击“下一步”，在“链接”选项卡中选择你的数据库，单击“测试链接”按钮，成功后单击“确定”按钮，则创建ADO

Data控件的链接就成功了。在ADODC属性窗口点击“recordsource”右侧带…的按钮，选择“命令类型”为“2-adcmdtable”，设置一个表或存储过程名位记录源。在“表或存储过程名称”的下拉列表中选择你要显示的表，单击确定按钮。ADODC控件的属性设置完成。

3在窗体上放置一个datagrid控件，单击控件，在属性窗口点击datasource，在右侧下拉菜单中选择adodc1，如果你的窗体上有多个数据源，这里下拉菜单中就会有多个选择。

4右键单击datagrid控件，然后选择“检索字段（retrieve

fields）命令，就会用数据源的记录集自动填充该控件。单击“属性”。使用“属性页”选项卡设置该控件的适当属性。

5F5，这里就可以查看和修改了。

还有另外一种办法

在vb菜单栏点击“外接程序”，选择“可视化数据管理器”，在d出的“可视化数据管理器”窗口visadata中选择“文件”“打开数据库”选择“microsoft

access”命令打开你的数据库。你的数据库的大部分信息就会在新d出的“数据库窗口”中显示了。窗口中有什么功能，自己去摸索吧，我还没完全搞清楚，只能给你讲这么多了。

打字真累啊！！

以上就是关于vb6.0中使用adodc控件连接数据库，请问要如何在vb中向数据库提交信息全部的内容，包括:vb6.0中使用adodc控件连接数据库，请问要如何在vb中向数据库提交信息、VB6.0 用ADO修改Access数据库中指定某行某列的单元内数据、VB实现ACCESS数据库记录的查询，新增，删除，修改等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！