用VB连 Oracle 方法有: ODBC、ADO、OO4O.如下是你要想的ODBC配置:
配置 ODBC
0.先安装好 ODBC.
0.1 在 Oracle9i 的客户端就有.
1. 配置 ODBC.
控制面板 -> 管理工具 -> 数据源(ODBC)
打开之后: 选 "系统 DSN" -> "添加..." -> 选 "Oracle ODBC Driver"
Data Source Name: (填上名称,调用时要用到)
Description: (描述...)
-- Data Source --------------
Service Name: (服务名)
UserID: (用户名)
Data Source Name 和 Service Name 是要填写的.
UserID 可以在调用的时候再填上.
对于其它的设置,没什么特别的话,建议使用默认值. :)
配置 ODBC
0.先安装好 ODBC.
0.1 在 Oracle9i 的客户端就有.
1. 配置 ODBC.
控制面板 -> 管理工具 -> 数据源(ODBC)
打开之后: 选 "系统 DSN" -> "添加..." -> 选 "Oracle ODBC Driver"
Data Source Name: (填上名称,调用时要用到)
Description: (描述...)
-- Data Source --------------
Service Name: (服务名)
UserID: (用户名)
Data Source Name 和 Service Name 是要填写的.
UserID 可以在调用的时候再填上.
对于其它的设置,没什么特别的话,建议使用默认值. :)
--模块Public Conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public cmd As New ADODB.CommandPublic Function DBPath() As String
'DBPath = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\inventory_MS.mdb"
DBPath = "Provider=MSDAORA.1;Password=romasys;User ID=apps;Data Source=demo;Persist Security Info=True"
End Function
--界面:
Private Sub Form_Load()
On Error GoTo Err
Dim ConnStr As String '字符串
ConnStr = DBPath
With Conn
.ConnectionString = ConnStr
.ConnectionTimeout = 10
.CursorLocation = adUseClient
.Open
End With
Set cmd.ActiveConnection = Conn
cmd.CommandText = "select * from t_User"
rs.CursorLocation = adUseClient
rs.Open cmd, , adOpenStatic, adLockBatchOptimistic
rs.MoveFirst
Exit Sub
Err:
MsgBox ("连接数据库失败!")
End
End Sub
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString = "DSN=DSN名;UID=用户;PWD=密码"
conn.Open
strsql = "select * from T_user"
rs.Open strsql, conn, adOpenStatic, adLockReadOnly
Do While rs.EOF = False
If rs.Fields(1).Value = "dinya" Then
Me.Text1.Text = rs.Fields(0).Value & rs.Fields(1).Value
End If
rs.MoveNext
Loop
End Sub