189 8069 5689
VB6.0可通过Adodc数据访问控件的属性页进行连接Oracle数据库。
创新互联建站长期为1000+客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为许昌企业提供专业的网站建设、成都网站设计，许昌网站改版等技术服务。拥有十载丰富建站经验和众多成功案例,为您定制开发。
1）建立数据工程，在窗体添加Adodc数据访问控件。鼠标选中Adodc控件-右键-Adodc属性-使用连接字符串-生成。
2）选Microsoft OLE DB Provider For Oracle，下一步。
3）根据数据链接属性对话框填写所需内容，测试连接。点确定，最终在Adodc属性页获得连接字符串，复制该字符串，即可作为Adodc数据访问控件直接使用，或在代码中用于Adodc控件或ADO数据访问对象。
Delphi作为强大的数据库前端开发工具，提供了很多数据库存取方式的封装控件。对于Oracle的数据存取控件，不管何种数据库引擎，一般都会封装一个Connection作为数据集的连接控件，因此只要设定Connection的相关属性即可，其它dataset控件,如query,table等只要指定此Connection即可，客户端应用程序要连接到Oracle的Schema，一般都需要安装Oracle Client，并使用Net Manager设置客户端可以访问的Oracle Database Server的主机名称及存取协议、Port等信息。可以使用以下的方式连接
dbExpress：dbExpress比较适合连接SQL的数据库，据说效率挺高的。放置一个dbExpress页签下的SQLConnection，在此控件上点击鼠标右键，选择“Edit Connection Properities”功能，并依下图设置即可。其中Database栏位要设置为Oracle Client中设置的服务名，如果需要记住密码，而不用每次连接的时候输入密码，请将 LoginPrompt属性设置为False，设置OK后即可测试将Connected:=True看看是否成功，其它数据处理控件请选择相应dbExpress页签下的控件即可。
BDE：BDE应该来说是Borland自己的数据库引擎了，效率也是相当不错的。当然也是支持Oracle连接的。使用BDE页签下的database控件，设置方法参考下图所示：
ADO：ADO是Microsoft所支持的数据库连接技术，大有一统windows客户端数据存取引擎的意思，在.net平台，推出了ADO.NET，更好地支持了XML。DELPHI有对ADO做了一些封装，使用ADOConnection，通过向导设置它的ConnectionString即可，可以参考下图所示：
ODBC：ODBC是最传统的链接方法了，效率相对来说稍微低一些，不过通用性也更强，不建议使用这种方法。使用前需要先到ODBC设置中增加一个数据源名称DSN,然后再透过ADO或者BDE组件来实现数据的存取。可以参考如下图片设置：
不使用控件，比如使用原生的ADO组件，不太建议这种方法，既然Delphi已经做了封装，何必又要回到原始状态呢。以上连接方法都需要安装Oracle Client软件，但是Oracle官方的Client太过庞大，安装非常不便，目前网上有人发布一个精简版的Oracle Client软件，比较小，可以满足连接Oracle的需要，可以去下载这个软件，而不用去安装复杂的官方版本。
下载ODAC控件，此控件不需要安装Oracle Client，而是使用OCI的方式透过TCP/IP协议直接连接到Oracle Server，可以将程序做成瘦客户端，程序分发的时候比较方便。此控件支持Delphi的大部分版本以及C++Builder以及kylix以及.net，而且提供源代码，有兴趣的可以研究一下。具体安装使用方法请参考控件的相关说明以及帮助文档。
VBA连接oracle数据库
小 'システム共通変数
Public ORA_SE As Object 'Oracleのセッションオブジェクト
Public ORA_DB As Object 'Oracleの接続オブジェクト
'******************************************************************************
' ﾌﾟﾛｼｰｼﾞｬ名 : Ora_Connect
' 概要 : Oracle接続
' ﾊﾟﾗﾒｰﾀ : なし
' 说明 :Oracleへの接続を行う
'******************************************************************************
'Public Sub Ora_Connect()
Public Function Ora_Connect()
Dim rt As Integer
On Error GoTo err
Set ORA_SE = CreateObject("OracleInProcServer.XOraSession")
'Set ORA_DB = ORA_SE.OpenDatabase("数据库连接词", "用户名/密码", 0)
Set ORA_DB = ORA_SE.OpenDatabase("combcm", "combcm/combcm", 0)
Exit Function
err:
End Function
'******************************************************************************
' ﾌﾟﾛｼｰｼﾞｬ名 : Ora_DisConnect
' 概要 : Oracle切断
' ﾊﾟﾗﾒｰﾀ : なし
' 说明 : Oracleの切断を行う
'******************************************************************************
'Public Sub Ora_DisConnect()
Public Function Ora_DisConnect()
Set ORA_SE = Nothing
Set ORA_DB = Nothing
End Function
Public Function getData()
'该当なし
If OraDynaset.EOF = True Then
Set OraDynaset = Nothing
Exit Function
Else
'2004/03/06 add rec_cntを2して2行目から书き出す
'rec_cnt = 2
'Do While Not OraDynaset.EOF
'For row_cnt = 0 To OraDynaset.Fields.Count - 1
' Cells(rec_cnt, row_cnt + 1).Value = OraDynaset(row_cnt).Value
'Next row_cnt
'2004/11/26 クリップボードを介した方法でスピードアップ対応。
'从数据库中取出数据
OraDynaset.CopyToClipboard
Cells(2, 1).Select
ActiveSheet.Paste
rec_cnt = OraDynaset.RecordCount
'OraDynaset.DbMoveNext
'rec_cnt = rec_cnt + 1
'Loop
End If
end function
Delphi连接Oracle数据库的三种方式 Oracle是以高级结构化查询语言(SQL)为基础的大型关系数据库，是目前最流行的客户/服务器(CLIENT/SERVER)体系结构的数据库之一，目前被广泛应用于各类型企业的信息化管理中。数据库支持是Delphi7.0开发环境的一个重要特性，很多程序员在数据库应用程序开发中都采用Delphi7.0作为开发工具，来实现对数据库的访问和控制。Delphi数据库应用程序是通过数据库引擎来访问它们引用的数据源的。本文概括性的介绍在Windows XP环境中Delphi7.0连接Oracle数据库的3种方式，它们分别是BDE、ADO、DbExpress。
这3种方式都需要安装Oracle客户端并配置tnsnames.ora文件。将Oracle客户端安装到本地计算机，打开c:\oracle\…\network\admin\tnsnames.ora文件，按照所要访问的数据库的配置，添加下面的内容
TEST =(DESCRIPTION =
(ADDRESS_LIST =
(ADDRESS = (PROTOCOL = TCP)(HOST = 172.16.2.134)(PORT = 1521)) )
(CONNECT_DATA =(SID = test) )
)
其中HOST，PORT，SID的值与所访问的数据库配置有关。
1传统的BDE
BDE(Borland Database Engine)使用别名引用数据库文件或目录，需要在客户的计算机上与应用程序一起安装BDE。连接步骤：
1.1 安装BDE。在Delphi7.0的安装盘中含有BDE安装程序，按照默认方式安装的计算机，并配置好所要访问的Oracle数据库的别名，例如：test。
1.2 在Delphi7.0的程序中连接Oracle数据库。将BDE选项卡中的TDatabase组件将放入应用程序的主窗体，双击TDatabase，出现TDatabase组件编辑器，输入数据库别名、用户名和密码，点击OK按钮。在对象检视器中将TDatabase组件的LoginPrompt属性值设为False(避免出现登陆对话框，下同)，将TDatabase组件的Connected属性值设为True，这样就成功的连接到Oracle服务器了。
1.3 使用TTable组件访问数据。将TTable组件放置到应用程序的主窗体，设置其DatabaseName属性值为test，再放入TdataSource和TDBGrid组件，接下来的工作就与开发本地数据库应用程序相同了。
2 Microsoft的ADO
ADO(ActiveX Data Objects)是Microsoft的高级接口，基于Microsoft的数据访问OLEDB技术而实现。连接步骤：
2.1 在Delphi7.0的程序中连接Oracle数据库。将ADO选项卡中的TADOConnection组件放入应用程序的主窗体，双击TADOConnection，在出现的对话框中点选Use Connection String，在其下面的框中输入：Provider=MSDAORA.1;User ID=test;Data Source=test;Persist Security Info=False，其中test为Oracle服务器名和用户名。在对象检视器中将TADOConnection组件的LoginPrompt属性值设为False，将TADOConnection组件的Connected属性值设为True，这样就成功的连接到Oracle服务器了。
2.2 使用TADOCommand组件访问数据。将TADOCommand组件放置到应用程序的主窗体，设置其Connec tion属性值为Connection1，点击其CommandText属性值，在出现的对话框中输入SQL查询语句（本文以查询数据为例），再放入TdataSource和TDBGrid组件，接下来的工作就与开发本地型数据库应用程序相同了。
3 新一代夸平台的数据库访问引擎DbExpress
DbExpress是一组新的组件，技术和驱动程序，具备了夸平台的能力，让程序员能够开发出更有效率的数据库应用程序，因此会成为以后Delphi和Kylix的核心数据访问技术。连接步骤：
3.1 在Delphi7.0的程序中连接Oracle数据库。将 dbExpress选项卡中的TSQLConnection组件放入应用程序的主窗体，双击TQLConnection，出现TSQLConnection组件编辑器，选择Oracle作为Driver Name，输入数据库名称、用户名和密码，点击OK按钮。在对象检视器中将TSQLConnection组件的LoginPrompt属性值设为False，将TSQLConnection组件的Connected属性值设为True，这样就成功的连接到Oracle服务器了。
3.2 使用TSQLDataSet组件访问数据。将TSQLDataSet组件放置到应用程序的主窗体，设置其SQLConne ction属性值为SQLConnection1，点击其CommandText属性值，在出现的对话框中输入SQL查询语句（本文以查询数据为例），再放入TdataSource和TDBGrid组件，接下来的工作就与开发本地数据库应用程序相同了。
oracle date等类型是带时间部分的，所以你这个2011-07-05 只是相当于2011-07-05 00:00:00这个时刻，按你的写法大于这个时刻的是不会删除的。如果你确实要删除2011-07-05的建议你用以下写法：
delete from jf_syslog where inputtime =date'2011-07-01' and nputtimedate'2011-07-06'
如果不担心2011-07-06 00:00:00的也可以
delete from jf_syslog where inputtime between date'2011-07-01' and date'2011-07-06'
如果效率可以接受，可以先转换成字符串
delete from jf_syslog where to_char(inputtime,'yyyymmdd') between '20110701' and '20110705'
你可以考虑连接上一个固定的字符串这样的，但是因为时间上是没有24:00:00的，所以还是会有问题的，不如直接在日期上加一天用