vb连接服务器端oracle 数据库求救!

ruralclimber 2005-03-20 06:42:00
在一台服务器的linux 平台下装上oracle 9.2.0.1,并用dbca创建了一数据库。在客户机上安装了oracle 客户端软件。现在要在此客户机上用vb开发基于该数据库的应用程序(比如对数据库的查询,插入等),请问现在如何使vb连上服务器机上的oracle 数据库呀? 用什么控件? 是ADO最好吗?该怎样填加代码?

谢谢!
...全文
67 1 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
flyingcode 2005-03-20
  • 打赏
  • 举报
回复
//////////////////试试看咯//////////////////////

Option Explicit

Public strConn As String
Public oracleConn As New ADODB.Connection

Public Function OpenOracleDB() As Boolean
On Error GoTo proc_error
oracleConn.Open strConn
If oracleConn.State = 1 Then
OpenOracleDB = True
Else
OpenOracleDB = False
End If
proc_exit:
Exit Function
proc_error:

GoTo proc_exit
MsgBox "OpenOracleDB()" & Err.Description
End Function


Public Function CloseOracleDB() As Boolean
On Error GoTo proc_error
If oracleConn.State = 0 Then CloseOracleDB = True
oracleConn.Close
If oracleConn.State = 0 Then
CloseOracleDB = True
Else
CloseOracleDB = False
End If
proc_exit:
Exit Function
proc_error:

GoTo proc_exit
MsgBox "CloseOracleDB()" & Err.Description
End Function

Private Sub Class_Initialize()
strConn = "Provider=MSDAORA.1;User ID=hr;PassWord=111;Data Source=hgf;Persist Security Info=False;"
End Sub

Private Sub Class_Terminate()
CloseOracleDB
End Sub
////////////////
Option Explicit

Private Sub Command1_Click()
Dim db As COracleDB
Set db = New COracleDB
db.OpenOracleDB
Dim rs As New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "select * from jobs", db.oracleConn, adOpenKeyset, adLockReadOnly
Dim i As Integer
i = 1
Me.MSFlexGrid1.Rows = Me.MSFlexGrid1.Rows + rs.RecordCount - 1
Do Until rs.EOF
Me.MSFlexGrid1.TextMatrix(i, 1) = rs.Fields("job_id") & ""
Me.MSFlexGrid1.TextMatrix(i, 2) = rs.Fields("job_title") & ""
Me.MSFlexGrid1.TextMatrix(i, 3) = rs.Fields("min_salary") & ""
Me.MSFlexGrid1.TextMatrix(i, 4) = rs.Fields("max_salary") & ""
rs.MoveNext
i = i + 1
Loop
End Sub

17,140

社区成员

发帖
与我相关
我的任务
社区描述
Oracle开发相关技术讨论
社区管理员
  • 开发
  • Lucifer三思而后行
  • 卖水果的net
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧