在VB6.0中如何连接Oracle数据库表？如何取得表中数据？

--先连接数据库，再打开记录集，搞定。\x0d\x0aDim conn_ora As New ADODB.Connection '用于连接ORACLE数据源的连接\x0d\x0aconn_ora.ConnectionString = "Provider=MSDAORA.1Password=111User ID=system Data Source=orclPersist Security Info=True"\x0d\x0aconn_ora.Open\x0d\x0aDim myrs_ora As New ADODB.Recordset'用于连接ORACLE数据库的记录集\x0d\x0a myrs_ora.ActiveConnection = conn_ora.ConnectionString\x0d\x0a myrs_ora.Open ("Select * From AAA")

你可以执行如下语句 Set rs1=db.OpenRecordset(select count(*) from dm)

la1=rs1.Fields(0)

里面可能存在某些语法错误，你可以按照VB语法稍作修改即可

'使用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 '声明连接数据库对象 -- 用来连接数据库文件，并对数据库以及数据表的 *** 作

Dim Rst As ADODB.Recordset '声明数据记录集对象 -- 用来返回数据记录集，并对记录的 *** 作

Set Conn = New ADODB.Connection '数据库对象的实例化

Set Rst = New ADODB.Recordset'记录集对象的实例化

'二，连接数据库文件

'执行 ADODB.Connection对象的Open方法，完成数据库的连接

Conn.CursorLocation = adUseClient

'连接SQL的字符串格式如下

'"Provider=SQLOLEDB.1Password=登录SQL的密码Persist Security Info=TrueUser ID=SQL数据库实例名Initial Catalog=数据库名Data Source=SQL服务器计算机名称"

'你给出的参数，少了最后一个“SQL服务器计算机名称”，下面我用了6个问号，你根据你的具体情况修改

Conn.Open "Provider=SQLOLEDB.1Password=123Persist Security Info=TrueUser ID=SaInitial Catalog=2013dataData Source=??????"

'三，返回记录集

'执行 ADODB.Recordset对象的Open方法，获得记录集

Rst.Open "Select num1,num2 From icitem

", Conn, adOpenKeyset, adLockPessimistic

'将返回的记录集显示到DataGrid1

Set DataGrid1.DataSource = Rst

Set Rst = Nothing '释放记录集对象

Set Conn = Nothing'释放数据库对象

---