你首先要在VB菜单中: “工程”-->“引用”-->“Microsoft AxtiveX Data Objects 2.X Library” 注:2.X为版本号,如果你机子上有高版本的就用高版本的,如:2.5或2.6的。 "工程"-->“部件”-->“MicroSoft DataGrid Control 6.0” 示例: Private Sub Command1_click() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim cnstr As String cnstr = "Provider=OraOLEDB.Oracle;" & _ "Data Source=MyOracleDB;" & _ '你的数据源名,即数据库名 "User Id=myUsername;" & _'用户名,如果没有可以为空 "Password=myPassword"'用户密码,如果没有可以空 cn.Open cnstr rs.CursorLocation = adUseClient'使用客户端游标 rs.Open "select * from XXX表", cn, adOpenKeyset, adLockBatchOptimistic set datagrid1.datasource=rs datagrid1.refresh End Sub以上示例程序的作用是将数据库中的XXX表的记录显示在datagrid控件中。
http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/Q176/9/36.asp&NoWebContent=1微软的知识库Visual Basic Accessing an Oracle Database Using ADO
Ado比ODBC编程稍微容易点
“工程”-->“引用”-->“Microsoft AxtiveX Data Objects 2.X Library”
注:2.X为版本号,如果你机子上有高版本的就用高版本的,如:2.5或2.6的。
"工程"-->“部件”-->“MicroSoft DataGrid Control 6.0”
示例:
Private Sub Command1_click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cnstr As String
cnstr = "Provider=OraOLEDB.Oracle;" & _
"Data Source=MyOracleDB;" & _ '你的数据源名,即数据库名
"User Id=myUsername;" & _'用户名,如果没有可以为空
"Password=myPassword"'用户密码,如果没有可以空
cn.Open cnstr
rs.CursorLocation = adUseClient'使用客户端游标
rs.Open "select * from XXX表", cn, adOpenKeyset, adLockBatchOptimistic
set datagrid1.datasource=rs
datagrid1.refresh
End Sub以上示例程序的作用是将数据库中的XXX表的记录显示在datagrid控件中。