`
ktc7000
  • 浏览: 35055 次
  • 性别: Icon_minigender_1
  • 来自: 南京
社区版块
存档分类
最新评论

VB操作Oracle数据库

阅读更多
Dim num,ora
ora="ora"
set con=createobject("adodb.connection")
'con.open  "DRIVER={Microsoft ODBC for Oracle};Server=10.137.86.120;Uid=JXCS0115;Pwd=JXCS0115"
con.open "DSN=ora120;UID=JXCS0115;PWD=JXCS0115;DBQ=120 ;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BNF=F;BAM=IfAllSuccessful;NUM=NLS;DPM=F;MTS=T;MDI=F;CSR=F;FWC=F;FBS=64000;TLO=O;"
set record=createobject("adodb.recordset")
sql="select * from service"
record.open sql,con
Do
if(record("list")="0")then'//查找表格list列中有多少0
num=num+1
end if
record.movenext
loop until record.eof=true

record.close
set record=nothing
con.close
set con=nothing
msgbox num
分享到:
评论
3 楼 ktc7000 2013-03-21  
DataSource=DataTable("DataSource",dtGlobalSheet)
OraUser=DataTable("OraUser",dtGlobalSheet)
OraPWD=DataTable("OraPWD",dtGlobalSheet)
TNSName=DataTable("TNSName",dtGlobalSheet)
LOGINACCOUNTID=DataTable("LOGINACCOUNTID",dtGlobalSheet)
LOGINTIME=DataTable("LOGINTIME",dtGlobalSheet)

set con=createobject("adodb.connection")
con.open "DSN="+DataSource+";UID="+OraUser+";PWD="+OraPWD+";DBQ="+TNSName+";DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BNF=F;BAM=IfAllSuccessful;NUM=NLS;DPM=F;MTS=T;MDI=F;CSR=F;FWC=F;FBS=64000;TLO=O;"
set record=createobject("adodb.recordset")
'查询Login状态是否存在语句
sql_que="SELECT LS.LOGINACCOUNT LOG_ACC,LS.* FROM LOGINSTAT LS WHERE LS.LOGINACCOUNTID = "+Chr(39)+LOGINACCOUNTID+chr(39)+" AND LS.LOGINTIME LIKE "+Chr(39)+LOGINTIME+"%"+Chr(39)+" ORDER BY ID DESC ;"

'查询Login状态是否存在
record.open sql_que,con
if ( record.eof=true ) then
que_flag=0
end if
do
if (record.eof<>true) then
if  (record("LOG_ACC")<>"") then   '统计库中记录条数
   que_flag=1:num=num+1:record.movenext
end if
end if
loop until record.eof=true
record.close

'关闭连接
con.close
set record=nothing
set con=nothing
2 楼 ktc7000 2013-01-24  
if ( record("data")<>"" ) then
   ......
end if
用来判断不为空时执行语句

运算符
求幂 ^
负号 -
乘 *
除 /
整除 \
求余 Mod
加 +
减 -
字符串连接 &
等于 =
不等于 <>
小于 <
大于 >
小于等于 <=
大于等于 >=
对象引用比较 Is
逻辑非 Not
逻辑与 And
逻辑或 Or
逻辑异或 Xor
逻辑等价 Eqv
逻辑隐含 Imp

算术运算符  
^ 运算符
* 运算符
/ 运算符
\ 运算符
Mod 运算符
+ 运算符
- 运算符

连接运算符
& 运算符
+ 运算符
Asc函数

转换函数
CBool函数
CByte函数
CCur函数
CDate函数
CDec函数
CDbl函数
Chr 函数
CInt 函数
CLng 函数
CSng 函数
CStr 函数
CVar 函数
CVErr 函数
Format 函数
Hex 函数
Oct 函数
Str 函数
Val 函数

数学函数
Abs 函数
Atn 函数
Cos 函数
Exp 函数
Fix 函数
Int 函数
Log 函数
Rnd 函数
Sgn 函数
Sin 函数
Sqr 函数
Tan 函数

逻辑运算符
And 运算符
Eqv 运算符
Imp 运算符
Not 运算符
Or 运算符
Xor 运算符
1 楼 ktc7000 2013-01-24  
record.open sql,con
Do
If ( record.eof=true ) then
msgbox "未在数据库中找到指定数据"+vbcr+vbcr+">>>>>>>>>>>>>>> "+"请点击确定继续"+" >>>>>>>>>>>>>>"
elseif  (record("data")="0") then'//查找入库的数据数量
num=num+1:record.movenext
end if
loop until record.eof=true
record.close
set record=nothing
con.close
set con=nothing

相关推荐

    vb.net操作Oracle数据库增删改查以及存储过程调用1

    VB.NET 操作 Oracle 数据库增删改查以及存储过程调用 在本篇文章中,我们将详细介绍如何使用 VB.NET 操作 Oracle 数据库,包括增删改查操作以及存储过程的调用。 VB.NET 操作 Oracle 数据库的准备工作 在开始操作...

    通过VB来连接oracle数据库做查询

    本篇文章将深入探讨如何利用VB连接Oracle数据库并执行查询。 首先,要连接Oracle数据库,我们需要在VB中引入Oracle的数据库访问组件,通常是Oracle Data Provider for .NET (ODP.NET)。这个组件允许VB应用程序直接...

    VB连接Oracle数据库

    VB连接Oracle数据库 VB连接Oracle数据库是指使用VB语言连接Oracle数据库的过程。在这里,我们将详细地介绍VB连接Oracle数据库的方法和实现过程。 一、准备工作 在连接Oracle数据库之前,我们需要准备以下几项: ...

    VB访问Oracle远程数据库方法与实现.pdf

    使用 VB 访问 Oracle 远程数据库的优点包括可以快速访问 Oracle 数据库、可以使用 VB 语言对 Oracle 数据库进行控制和操作等。使用 VB 访问 Oracle 远程数据库的缺点包括需要安装 Oracle 客户端软件、需要配置 ODBC ...

    VB+Oracle数据库课程设计

    在这个课程设计中,你将深入理解VB的基础知识,包括控件使用、事件处理和程序逻辑,同时掌握Oracle数据库的连接、查询、更新和删除数据等操作。 首先,Visual Basic(VB)是微软开发的一种面向对象的编程语言,常...

    VB.NET连接ORACLE数据库

    在VB.NET中与ORACLE数据库进行交互是常见的开发任务,特别是在企业级应用中。Oracle数据库以其稳定性和高性能而被广泛采用。在这个过程中,开发者通常会使用Oracle提供的数据访问组件,如Oracle.ManagedDataAccess,...

    VB下利用ADO技术访问Oracle数据库

    ### VB下利用ADO技术访问Oracle数据库 #### 一、引言 随着信息技术的发展,数据库管理系统在各个领域得到了广泛的应用。Microsoft Visual Basic (VB)作为一款流行的编程语言,因其易用性和强大的功能,常被用于...

    数据上传Oracle数据库

    总结来说,通过VB连接Oracle数据库并执行数据库操作是一个常见的IT应用场景。这需要理解数据库连接、SQL语法和VB编程,以便高效地处理数据。在实际工作中,确保数据的安全性和正确性至关重要,因此在编写这类程序时...

    使用VB调用oracle数据库存储过程的研究.pdf

    【VB调用Oracle数据库存储过程】在软件开发中,VB(Visual Basic)与Oracle数据库的结合使用非常常见。Oracle数据库是一种高效的关系型数据库系统,它提供了丰富的存储过程功能,能够预编译和存储复杂的SQL语句及...

    VB与Oracle数据库接口的应用.pdf

    【VB与Oracle数据库接口的应用】 VB(Visual Basic)是一种面向对象的高级编程语言,由Microsoft公司开发,提供了访问各种数据库的强大工具。Oracle数据库是目前世界上最流行的关系型数据库管理系统之一,以其高...

    VB+Oracle9数据库开发

    ### VB+Oracle9数据库开发知识点总结 #### 一、构建开发与运行环境 **1. 构建开发和运行客户机** - **安装VB:** 首先需要在开发客户机上安装Visual Basic 6.0 (VB),这是前端开发工具。 - **安装Oracle9i客户机...

    vb编写的oracle数据库导入导出

    本主题聚焦于使用VB进行Oracle数据库的导入和导出操作,这是一种常见的数据迁移和备份策略,对于数据库管理和系统维护至关重要。 在VB中实现Oracle数据库的导入导出,主要涉及到以下几个关键知识点: 1. **Oracle...

    VB.NET连接oracle数据库

    在VB.NET中连接Oracle数据库是开发企业级应用时常见的任务,Oracle数据库因其高效稳定而被广泛采用。本文将深入探讨如何使用VB.NET进行Oracle数据库的连接,并提供详细的知识点讲解。 首先,要连接Oracle数据库,...

    vb.net操作Oracle数据库1

    在VB.NET中操作Oracle数据库,通常需要借助ADO.NET或ADODB组件来实现数据的存取。这个示例中,开发者创建了一个简单的员工管理窗体应用,通过Datagridview控件展示Oracle数据库中的员工数据。以下是具体步骤和相关...

    VB环境下基于ADO的Oracle数据库访问.pdf

    在VB环境下,基于ADO(ActiveX Data Objects)访问Oracle数据库是一种常见的技术手段。Oracle数据库因其高效稳定和强大的功能,成为许多大型应用系统的首选数据库系统。VB(Visual Basic)则以其易学易用的特性,成为...

    VB数据库操作简化工具

    【VB数据库操作简化工具】是一种基于Visual Basic(VB)编程语言的实用程序,设计用于简化数据库的交互过程。这个工具的出现旨在降低开发人员在进行数据库操作时的复杂度,提高工作效率。通过它,开发者无需编写大量...

    VB+ORACLE系统

    学习这个【VB+ORACLE系统】,你可以了解到如何使用VB进行界面设计,以及如何通过VB与Oracle数据库进行通信,实现数据的读写操作。这对于想要入门数据库应用开发的初学者来说,是一个非常实用的起点。通过实践这些...

    使用VB 调用oracle 数据库存储过程的研究

    ### 使用VB调用Oracle数据库存储过程的研究 #### 摘要 使用Visual Basic (VB) 与 Oracle 数据库结合是软件开发中常见的搭配方式。利用 Oracle 的存储过程处理应用程序中频繁使用的逻辑,不仅可以提高程序的运行效率...

    VS2008 C#连oracle数据库免客户端文件

    这通常通过使用Oracle Data Access Components (ODAC) 或 Oracle Managed Data Access (ODP.NET Managed Driver) 实现,这些组件允许开发者在没有本地Oracle客户端的情况下进行数据库操作。 在提供的压缩包文件名...

Global site tag (gtag.js) - Google Analytics