扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
VB6.0可通过Adodc数据访问控件的属性页进行连接Oracle数据库。
站在用户的角度思考问题,与客户深入沟通,找到甘谷网站设计与甘谷网站推广的解决方案,凭借多年的经验,让设计与互联网技术结合,创造个性化、用户体验好的作品,建站类型包括:成都做网站、成都网站制作、企业官网、英文网站、手机端网站、网站推广、域名与空间、虚拟主机、企业邮箱。业务覆盖甘谷地区。
1)建立数据工程,在窗体添加Adodc数据访问控件。鼠标选中Adodc控件-右键-Adodc属性-使用连接字符串-生成。
2)选Microsoft OLE DB Provider For Oracle,下一步。
3)根据数据链接属性对话框填写所需内容,测试连接。点确定,最终在Adodc属性页获得连接字符串,复制该字符串,即可作为Adodc数据访问控件直接使用,或在代码中用于Adodc控件或ADO数据访问对象。
--先连接数据库,再打开记录集,搞定。
Dim conn_ora As New ADODB.Connection '用于连接ORACLE数据源的连接
conn_ora.ConnectionString = "Provider=MSDAORA.1;Password=111;User ID=system ;Data Source=orcl;Persist Security Info=True"
conn_ora.Open
Dim myrs_ora As New ADODB.Recordset '用于连接ORACLE数据库的记录集
myrs_ora.ActiveConnection = conn_ora.ConnectionString
myrs_ora.Open ("Select * From AAA")
另外,站长团上有产品团购,便宜有保证
Dim OraSession As Object '会话对象
Dim OraDatabase As Object '数据库对象
Dim OraDynaset As Object'动态集对象
Dim OraDatabase As Object’字段集对象
Set OraSession =CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase=OraSession.CreateDatabase
("Demo","scott/tiger",0)'建立数据库连接
Set OraDynaset=OraDatabase.CreateDynaset("select*from
student",0)'初始化动态集对象
’添加记录
'Begin an AddNew
OraDynaset.DbAddNew
OraDynaset.Fields("ID").value="1000"
’ID为列名
OraDynaset.DbUpdate'更新数据到表
’删除
OraDynaset.DbDelete
'修改
OraDynaset.DbEdit
OraDynaset.Fields("ID").value="101210"
OraDynaset.DbUpdate
sql服务器上需要有装oracle的client端(或者类似驱动)
2. 在sqlserver的企业管理器里建一个链接服务器(DBlink)具体方法可以查一下帮助
3.
insert into sqlserver_table
select * from openquery(你建的dblink名称,'oracle的select语句')
openquery的语法可以查帮助出来
注意select语法是跟oracle的,要用引号括起来当字符串,ms要大写
很久之前做过的,希望能帮上,试试看吧:)
另外,虚机团上产品团购,超级便宜
匿名 �0�2span class="tm"7-21 02:14/span
/p
div class="b bt2"div class="bt bg1 ft"img alt="其他答案" height="16" src="/static/img/ico2.gif" width="16"/其他答案/div/div
p class="ft p1"1. sql服务器上需要有装oracle的client端(或者类似驱动)
2. 在sqlserver的企业管理器里建一个链接服务器(DBlink)具体方法可以查一下帮助
3.
insert into sqlserver_table
select * from openquery(你建的dblink名称,'oracle的select语句')
openquery的语法可以查帮助出来
注意select语法是跟oracle的,要用引号括起来当字符串,ms要大写
很久之前做过的,希望能帮上,试试看吧:)
你确定 select * from DBA01 这个语句查询出来的包含"CC"这个字段吗?
'Ctrl+t找Microsoft DataGrid Control....
'菜单"工程"-"引用" 找 Microsoft ActiveX Data Object....
Dim cn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim SqlStr As String
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=MyOracleDB;User Id=myUsername;Password=myPassword;Integrated Security=no;"
SqlStr = "Select * From 某个表"
rst.CursorLocation = adUseClient
rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集
Set DataGrid1.DataSource = rst '给DataGrid修改数据源
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流