VB程序员博客

VB程序开发

我有个小程序,需要从单位的oracle数据库中读取数据,但是不知道该怎么写,请各位高手指点,最好有实例,或源程序。谢谢了http://www.connectionstrings.com/oracle顶起连库
Dim DLYHM, DLMM, DLSLM As String
Dim Grecordset As New ADODB.Recordset
Dim Gconnection_HQ As New ADODB.Connection
DLYHM = "USER ID=" + 用户名
DLMM = "password=" + 登录密码
DLSLM = "Data Source=" + DBCS中的实例名
LSsjk = DLYHM + ";" + DLMM + ";" + DLSLM
LSsjk = "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;" + LSsjk
    Set Gconnection_HQ = New ADODB.Connection
    Gconnection_HQ.Open LSsjk

读数据
Set Grecordset = New ADODB.Recordset
Grecordset.Open "select * from 表名 where 字段名='" & 字段值 & "'", Gconnection_HQ, adOpenStatic, adLockOptimistic    ‘索引条件
变量 = Trim(Grecordset.Fields("读取字段名"))
Grecordset.Close
能不能把源程序发给我啊,我的邮箱,如果成功马上给你结分,麻烦了,偶先谢谢了!ustbzhy@163.com,谢谢自己根据代码改一下就可以了,不要什么都要源代码,咱们之间用的各种信息都不一样,给你也得自己改需要安装oracel客户端oracle客户端装上了,但是应该如何配置呢<
用ADO生成个链接字符串不行???随便建个工程拖个ADODC控件上去,点ADODC属性,点生成字符串,下一步,下一步。。测试连接成功后,这么下去,把那个字符串考过来不就是你要的连接字符串来么?<
配置好了测试一下即可
也可安装 Toad 等工具,操作Oracle更简单一点。

标签: , , ,


专题:

栏目: