VB6.0中如何添加ADODB控件?

在网上看到ADODB控件,能将数据库与Excel联系起来,一直以来做有关数据库的都是用的ADODC,现在请高手指教!!!!

首先引用组件 Microsoft ActiveX Data Objects 2.x Library
然后可以用ADO编写数据库操作.(ADODB 是组件,不是控件)

ADO读取Excel文件(以下VBScript代码,与VB可能有差异)
Dim Conn
Set Conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & sSourceXLS & ";" & _
"Extended Properties=""Excel 8.0;HDR=No;IMEX=1;"""
rs.Open "Select * from [Sheet1$]", Conn, 1, 3
c=rs.recordcount
rs.move 1
msgbox (rs(0))'读取单无格A1的内容
rs.close
conn.close
温馨提示:内容为网友见解,仅供参考
无其他回答

VB6.0的部件中没有ADO控件,有会的么?告诉我怎么回事
下面的示例代码以Northwinds数据库作为远程数据源,然后用ADO来访问它。首先在控制面板中打开“32位数据源”,单击“添加”按钮。在弹出的对话框中选择 "Microsoft ACCESS Driver (*.mdb)" 作为数据源驱动程序。选择数据库Northwinds所在路径。单击完成,退出ODBC设备管理器。启动一个新的VB工程,在窗体的...

vb中如何调用Access数据表中的某一个记?
1. 首先,确保在项目中添加ADO控件。在“工程”菜单下的“部件…”选项中,选择并添加Microsoft ActiveX Data Objects 2.5 到工具箱。2. 将ADO控件拖至窗体,然后在代码编辑器中编写代码,通过ADO对象连接Access数据库。例如: `Dim con As ADODB.Connection`,`con.Open "Provider=Microsoft.Jet.OLED...

vb中使用adodb组件需要引用什么?
VB6.0中使用adodb组件需要引用ActiveX Data Objects(ADO)。新建数据工程VB自动引用了ActiveX Data Objects 2.0 Library 如果是新建EXE工程,需要在工程-引用:在ActiveX Data Objects 2.0 Library项前选勾。ADO 是为 Microsoft最新和最强大的数据访问范例 OLE DB 而设计的,是一个便于使用的应用程序层...

VB6.0 如何使用ADO控件进行多表级联更新(最佳答案者追加20分)_百度知 ...
conn.Close 完成 其中Connstring设置为你ADODB控件的连接字符串即可,1000数据可以在几秒内完成修改,具体时间看你数据服务器配置状态 楼上的删除再插入方法,处理速度先不讨论,但是会破坏表二里面的原有数据条目,如果表二里有表一中没有的数据,那么不建议使用楼上的方法 如表二里有10条记录.表一里只有5...

VB6.0用代码往access中增加字段,总报错,求专家
添加字段的语句为:ALTER TABLE 数据表名 ADD 字段名 字段类型 而 是\/否 的字段类型,应该用 YesNo来表示,使用ADO对象,只需要三行命令:Dim cnn As New ADODB.Connection cnn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & Stpath & ";Jet OLEDB:Database Password=" & DBpassword...

VB6.0 怎么连接access已经建立好的表格?请在每条语句后面加上注解,小弟...
Private Conn As New ADODB.Connection Private Recordset As New ADODB.Recordset Private Sub Form_Load()'打开数据库 Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\\实验平台\\数据库\\留言板.mdb"End Sub '增加记录 Private Sub Command1_Click()Dim sql As String Set Recordset ...

VB6.0连接ACCESS 数据库用like进行模糊查询时,查询不了?
在Visual Basic 6.0 (VB6) 中连接Access数据库并执行模糊查询,可以使用ADO (ActiveX Data Objects) 组件。以下是一个简单的示例代码片段,演示如何创建一个ADO连接,构造一个包含LIKE语句的SQL查询,并执行该查询。' 引入ADODB库 Dim conn As ADODB.Connection Dim rst As ADODB.Recordset Dim sql As...

VB6.0连接SQL数据库,并读取某表格的数据出来???
'使用ADODB对象,必须先进行对象模型的引用,步骤如下 '通过菜单[工程] -- [引用],勾选 Microsoft ActiveX Data Object 2.6 Library 'Microsoft ActiveX Data Object 2.7 Library 'Microsoft ActiveX Data Object 2.8 Library '都可以 代码以及注释如下:Dim Conn As ADODB.Connection '声明连接...

如何在VB6.0里使用MSFlexGrid将Access中的数据导进来
向工程添加部件:microsoft hierarchical flexgrid control 然后用下面的代码同样能达到要求:Set Conn = CreateObject("ADODB.Connection")Set Reco = CreateObject("ADODB.Recordset")Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\\db1.mdb"Reco.CursorLocation = ...

vb6.0如何用代码实现往access中添加字段的数据?请高手解答,代码要详 ...
Private Sub cmdOK_Click()'定义一个结果集 Dim rs As New ADODB.Recordset '如果结果集的状态为打开,那么就关闭 If (rs.State = adStateOpen) Then rs.Close End If '打开结果集 'aa是你要插入数据的表,cn是你建立与ACCESS数据库建立的连接 rs.Open "select * from tbl_aa ", cn, ...

相似回答