VB如何做oracle数据库报表

你是用adodb还是adodc啊，如果用adodc，可设置控件属性为：

connectionstring="driver={microsoft

odbc

for

oracle};server=orcl;uid=username;pwd=password"

其中server后面的参数为你的oracle数据库实例名，uid后面参数为用户名，pwd后面参数为该用户的登录密码。

如果还需要其他信息，可以hi我

。

在oracle里新建数据库和表结构，配置好监听

搜索vb连接oracle ，很多

如果vb运行的机器和oracle数据库在同一台电脑上无需安装oracle客户端，否则需要安装一个

数据库的字符串是否写错了或者重新配置一下数据库服务名OraID，先用VB自带的那个直接工具先连上，再把连接地址复制出来，修改一下。这样是最保险的了！

参考格式：Provider=OraOLEDBOracle1;Password=密码;Persist Security Info=True;User ID=用户名;Data Source=数据库网络服务名

'Ctrl+t找Microsoft DataGrid Control

'菜单"工程"->"引用" 找 Microsoft ActiveX Data Object

Dim cn As New ADODBConnection

Dim rst As New ADODBRecordset

Dim SqlStr As String

cnOpen "Provider=MicrosoftJetOLEDB40;Data Source=MyOracleDB;User Id=myUsername;Password=myPassword;Integrated Security=no;"

SqlStr = "Select From 某个表"

rstCursorLocation = adUseClient

rstOpen SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集

Set DataGrid1DataSource = rst '给DataGrid修改数据源

系统环境 *** 作系统 Windows Server 数据库Oracle i R ( ) for NT 企业版 开发工具 Visual Basic 中文版连接方法 一 安装 Oracle i R ( ) for NT 企业版使用典型安装 安装目录为D:\Oracle 注 安装完Oracle后 在D:\Oracle\Ora \BIN\目录下会有oradc ocx文件存在 VB可使用此控件访问Oracle数据库二 安装 Visual Basic 中文版把Visual Basic 光盘放入光驱 使用典型安装 安装目录为D:\Program Files\Microsoft Visual Studio\VB 三 生成Oracle实验记录连入SQLPlus 以system/manager用户登录SQL> conn system/manager创建新的用户 如user /pass 赋予connect resource权限 SQL> grant connect resource to user identified by pass ;SQL> conn user /pass SQL> create table test(a number b char( ));SQL> insert into test values( to_char(sysdate yyyy mm dd hh :mi:ss ));SQL> insert into test values( to_char(sysdate yyyy mm dd hh :mi:ss ));SQL> insert into test values( to_char(sysdate yyyy mm dd hh :mi:ss ));SQL> insert into test values( to_char(sysdate yyyy mm dd hh :mi:ss ));SQL> insert into test values( to_char(sysdate yyyy mm dd hh :mi:ss ));SQL> mit;SQL> select from test; A B : : : : : : : : : : D:\Oracle\Ora \neork\ADMIN\tnsnames ora中有如下内容 ORADB = (DESCRIPTION = (ADDRESS_LIST = (ADDRESS = (PROTOCOL = TCP)(HOST = )(PORT = )) ) (CONNECT_DATA = (SERVICE_NAME = oradb) ) )总结 Oracle service_namesoradbOracle用户名user 户名密码pass 测试表名testtnsnamesoradb四 启动 Visual Basic 写连接Oracle的VB程序开始－＞程序－＞Microsoft Visual Basic 中文版－＞Microsoft Visual Basic 中文版文件－＞新建工程－＞VB 企业版控件 如下图 / / jpg > 添加访问Oracle的部件（CTRL+T） 工程－＞部件－＞Oracle Data Control 如下图 / / jpg > 选中此控件（Oracle Data Control） 单击 确定 （此控件对应的就是D:\Oracle\Ora \BIN\oradc ocx）VB开发窗口右边的工具箱面板上会出现此控件的图形标志 如下图 / / jpg > 用鼠标双击此控件（ORADC） 再双击MSFlexGrid控件（上图中另一个画红框的） 把它们放到窗体Form 上 默认名称为ORADC 和MSFlexGrid 如下图 / / jpg > 修改控件ORADC 和MSFlexGrid 的属性 如下图 ORADC 的Connect属性 user /pass ORADC 的DatabaseName属性 oradbORADC 的RecordSource属性 select from testMSFlexGrid 的DataSource属性 ORADC / / jpg > 也可以不设置ORADC 控件的任何属性 而使用窗体的Form_Load()过程来给ORADC 控件赋值Private Sub Form_Load() ORADC Connect = user /pass ORADC DatabaseName = oradb ORADC RecordSource = select from test ORADC RefreshEnd Sub按F 运行此程序 结果如下图 / / jpg > lishixinzhi/Article/program/Oracle/201311/16753

你可以在一个按钮控件中加入下面两段代码：Dim odbc As New OleDbOleDbConnection("Provider=OraOLEDBOracle;server=XXXX;User Id=XXXX;Password=XXXX;")

odbcOpen()

Dim ocmd As New OleDbOleDbCommand("select from 表名1", odbc)

Dim odr As OleDbOleDbDataReader

odr = ocmdExecuteReader()

If (odrRead()) Then

aText = odr("单位名称")ToString()

bText = odr("联系人")ToString()

cText = odr("邮政编码")ToString()

dText = odr("地址")ToString()

hText = odr("电话")ToString()

fText = odr("email")ToString()

End If

odrClose()

odbcClose()

odbcOpen()

Dim ocmd As New OleDbOleDbCommand("select from 表名2", odbc)

Dim odr As OleDbOleDbDataReader

odr = ocmdExecuteReader()

If (odrRead()) Then

aText = odr("单位名称")ToString()

bText = odr("联系人")ToString()

cText = odr("邮政编码")ToString()

dText = odr("地址")ToString()

hText = odr("电话")ToString()

fText = odr("email")ToString()

End If

odrClose()

odbcClose()

以上是一个提示，你可以按照我的提示自己改一下，大X的地方自己改一下，表名，字段名改一下。希望您能成功。

查询表名称：

select table_name from user_tables;--包含你所有的表

查询表的列：

select column_name from user_tab_columns where table_name=upper('tablename');--包换所有表的列

Global oOraSess As Object

Global oOraDb As OraDatabase

Global Const ORADB_ORAMODE = &H1&

Set oOraSess = CreateObject("OracleInProcServerXOraSession")

Set oOraDb = oOraSessOpenDatabase(DSN, UID & "/" & PWD, ORADB_ORAMODE)

这样也可以

db = "Provider=MSDAORA1;Password=chun;User ID=chun;Data Source=chun;Persist Security Info=True"

connCursorLocation = adUseClient

connOpen db

'chun 是数据库名 密码 连接数据源

以上就是关于VB如何做oracle数据库报表全部的内容，包括:VB如何做oracle数据库报表、我自己用VB做了几个界面，如何和我自己电脑上的oracle数据库连接在一起、VB连接不上oracle数据库等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！