1.注意datagrid名称和adodc名称的修改
 2.此程序为vb实时读取Access数据库的内容。

 
时　间:2018-02-28 09:34:59
 
作　者:摘　要:VB读取ORACLE数据库的两种方法
 
正　文:
 
ConnStr = "DRIVER={Microsoft ODBC driver for oracle};SERVER=" & strDBName & ";UID=" & strUserID & ";PWD=" & strPassword & ";"
 
ConnDB.CursorLocation = adUseServer
 
ConnDB.Open ConnStr
 
一直使用上面这种方法，最近一台电脑总是提示错误，找了很多天也不知道什么原因，总是提示“未发现数据源名称，并且未指定默认驱动程序”，实在没办法了，换如下链接方式，成功解决。
 
Set oraDB = New ADODB.Connection
 
OraConstr = "Provider=OraOLEDB.Oracle.1;Password=" & strPassword & ";User ID=" & strUserID & ";Data Source=" & strDBName & ";Persist Security Info=False"
 
OraDB.CursorLocation = adUseServer
 
ConnDB.Open oraConstr
 
Access软件网官方交流QQ群(群号:39785885)
 
Access源码网店

 
回答者：
 
 菜鸟工控 - 助理工程师&nbsp&nbsp第8级 
 
2017-08-16 22:51:26
 
来自手机Wap客户端
 
西门子网站和论坛上的资料都挺多的，你找一下，可以看看RENHQ的帖子，我觉得还是很不错的。
 
回答者：
 
 太阳神2009 - 中级工程师&nbsp&nbsp第10级 
 
2017-08-16 23:38:38
 
如果不会的话，可以加QQ群：6141014，讨论学习
 
补充：
 
再看看这个手册：
 
WinCC 基础选项 V7.4 SP1：WebNavigator, DataMonitor, WebUX, Connectivity Pack
 
https://support.industry.siemens.com/cs/cn/zh/view/109746337
 
里面连接性软件包里面有介绍如何连接数据库，不过oracle的连接字不一样网上搜一下，改了，然后服务器地址设置一下，应该也是没问题的
 
实际经验没有，不过或许可以一起试试~
 
本回答有3位钻石用户推荐
 
回答者：
 
 RENHQ - 超级顾问&nbsp&nbsp第15级 
 
2017-08-18 23:41:19
 
补充：那就在服务器上写脚本呀！通过两个网口和两边通讯，你只要设置地址对了就行了，其他的参考我给你的脚本。
 
回答者：
 
 zhangli0 - 超级顾问&nbsp&nbsp第15级 
 
2017-08-22 21:15:38
 
上一页
 
1
 
下一页

 
满意答案
 

 
oojzs
 
2013.11.16
 

 
采纳率：58%    等级：12
 
已帮助：13908人
 
Dim pubConn As New ADODB.Connection
 
Dim strconn As String
 
With pubConn
 
If .state = adStateClosed Then
 
strconn = "Provider=SQLOLEDB;User ID=sa; password=sa;Data Source=192.168.0.120\SqlServer;Initial Catalog=fact"
 
.CursorLocation = adUseClient '设置游标
 
.Open strconn
 
End If
 
End With
 
strSql = "select * from workshop"
 
Set Cmd = New ADODB.Command
 
With Cmd
 
.ActiveConnection = pubConn
 
.CommandText = strSql
 
.CommandType = adCmdText
 
Set rsTable = .Execute
 
End With
 
While rsTable.EOF = False
 
Set work = New Workshop
 
work.workId = rsTable!work_id
 
work.workName = rsTable!work_name
 
work.workHead = rsTable!work_head
 
work.workProhead = rsTable!work_prohead
 
work.workNumber = rsTable!work_number
 
'向集合works中添加workshop对象
 
works.Add work.workId, work.workName
 
rsTable.MoveNext
 
Wend
 
00分享举报