Question

VB连接Oracle数据库

连接SQL数据库代码为：cnnStr = "Provider=SQLOLEDB;Initial Catalog=JYDB;Data Source=172.28.0.24;User ID=jydb;Password=jydb，调试是成功的，如果我改成连接Oracle数据库，其他条件不变哪？谢谢
调用函数：
Private Sub FutureArbitrage_Load(ByVal e As System.EventArgs) Handles MyBase.Load
Exchange1.TabIndex = 0
OptionMinus.Checked = True
Dim cnn As New ADODB.Connection
Dim SQL As String
cnn.ConnectionString = Login.cnnStr
cnn.Open()

。。。
Exchange.Close()
End Sub
还是显示错误，请问是怎么回事情哪

Answer 1

你说的可能是数据库连接语句修改为连接Oracle数据库，连接数据表的语句吧？
如果是这样，由于SQL语言对于数据库是都一样的，可以不变，但是如果牵扯数据类型，可能需要进行适当修改。

追问

怎么改呀？是改Provider=SQLOLEDB这个吧，望不吝赐教

追答

连接Oracle数据库语句：
cnnStr = "Provider=MSDASQL.1;Password=ijdb;Persist Security Info=True;User ID=jydb;Data Source=计算机名"

追问

显示错误：[Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序

追答

cnnStr = "Provider=MSDASQL.1;Password=密码;Persist Security Info=True;User ID=用户名;Data Source=你的计算机名;database=你的数据库名"

追问

调用函数：
Private Sub FutureArbitrage_Load(ByVal e As System.EventArgs) Handles MyBase.Load
Exchange1.TabIndex = 0
OptionMinus.Checked = True
Dim cnn As New ADODB.Connection
Dim SQL As String
cnn.ConnectionString = Login.cnnStr
cnn.Open()

。。。
Exchange.Close()
End Sub
还是显示错误，请问是怎么回事情哪

追答

cnn.ConnectionString = Login.cnnStr
修改为：
cnn.ConnectionString = cnnStr