精华内容
下载资源
问答
  • 物资管理系统 vb+sql 源码+数据库 vb源码+sql数据库 物资管理系统 vb+sql 源码+数据库 vb源码+sql数据库 物资管理系统 vb+sql 源码+数据库 vb源码+sql数据库
  • 采购管理系统 vb+sql 源码+数据库 vb源码+sql数据库采购管理系统 vb+sql 源码+数据库 vb源码+sql数据库
  • VB 原码 创建数据库 动态创建 VB 原码 创建数据库 动态创建 VB 原码 创建数据库 动态创建 VB 原码 创建数据库 动态创建 VB 原码 创建数据库 动态创建 VB 原码 创建数据库 动态创建 VB 原码 创建数据库 动态创建
  • VB动态创建数据库数据库表,新手学习之用。
  • VB动态创建Access数据库,创建的数据库版本支持Access 2000和Access 2003.其它版本的暂不支持。请依次按窗口中的要求输入要建立数据库的路径和数据库名称、表名、字段和字段类型等信息,点击创建按钮即可创建数据库...
  • 摘要:VB源码,数据库应用,动态查询  VB动态查询数据库中的数据,可选择查询字段,输入查询内容对数据库进行搜索,然后使用MSFlexGrid控件显示出数据。高手就不用看了,本实例主要面向Vb初学者或对数据库操作不...
  • FireBird 数据库VB6连接与部署

    千次阅读 2018-03-24 09:31:52
    FireBird数据库的前景不错,或许你下次就会用到它,我是用以下方式通过连接的)1、已经自动装了FireBird。2、我又装了“Firebird_ODBC_2.0.0-Win32.exe”,并设置。3、firebird数据库中的bin...4、在VB 6.0中源码...

    FireBird数据库的前景不错,或许你下次就会用到它,我是用以下方式通过连接的)

    1、已经自动装了FireBird。

    2、我又装了“Firebird_ODBC_2.0.0-Win32.exe”,并设置。

    3、firebird数据库中的bin文件夹下的fdclient.dll文件,改名复制到SYSTEM32 (64位:SysWOW64)系统文件夹下,更名为“GDS32.DLL”。

    4、在VB 6.0中源码

    [vb] 
    Private Sub Command1_Click() 
    connStr = "DRIVER=Firebird/interBase(r) driver;UID=SYSDBA;PWD=masterkey;DBNAME=C:\MyPrgoram\Demo.ydb;" 
    Set objcon = New ADODB.Connection 
    objcon.ConnectionTimeout = 60 
    objcon.CommandTimeout = 60 
    objcon.CursorLocation = 3 
    objcon.Open connStr 

    Set rs = objcon.OpenSchema(20) 
    While Not rs.EOF 
        If rs("TABLE_TYPE") = "TABLE" Then Debug.Print rs("TABLE_NAME") 
        rs.MoveNext 
    Wend 

    End Sub 
    四、结果

    测试通过。

    参考: Firebird中的ODBC设置

    第一步、安装firebird2.0。

    第二步、安装firebird ODBC驱动程序。

    第三步、设置firebird ODBC Setup。

    首先打开windows下的控制面板->管理工具。双击数据源 (ODBC),选择系统DNS,如下图所示:


    点击添加按钮,出现下面的对话框,选中Firebird/InterBase(r) driver,然后点击完成按钮将出现下一个对话框:


    对其进行设置

    ◆DSN是你想取的数据源名字(任意)

    ◆Driver是默认的不用选

    ◆描述字段可以不填

    ◆数据库是你用firebird来创建的任意数据库中的路径,例如:C:\Program Files\Firebird\Firebird_1_5\security.fdb

    ◆客户字段是你安装firebird数据库中的bin文件夹下的client.dll文件,将其包含进去。

    ◆数据库账户和密码分别是:SYSDBA和masterkey

    ◆角色可以不填 

    ◆其他的字段采用默认设置

    然后点击ok按钮就行了


    展开全文
  • VB数据库编程 详细介绍了VB数据库编程的方方面面 VB数据库编程 详细介绍了VB数据库编程的方方面面 VB数据库编程 详细介绍了VB数据库编程的方方面面
  • 摘要: 本文阐述了在VB程序中利用ADO对象动态创建数据库和数据表的方法,这些方法在开发VB数据库应用程序中很有实用价值,它可以提高数据库程序灵活性。 关键词:数据库、数据表、ADO、ADOX 1: 问题的提出 在...

        摘要: 本文阐述了在VB程序中利用ADO对象动态创建数据库和数据表的方法,这些方法在开发VB数据库应用程序中很有实用价值,它可以提高数据库程序灵活性。

      关键词:数据库、数据表、ADO、ADOX

      1: 问题的提出

      在Visual Basic中,常用的数据访问接口有下列三种:数据库访问对象(DAO,Data Access Object)、远程数据库对象(RDO,Remote Data Object)和ActiveX数据对象(ADO,ActiveX Data Object )。数据库访问技术一直在不断进步,而这三种接口的每一种都分别代表了该技术的不同发展阶段。最新的是ADO,它是比RDO和DAO更加简单,然而更加灵活的对象模型。正因如此,越来越多的人在用VB开发数据库软件时使用ADO作为数据访问接口。在开发过程中,我们通常的使用的方法是:先使用数据库管理系统(例如:Microsoft Access)或VB中的可视化数据管理器建立好数据库和数据表结构,然后在程序中通过使用ADODC数据库控件或引用ADO对象与数据库中的表建立连接,再通过数据库感知控件(例如:文本框、DataGrid等)来进行数据库的各种操作。在这种开发过程中,我们有时需要面对这样一个问题:如何让用户在程序运行过程中动态地建立自己所需的数据库和数据表以提高程序的灵活性呢?在程序运行过程中建立自己所需的数据库和数据表,其本质就是用代码(或者说通过编程)来建立数据库和数据表。众所周知,在Foxpro或ASP编程中,这是很容易的一件事件。那么在VB数据库编程中又是怎样来操作的呢?在VB数据库编程中,如果使用DAO作为数据库访问接口技术,则可以用CreateDatabase结合CreateTableDef方法来实现,目前已有不少书和杂志都讲到了这种方法,本文就不再讲述了;但你如果使用的是最新的数据库访问接口技术ADO,你却发现目前的书和杂志上没有文章讲到如何用代码来建立数据库和数据表的方法,可有时我们非常需要用到这种方法,下面我们就来解决这个问题。

      2: ADO与ADOX

      我们先来对ADO 和ADOX进行简单的认识。在VB6中,使用ADO开发数据库应用程序时,我们要引用对象库"Microsoft ActiveX Data Objects 2.5 Library", 这个东西的简称就是ADO,它是VB6数据库最核心的对象群,也是VB数据库开发人员经常所引用的对象库,在VB6中你可以看到它的各种版本,从2.0版到2.6版都有,很多人对它已经很熟悉,在此我们不再详细介绍。如果要在程序运行过程中创建数据库和表,我们还要引用对象库"Microsoft ADO Ext 2.1. For DDL Security",简称为ADOX,其库文件名为是:Msadox.dll。ADOX是对 ADO 对象和编程模型的扩展,它将 ADO 扩展为包括创建、修改和删除模式对象,如表格和过程。它还包括安全对象,用于维护用户和组,以及授予和撤消对象的权限。ADOX的对象如下表所示:

    对象 说明
    Catalog 包含描述数据源模式目录的集合。
    Column 表示表、索引或关键字的列。
    Group 表示在安全数据库内有访问权限的组帐号。
    Index 表示数据库表中的索引。
    Key 表示数据库表中的主关键字、外部关键字或唯一关键字。
    Procedure 表示存储的过程。
    Table 表示数据库表,包括列、索引和关键字。
    User 表示在安全数据库内具有访问权限的用户帐号。
    View 表示记录或虚拟表的过滤集。


      ADOX常用方法有:Append(包括Columns、Groups、Indexes、Keys、Procedures、Tables、Users、Views)、Create(创建新的目录)、Delete(删除集合中的对象)、Refresh(更新集合中的对象)等等。有关 ADOX 的详细信息,请在 http://www.microsoft.com/data/ado 中参阅 Microsoft 发布的有关 ADOX说明的 Web 页。

      3: 在原有数据表的基础上产生新的数据表

      如果仅仅是在已有的数据表的基础上产生新的数据表,我们只要引用对象库"Microsoft ActiveX Data Objects 2.5 Library"再利用Select…Into语句就可以了。例如:有一个名为Wage.mdb的数据库,数据库中有一个名为"工资表"数据表,该数据表的字段有:编号、姓名、基本工资、津贴、应发工资、扣款、实发工资等,这个表中已经有很多的记录。现在我们把其中的实发工资大于2000的记录筛选出来组成一个新表,新表的名称由用户从文本框中输入,新表中我们只要三个字段,它们是:编号、姓名、实发工资。我们用下列程序就可以实现:

    (事先在窗体中添加一个文本框Text1和一个命令按钮Command1)

    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim command As New ADODB.command

    Private Sub Command1_Click()
     Dim bm As String
     Dim sql As String
     If Text1.Text <>"" Then
      bm = Trim(Text1.Text)
      sql= "Select 编号,姓名,实发工资 Into " + bm + " From 工资表 Where 实发工资>2000"
      Set command.ActiveConnection = conn
      command.CommandText = sql
      command.Execute
     Else
      MsgBox "你必须输入一个名字"
     End If

    Private Sub Form_Load()
     Dim str As String
     str = App.Path
     If Right(str, 1) <>"/" Then
      str = str + "/"
     End If
     pstr = "Provider=Microsoft.Jet.OLEDB.3.51;"
     pstr = pstr & "Persist Security Info=False;"
     pstr = pstr & "Data Source=" & str & "wage.mdb"
     conn.Open pstr
     rs.CursorLocation = adUseClient
     rs.Open "工资表", conn, adOpenKeyset, adLockPessimistic
     Set DataGrid1.DataSource = rs
    End Sub

      当然,我们还可以把程序设计得更好,比如:让用户先在窗口中任意选择所需的字段和一些条件,然后再组合生成一个新表。但无论如何,这种操作只能在从原表的基础上产生一个新表,不能产生一个数据库文件,并且新表和原表放在同一个数据库中。

     

        4: 建立新的数据库和表

      前面讲到的方法有一定的局限性,它不能让用户产生自己所需的数据库文件,即使能产生数据表也只能在原有表的基础上生成。我们现在的目的就是让用户利用ADO对象在程序运行过程中创建数据库和表,就好象他利用Access来建立数据库和表一样。为此,我们应该引用对象库"Microsoft ActiveX Data Objects 2.5 Library"和"Microsoft ADO Ext 2.1. For DDL Security"

      我们不妨用一个实例来说明具体的操作过程和方法。我们的实例要达到目的是:在程序运行过程中建立一个数据库,数据库的名称由用户输入。然后在数据库中建立一个名为"MyTable"的数据表,数据表中有三个字段,它们分别是:"编号"(整数型)、 "姓名"(字符型,宽度为8)、"住址" (字符型,宽度为50),接着在数据表中添加一条记录,最后在DataGrid控件中把记录的内容显示出来,并且让用户在DataGrid控件中任意修改、添加记录。

      首先在VB中新建一个窗体,然后在"工程"菜单中引用对象库"Microsoft ActiveX Data Objects 2.5 Library"和"Microsoft ADO Ext 2.1. For DDL Security"。接着定义三个窗体级的对象变量和一个窗体级的字符串变量,它们的具体定义是:

    Dim cat As New ADOX.Catalog '不用cat用另外一个名字也可以
    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim pstr As String '定义该变量是为了后面的书写方便

      为了更灵活地创建数据库,我们可以在窗体中加入一个通用对话框、一个DataGrid控件,三个命令按钮,它们的标题分别是:创建数据库和表、查看、更新。通用对话框的作用是给用户输入数据库文件名和决定数据库的存放位置。 "创建数据库和表"命令按钮对应的代码是:

    Private Sub Command1_Click()
     Dim fm As String 'fm变量用来获取用户输入的文件名
     CommonDialog1.Filter = "MDB文件(*.mdb)|*.mdb|AllFiles(*.*)|*.*|"
     CommonDialog1.FilterIndex = 1
     CommonDialog1.InitDir = "D:/Jthpaper"
     CommonDialog1.Flags = 6
     CommonDialog1.Action = 2
     If CommonDialog1.FileName = "" Then
      MsgBox "你必须输入一个文件名,请重新保存一次!"
      Exit Sub
     Else
      fm = CommonDialog1.FileName
     End If
     pstr = "Provider=Microsoft.Jet.OLEDB.4.0;" '不能把这里的4.0改为3.51
     pstr = pstr & "Data Source=" & fm
     cat.Create pstr '创建数据库
     Dim tbl As New Table
     cat.ActiveConnection = pstr
     tbl.Name = "MyTable" '表的名称
     tbl.Columns.Append "编号", adInteger '表的第一个字段
     tbl.Columns.Append "姓名", adVarWChar, 8 '表的第二个字段
     tbl.Columns.Append "住址", adVarWChar, 50 '表的第三个字段
     cat.Tables.Append tbl '建立数据表
     conn.Open pstr
     rs.CursorLocation = adUseClient
     rs.Open "MyTable", conn, adOpenKeyset, adLockPessimistic
     rs.AddNew '往表中添加新记录
     rs.Fields(0).Value = 9801
     rs.Fields(1).Value = "孙悟空"
     rs.Fields(2).Value = "广州市花果山"
     rs.Update
    End Sub

      上面程序中有一个需要说明的地方,这就是语句:pstr = "Provider=Microsoft.Jet.OLEDB.4.0;",这个语句表示Microsoft Jet OLEDB驱动程序的版本是4.0,这是目前最新的版本,利用它你可以用VB中的ADO对象访问Access2000及其以下版本所建立的数据库。你不能把这里的"4.0"改为"3.51",否则程序不能正常运行;在VB6中,3.51版本的Microsoft Jet OLEDB驱动程序对应的是Access97数据库。换而言之,用这种方法建立的数据库和表跟用Access2000所建立的数据库和表是同一类型的,你只能直接用Access2000来打开,虽然你可以用VB6来访问这种数据库和其中的数据表,但你不能用Access97或VB6中的"可视化数据管理器"来直接打开。

      在程序运行时只要用户单击该命令按钮就可以创建自己所需的数据库。"查看"命令按钮对应的代码是:

    Private Sub Command3_Click()
     Set DataGrid1.DataSource = rs
    End Sub
    "更新"命令按钮对应的代码是:
    Private Sub Command4_Click()
     rs.UpdateBatch
    End Sub

      我们这个实例只是用来说明问题,在实际应用当中你可以把它进一步改进,例如:你在窗体中再增加一些文本框和组合框,供用户输入或选择数据表的名称、字段的名称、字段的宽度和小数位数。这样,用户就可以自主地决定数据库的所有内容了,程序的灵活性也就大大提高了。

      5: 结束语

      如果你使用的是最新的数据访问接口技术ADO(Microsoft强烈建议大家使用这种最新技术),你又想在程序运行过程中创建数据库文件和数据表,此时,你应该在Visual Basic 6.0中引用对象库"Microsoft ActiveX Data Objects 2.5 Library"和"Microsoft ADO Ext 2.1. For DDL Security",然后使用ADOX对象的Create、Append等方法就可以实现。 这种方法使用的Microsoft Jet OLEDB驱动程序的版本是4.0,因此,使用这种方法建立的数据库文件和数据表可以直接使用Access2000打开。笔者在VB数据库软件开发过程中已多次使用这种方法,该方法在提高程序的灵活性和满足用户的特殊需要方面有很大的作用。

    展开全文
  • vb数据库

    千次阅读 多人点赞 2012-06-19 01:41:34
    Vb数据库的连接主要应用了ADO,它是一个用于存取数据源的COM组件。它提供了编程语言和 统一数据访问方式OLE DB的一个中间层。允许开发人员编写访问数据的代码而不用关心数据库是如何 实现的,而只用关心到数据库...


            Vb与数据库的连接主要应用了ADO,它是一个用于存取数据源的COM组件。它提供了编程语言和

    一数据访问方式OLE DB的一个中间层。允许开发人员编写访问数据的代码而不用关心数据库是如何

    现的,而只用关心到数据库的连接。

           OLE DB是一种低层的编程接口,ADO应用OLE DB可以实现对不同类型数据库的访问,它支持关

    或非关系型的数据源,比如各种类型的数据库,电子表格,电子邮件和文本文件等。OLE DB包括三

    组成部分:数据提供者,数据消费者和服务组件。


           数据提供者:Data Provider,指任何OLE DB的提供者。数据提供者从各种数据源读取数据,并

    些数据转换成消费者支持的格式,一般为关系型数据表。


           数据消费者:指使用数据提供者提供数据的应用程序。使用ADO的应用程序都是OLE DB的消费者。


           服务组件:起连接数据消费者和数据提供者的作用。在不需要数据消费者和数据提供者的情况下,

    数据转换为不同的类型。如下图为ADO数据控件,ADO,OLE DB和数据提供者之间的关系:


                  

    ADO对象模型

            ADO中共包含了7个对象,有三个独立对象和依赖独立对象才能使用的4个非独立对象。其实我们

    可以将这些对象看成是各个类,然后ADO是一组类的集合。因为它们和类的使用方法一样,这样更容

    易理解。

    例如:

                   


           1,       Connection:连接对象,用于创建数据源连接。在使用其他对象之前必须先建立数据源

    连接,然后在连接对象上创建和使用其他对象。

           2,       Command:命令对象,用于执行动作查询。比如删除/创建数据库,执行查询返回记录集,

    删除记录等操作。

           3,       Recordset:记录集对象,保存来自基本表或命令对象返回的结果。

           4,       Field:字段对象,依赖于记录集对象使用。可使用Fields集合来获取记录集中每个字段

    的信息。

           5,       Parameter:参数对象,依赖于命令对象使用,用于为参数查询提供数据。

           6,       Property:属性对象,每个连接对象,命令对象,记录集对象以及字段对象都有一个属性

    对象集合。

           7,       Error:错误对象,依赖连接对象使用。如果在访问数据库的过程中发生错误,这些错误

    的信息便保存到连接对象的Errors集合中。使用错误对象来定义处理相应错误的措施,避免应用程序

    在执行过程中意外终止。




    展开全文
  • VB数据库操作

    2007-10-29 20:52:55
    VB数据库操作 包括数据的删除,追加,更新的事例操作
  • 我个人因为经常作一些数据库方面的程序,对于程序间如何与数据库进行接口的问题之烦是深有体会,因为VB数据库链接的时候,一般是静态,即数据库存放的路径是固定的,如用VB的DATA,adodc,DataEnvironment 等到作...
    我个人因为经常作一些数据库方面的程序,对于程序间如何与数据库进行接口的问题之烦是深有体会,因为VB在数据库链接的时候,一般是静态,即数据库存放的路径是固定的,如用VB的DATA,adodc,DataEnvironment 等到作数据库链接时,如果存放数据库的路径被改变的话,就会找不到路经,真是一个特别烦的事。
    笔者的解决方法是利用app.path 来解决这个问题。 一、用data控件进行数据库链接,可以这样:
    在form_load()过程中放入:
    private form_load()
    Dim str As String '定义
    str = App.Path
    If Right(str, 1) <> "\" Then
    str = str + "\"
    End If
    data1.databasename=str & "\数据库名"
    data1.recordsource="数据表名"
    data1.refresh
    sub end
    这几句话的意为,打开当前程序运行的目录下的数据库。
    你只要保证你的数据库在你程序所在的目录之下就行了。
    二、利用adodc(ADO Data Control)进行数据库链接:
    private form_load ()
    Dim str As String '定义
    str = App.Path
    If Right(str, 1) <> "\" Then
    str = str + "\"
    End If
    str = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & str & "\tsl.mdb"
    Adodc1.ConnectionString = str
    Adodc1.CommandType = adCmdText
    Adodc1.RecordSource = "select * from table3"
    Adodc1.Refresh
    end sub
    三、利用DataEnvironment进行数据库链接
    可在过程中放入:
    On Error Resume Next
    If DataEnvironment1.rsCommand1.State <> adStateClosed Then
    DataEnvironment1.rsCommand1.Close '如果打开,则关闭
    End If
    'i = InputBox("请输入友人编号:", "输入")
    'If i = "" Then Exit Sub
    DataEnvironment1.Connection1.Open App.Path & "\userdatabase\tsl.mdb"
    DataEnvironment1.rsCommand1.Open "select * from table3 where 编号='" & i & "'"
    'Set DataReport2.DataSource = DataEnvironment1
    'DataReport2.DataMember = "command1"
    'DataReport2.show
    end sub
    四、利用ADO(ActiveX Data Objects)进行编程:
    建立连接:
    dim conn as new adodb.connection
    dim rs as new adodb.recordset
    dim str
    str = App.Path
    If Right(str, 1) <> "\" Then
    str = str + "\"
    End If
    str = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & str & "\tsl.mdb"
    conn.open str
    rs.cursorlocation=aduseclient
    rs.open "数据表名",conn,adopenkeyset.adlockpessimistic
    用完之后关闭数据库:
    conn.close
    set conn=nothing
    展开全文
  • 动态绑定数据库值到ComBoBox(实现模糊查找) VB.NET Private Sub BMID_TextUpdate(sender As Object, e As EventArgs) Handles BMID.TextUpdate Dim text As String = BMID.Text.Trim 'BMID为Combobox控件名 Di....
  • vb用控件ado连接sql server数据库后怎么设计一个登录界面,求源代码。。在线等,急。。。拜托大神赐教
  • VB连接数据库

    千次阅读 2009-09-30 22:02:00
    今天告诉大家VB连接数据库的方法,我知道的有两种: 一种是在 adodc1的属性里设置数据库文件的路径,这种方法的优点是简单易操作,缺点是,当源文件换了地方后,要重新设置数据库的路径,否则连接不上数据库了。...
  • 摘要: 本文阐述了在VB程序中利用ADO对象动态创建数据库和数据表的方法,这些方法在开发VB数据库应用程序中很有实用价值,它可以提高数据库程序灵活性。关键词:数据库、数据表、ADO、ADOX1: 问题的提出在Visual ...
  • VB数据库连接

    千次阅读 热门讨论 2017-06-25 17:05:12
    vb数据库结合过程 相信小伙伴们在敲完了学生管理系统后,会留有一个问题(标题),这里我们来浅谈一下这个过程,而非内部结构中的复杂程度。 首先我们在学习完VB课本后肯定了解了有四种连接数据库的方式(data ...
  • VB.Net中动态创建Access数据库

    千次阅读 2007-08-29 10:03:00
    VB.Net中动态创建Access数据库Imports ADOXModule Module1 Public Function CreateAccessDB(ByVal NewDBPathName As String) As Integer Dim i As Integer = 1 Dim cat As Catalog = New Catalog() 
  • VB操作access数据库

    千次阅读 2014-04-16 16:13:39
    第一次用VB来连接数据库,由于不了解VB语法,费了
  • VB.Net数据库编程

    千次阅读 2014-12-03 19:33:56
    众所周知,VB.NET自身并不具备对数据库进行操作的功能,它对数据库的处理是通过.NET FrameWork SDK中面向数据库编程的类库和微软的MDAC来实现的。其中,ADO.NET又是.NET FrameWork SDK中重要的组成部分。要了解VB...
  • VB操作ACCESS数据库实例

    热门讨论 2008-10-15 23:49:06
    VB操作ACCESS数据库实例,适用VB初学者
  • VB 数据库存取图片 示例代码

    热门讨论 2009-07-12 19:00:04
    VB 数据库存取图片 示例代码 VB 数据库存取图片 示例代码
  • VB6.0连接MySQL数据库

    2015-08-20 20:20:26
    新手使用VB6.0连接MySQL数据库,资料出自原创,思路清晰,步骤详细!
  • VB与sql图书管理系统数据库 VB与sql图书管理系统数据库
  • VB.net MenuStrip控件通过数据库生成多级动态菜单并添加单击事件 个人小白,一个多月前想通过 MenuStrip控件调用数据库数据生成多级联动下拉菜单,结果网上的资料都只是部分代码可用。经过一个月的东拼西凑终于能...
  • VB6.0编写 ADO对象连接操作Access数据库 VB6.0编写 ADO对象连接操作Access数据库

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 78,071
精华内容 31,228
关键字:

动态数据库vb