Private Sub Form_Load()
Dim ConnX As New ADODB.Connection
Dim sql As StringConnX.ConnectionString = "Provider=MSDAORA.1;Password=***;User ID=***;Data Source=100.100.100.100;Persist Security Info=True"
On Error GoTo ConnErr
'连接数据库
ConnX.Open
MsgBox "连接数据库成功!服务已启动...", vbInformation, "连接"
'ConnX.Execute sql
'MsgBox 2222
End
Exit Sub
ConnErr:
MsgBox "连接数据库错误!", vbInformation, "连接"
End
End Sub================================
请教各位大虾,如何在vb上连接oracle数据库呢?这样语句写可以吗?VBOracle
Dim ConnX As New ADODB.Connection
Dim sql As StringConnX.ConnectionString = "Provider=MSDAORA.1;Password=***;User ID=***;Data Source=100.100.100.100;Persist Security Info=True"
On Error GoTo ConnErr
'连接数据库
ConnX.Open
MsgBox "连接数据库成功!服务已启动...", vbInformation, "连接"
'ConnX.Execute sql
'MsgBox 2222
End
Exit Sub
ConnErr:
MsgBox "连接数据库错误!", vbInformation, "连接"
End
End Sub================================
请教各位大虾,如何在vb上连接oracle数据库呢?这样语句写可以吗?VBOracle
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货