精华内容
下载资源
问答
  • 以前如果执行某个命令,就在commandtext后面进行写名,但是如果要执行很多的命令呢,如何进行处理呢?是不是要定义很多的new adodb.command呢?当然不是,下面只要将其使用begin和end包含起来,就是建立一个程序块,...

    以前如果执行某个命令,就在commandtext后面进行写名,但是如果要执行很多的命令呢,如何进行处理呢?

    是不是要定义很多的new adodb.command呢?当然不是,下面只要将其使用begin和end包含起来,就是建立

    一个程序块,你就可以编辑处理很多的命令:

    Private Sub Command1_Click()
        Dim cnn As New ADODB.Connection
        Dim cmd As New ADODB.Command
        cnn.ConnectionString = "provider=msdaora;user id = test11;password=test11;data source=datasource"
        cnn.Open
        If cnn.State = adStateOpen Then
            Set cmd.ActiveConnection = cnn
            cmd.CommandType = adCmdText
            cmd.CommandText = "begin insert into bz_temp values('31111'); insert into bz_temp values('353432');  end;"
            cmd.Execute

        End If
       
        cnn.Close
    End Sub 

     

    注意两点:

    1 使用begin和end将多条语句,包含起来,否则就会报错:invalid character

    2 在end的后面一定要加上分号,否则就会提示结束的时候出现错误,这个问题,挺让人郁闷的。如果是一个语句

    那么就不要在最后添加分号,如果添上了分号,那么就会报错的啊!请一定分辨好,那些需要添加,那些时候不需

    要添加啊!

    展开全文
  • 想通过sql查询提取多个xls里的数据,网上查了一下可以把xls直接当成数据库直接用sql操作提取数据,但尝试了很久都不知道怎么做. 单个xls的sql操作(单表,多表)马马虎虎学得可以操作,但源数据是多个xls,在不汇总各个...
  • 前面看了一编用VB代码创建ACCESS数据库的文章,写的很好.根据思路,写下创建SQL 数据库的方法,供大家参考.1:引用ADO2.5lib2:在窗体上添加一个按钮COMMAND13:按钮代码如下:Private Sub Command1_Click()Dim cnn As New ...

    前面看了一编用VB代码创建ACCESS数据库的文章,写的很好.

    根据思路,写下创建SQL 数据库的方法,供大家参考.

    1:引用ADO2.5lib

    2:在窗体上添加一个按钮COMMAND1

    3:按钮代码如下:

    Private Sub Command1_Click()

    Dim cnn As New ADODB.Connection'定义新的连接

    Dim rs As New ADODB.Recordset'定义新的记录集

    Dim strsql As String'定义数据库连接字符串

    strsql = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=master;Data Source=(local)"'首先连接MASTER数据库

    cnn.Open strsql

    strsql = "create database text1"'创建数据库TEXT1

    rs.Open strsql, cnn, adOpenStatic, adLockReadOnly

    cnn.Close'关闭连接MASTER是连接

    Set cnn = Nothing'释放连接

    strsql = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=text1;Data Source=(local)"'重新定位连接数据库

    cnn.Open strsql'打开连接

    strsql = "create table text1( a varchar(50))"'创建表和字段

    rs.Open strsql, cnn, adOpenStatic, adLockReadOnly

    MsgBox "ok"

    End Sub

    以上个人意见,欢迎互相交流

    QQ:32416070

    展开全文
  • 一、关于ADO在基于Client/Server结构的数据库环境中,通过OLE DB接口可以存取数据,但它定义的是低层COM接口,不仅不易使用,而且不能被VB,VBA,VBScript等高级编程工具访问。而使用ADO则可以很容易地使VB等编程...

    来源:网络/责编:编程入门 作者:不详

    一、关于ADO

    在基于Client/Server结构的数据库环境中,通过OLE DB接口可以存取数据,但它定义的是低层COM接口,不仅不易使用,而且不能被VB,VBA,VBScript等高级编程工具访问。

    而使用ADO则可以很容易地使VB等编程语言直接访问数据(通过OLE DB接口)。ADO是基于面向对象方法的,其对象模型如下图所示(略)

    由上图可见,ADO对象模型总共才包括六个对象,相对于数据访问对象(DAO)来说简单得多。因此实际中常常使用它来访问数据库。

    二、ADO访问数据库实例

    下面,我们以Oracle为例,使用VB6.0来访问其数据库中的存储过程。在此例中,我们首先在Oracle数据库上创建有两个存储过程,一个不带参数,另一个带有参数。然后,使用ADO来访问这两个存储过程。步骤如下:

    1. 在Oracle服务器上运行以下DDL脚本:

    DROP TABLE person;   CREATE TABLE person   (ssn NUMBER(9) PRIMARY KEY,   fname VARCHAR2(15),   lname VARCHAR2(20));   INSERT INTO person VALUES(555662222,'Sam','Goodwin');   INSERT INTO person VALUES(555882222,'Kent','Clark');   INSERT INTO person VALUES(666223333,'Jane','Doe');   COMMIT;   /

    2. 在Oracle服务器上创建包(package):

    CREATE OR REPLACE PACKAGE packperson   AS   TYPE tssn is TABLE of NUMBER(10)   INDEX BY BINARY_INTEGER;   TYPE tfname is TABLE of VARCHAR2(15)   INDEX BY BINARY_INTEGER;   TYPE tlname is TABLE of VARCHAR2(20)   INDEX BY BINARY_INTEGER;     PROCEDURE allperson   (ssn OUT tssn,   fname OUT tfname,   lname OUT tlname);   PROCEDURE oneperson   (onessn IN NUMBER,   ssn OUT tssn,   fname OUT tfname,   lname OUT tlname);   END packperson;   /

    3. 在Oracle服务器上创建以下包体(package body):

    CREATE OR REPLACE PACKAGE BODY packperson   AS   PROCEDURE allperson   (ssn OUT tssn,   fname OUT tfname,   lname OUT tlname)   IS   CURSOR person_cur IS   SELECT ssn, fname, lname   FROM person;   percount NUMBER DEFAULT 1;   BEGIN   FOR singleperson IN person_cur   LOOP   ssn(percount) := singleperson.ssn;   fname(percount) := singleperson.fname;   lname(percount) := singleperson.lname;   percount := percount + 1;   END LOOP;   END;   PROCEDURE oneperson   (onessn IN NUMBER,   ssn OUT tssn,   fname OUT tfname,   lname OUT tlname)   IS   CURSOR person_cur IS   SELECT ssn, fname, lname   FROM person   WHERE ssn = onessn;   percount NUMBER DEFAULT 1;   BEGIN   FOR singleperson IN person_cur   LOOP   ssn(percount) := singleperson.ssn;   fname(percount) := singleperson.fname;   lname(percount) := singleperson.lname;   percount := percount + 1;   END LOOP;   END;   END;   /

    4. 在 VB 6.0 中打开一个新的工程,缺省创建表单 Form1。

    5. 在表单上添加二个按钮,cmdGetEveryone和cmdGetOne。

    6. 在代码窗口中添加以下代码:

    Option Explicit   Dim Cn As ADODB.Connection   Dim CPw1 As ADODB.Command   Dim CPw2 As ADODB.Command   Dim Rs As ADODB.Recordset   Dim Conn As String   Dim QSQL As String   Dim inputssn As Long     Private Sub cmdGetEveryone_Click()   Set Rs.Source = CPw1   Rs.Open   While Not Rs.EOF   MsgBox "Person data: " & Rs(0) & ",   " & Rs(1) & ", " & Rs(2)   Rs.MoveNext   Wend   Rs.Close   End Sub     Private Sub cmdGetOne_Click()   Set Rs.Source = CPw2   inputssn = InputBox(   "Enter the SSN you wish to retrieve:")   CPw2(0) = inputssn   Rs.Open   MsgBox "Person data: " & Rs(0) & "   , " & Rs(1) & ", " & Rs(2)   Rs.Close   End Sub     Private Sub Form_Load()   '使用合适的值代替以下用户ID,   口令(PWD)和服务器名称(SERVER)   Conn = "UID=*****;PWD=*****;driver=" _   & "{Microsoft ODBC for   Oracle};SERVER=dseOracle;"   Set Cn = New ADODB.Connection   '创建Connection对象   With Cn   .ConnectionString = Conn   .CursorLocation = adUseClient   .Open   End With   QSQL = "{call packperson.allperson(   {resultset 9,ssn,fname,"_   & "lname})}"   Set CPw1 = New ADODB.Command   '创建Command对象   With CPw1   Set .ActiveConnection = Cn   .CommandText = QSQL   .CommandType = adCmdText   End With   QSQL ="{call packperson.oneperson(?,   {resultset 2,ssn, "_   & " fname,lname})}"   '调用存储过程   Set CPw2 = New ADODB.Command   With CPw2   Set .ActiveConnection = Cn   .CommandText = QSQL   .CommandType = adCmdText   .Parameters.Append.CreateParameter(   ,adInteger, _   adParamInput)   '添加存储过程参数   End With   Set Rs = New ADODB.Recordset   With Rs   .CursorType = adOpenStatic   .LockType = adLockReadOnly   End With   End Sub     Private Sub Form_Unload(Cancel As Integer)   Cn.Close   Set Cn = Nothing   Set CPw1 = Nothing   Set CPw2 = Nothing   Set Rs = Nothing   End Sub

    7. 运行程序。当点下cmdGetEveryone按钮时,程序调用Oracle数据库中不带参数的存储过程packperson.allperson,点下cmdGetOne按钮时调用packperson.oneperson存储过程。

    展开全文
  • datagridview的数据源是一个数据库 我想实现:每当datagridview的数据更新了一行,就在那一行的第一格开始到计时。每一行单独计时。 我定义了一个timer并且能够实现一行的倒计时,但是不知道怎样才能每添加一...
  • 如何在第二个窗体里使用第一个窗体的控件方法我想做一个简单的vb.net+数据库的使用,在from1的窗体里用了dataset,oledbdataadatper,oledbconnection,我想在第二个窗体里实现添加功能,可是使用,dataset的tables时是...
    VB.NET源码-156个实用实例哦……
    如何在第二个窗体里使用第一个窗体的控件方法
    我想做一个简单的vb.net+数据库的使用,在from1的窗体里用了dataset,oledbdataadatper,oledbconnection,我想在第二个窗体里实现添加功能,可是使用,dataset的tables时是错误的

    我怎样才能在第二个窗体addfrm里是用dataset

    还有就是如何把控件定义为公用的
    __________________________________________________________________________
    属性框中:modifiers:设置为public
    __________________________________________________________________________
    您可以将这些引用写在一个Module中,声明为Public。
    __________________________________________________________________________
    不行啊,modifiers 设置为public不可以阿,提示我dataset未声明,
    将引用写在一个Module中,如何写?
    __________________________________________________________________________
    from1的窗体 中 Public Shared dataset as New DataSet;
    from2的窗体 中 from1.dataset.Tables ......
    __________________________________________________________________________
    假如Form2是在Form1中打开的用
    dim f2 as new Form2(me) me代表Form1
    f2.show
    然后修改Form的new构造函数,增加一个参数 obj as Form2
    然后定义个窗体变量就可以得到一个指向Form1的对象了,你就可以借助它访问
    __________________________________________________________________________
    展开全文
  • VB.NET相关资源分享

    2017-12-27 07:28:18
    VB.NET基础 vb.net教程 VB_Net自学经典PPT教程(完整版) VB.NET 数组的定义 动态使用 多维数组 关于Regex.Replace只替换第一个的...如何vb.net2010中用odbc连接mysql数据库 c# 连接Mysql数据库 检查数据类型函数...
  • 本人使用的是VS 2005,经过调试成功,具体如何实现,代码如下(VB.Net示例,C#方法一样,在这里就不用说了) 首先在web.config文件节点中加入如下代码: 然后,写个类文件,调用上面的定义,代码如下: /定义一个连接...
  • VB作为最热门的编程语言之一,它有着图形用户界面(GUI)和快速应用程序开发(RAD)系统,从而可以轻易的使用DAO、RDO、ADO连接数据库,或者轻松的创建...vb如何函数调用 1.定义一个加法函数 Private Function addit
  • vb.net读取配置文件

    2015-08-07 15:06:14
    Windows Form应用程序自带App.config文件,利用它可方便的读取配置信息,这里以数据库配置为例: ...下面的代码定义了一个过程打开数据库,返回True表示打开成功,返回False表示打开失败:
  • vs连接数据库其实就是将mysql数据库.h头文件接口、lib链接文件和dll执行文件加入到项目中。下面是配置如何加入。转于http://www.cnblogs.com/justinzhang/archive/2011/09/23/2185963.html一、VS2013工程设置工作...
  • vb控件开发 开发ocx

    热门讨论 2011-02-28 16:12:16
    VB6.0中通过MSChart控件调用数据库 》 02 , 02.txt 《 用VB6实现动态增减控件 》 03 , 03.txt ActiveX控件的创建 04 , 04.txt ADO控件和DATA控件的冲突(不能共存)的解决方法 05 , 05.txt Combo的自动查询技术 ...
  • 微软 VB2010 源码包

    2013-05-22 02:21:18
    还演示如何在不必编写代码的情况下创建数据绑定窗体,以及如何连接到数据库文件 ObjectBinding:演示如何将控件绑定到数据库组件以外的对象 OCS:演示如何使用 Microsoft Synchronization Services for ADO.NET ...
  • VB.NET 入门经典 (第三版)

    热门讨论 2009-07-29 16:56:26
    A.2.2 《ASP.NET数据库入门经典—— VB.NET编程篇》 668 附录B 体系结构和设计模式 669 B.1 体系结构概述 669 B.1.1 变化和不断演化的需求 670 B.1.2 结构元素的重用 670 B.1.3 软件系统中的敏捷性 671 B.1.4 用模式...
  • VB编程资源大全(源码 网络)

    热门讨论 2007-10-17 22:54:27
    (73KB) 121,i012.zip 如何vb中调用i/o口的例子(10KB) 122,i011.zip 演示连接/断开network(3KB) 123,i010.zip chat程序例子(12KB) 124,i009.zip 简单的邮件发送例子 (13KB) 125,i008....
  • p011_dbprint.zip 数据库打印的例子(7KB) 600,p010_print.zip 一个调用打印机的VB程序范例(8KB) 601,p009_vbSimple35.zip 打印预览(21KB) 602,p008_prview32.zip 在VB中用OLE服务实现打印预览...
  • p011_dbprint.zip 数据库打印的例子(7KB) 600,p010_print.zip 一个调用打印机的VB程序范例(8KB) 601,p009_vbSimple35.zip 打印预览(21KB) 602,p008_prview32.zip 在VB中用OLE服务实现打印预览...
  • p011_dbprint.zip 数据库打印的例子(7KB) 600,p010_print.zip 一个调用打印机的VB程序范例(8KB) 601,p009_vbSimple35.zip 打印预览(21KB) 602,p008_prview32.zip 在VB中用OLE服务实现打印预览...
  • p011_dbprint.zip 数据库打印的例子(7KB) 600,p010_print.zip 一个调用打印机的VB程序范例(8KB) 601,p009_vbSimple35.zip 打印预览(21KB) 602,p008_prview32.zip 在VB中用OLE服务实现打印预览...
  • A.2.2 《ASP.NET数据库入门经典—— VB.NET编程篇》 668 附录B 体系结构和设计模式 669 B.1 体系结构概述 669 B.1.1 变化和不断演化的需求 670 B.1.2 结构元素的重用 670 B.1.3 软件系统中的敏捷性 671 B.1.4 用模式...
  • A.2.2 《ASP.NET数据库入门经典—— VB.NET编程篇》 668 附录B 体系结构和设计模式 669 B.1 体系结构概述 669 B.1.1 变化和不断演化的需求 670 B.1.2 结构元素的重用 670 B.1.3 软件系统中的敏捷性 671 B.1.4 用模式...
  • 【转】web.config中如何使用相对路径

    千次阅读 2013-05-14 16:09:09
    Asp.Net连接ACCESS数据库相对路径问题,web.config中如何使用相对路径及在类文件中调用这个相对路径(源代码)? 本人使用的是VS 2005,经过调试成功,具体如何实现,代码如下(VB.Net示例,C#方法一样,在这里就不用说...
  • 其中表ImgTable的结构定义为:字段名类型No IntegerImgDataBinary这里,同时预先建立几个ImgData内容为空的记录,供测试用标志我这行命令需要在每分钟执行一次我个人因为经常作一些数据库方面的程序,对于程序间...
  • 定义数据库结构用数据管理器(datamanager)建立一个包含表ImgTable的数据库Imge1.mdb如何更改计算机的说明?--GF答:您好,GF第三、软件界面为了美观,直接用image控件贴图即可,这种方式我一直爱用要几分钟时间,稍...
  • [转]EF 4.1 Code First

    2013-12-05 09:35:00
    Code First允许使用C#或VB.NET类定义模型,在类或属性上有选择性的执行额外的配置或者使用Fluent API。模型可用于生成数据库架构或映射现有的数据库。 本次演示需要安装Visual Studio 2010。 映射现有数据库 本次...
  • Code First允许使用C#或VB.NET类定义模型,在类或属性上有选择性的执行额外的配置或者使用Fluent API。模型可用于生成数据库架构或映射现有的数据库。 本次演示需要安装Visual Studio 2010。 映射现有数据库 本次...

空空如也

空空如也

1 2 3 4 5
收藏数 86
精华内容 34
关键字:

vb如何定义数据库