精华内容
下载资源
问答
  • VB6.0里的ADO控件怎么用?
    2021-01-19 18:55:54

    1,首先开启VB6.0时新建数据工程

    2,双击窗体在弹出的窗体中追加控件:Command1,Text1,Adodc1,DataGrid1其中DataGrid1是用来显示查询结果,Adodc1用来导航查询,Text1用来输入查询命令,Command1用来执行查询,下面是详细代码Private Sub Command1_Click()On Error GoTo err If Trim(Me.Text1.Text) "" Then If Adodc_Grid(Trim(Me.Text1.Text), Me.Adodc1, Me.DataGrid1) = True Then MsgBox "查询成功" Else '失败 End If Else MsgBox "请输入SQL查询语句" Exit Sub End If Exit Suberr: MsgBox err.DescriptionEnd SubPublic Function Adodc_Grid(Record_source As String, Adodc As Adodc, Grid As DataGrid) As Boolean '自定义的一个函数 On Error GoTo err Dim cnStr As String cnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\student.mdb ;Persist Security Info=False" With Adodc .ConnectionString = cnStr .CommandType = adCmdText .RecordSource = Record_source Set Grid.DataSource = Adodc .RefreshEnd With Adodc_Grid = True Exit Functionerr: Adodc_Grid = FalseEnd Function

    更多相关内容
  • VB中的ADO控件和DATAGrid数据打印报表的源代码,一个VB打印的例子,报表生成的例子,数据取自Access数据库,使用Ado将数据从Access读出后绑定在DataGrid报表中,在利用打印组件输出到打印机,效果截图如上所示。
  • ADO控件说明

    2015-11-13 09:59:04
    ADO控件的相关介绍以及使用说明,适合于初期学习者
  • VB为用户提供了很多访问数据库的方式:【方法一】使用ADO对象,通过编写代码访问数据库【方法二】使用ADO Data控件和数据环境设计器创建数据库连接,不编写代码访问数据库一、首先我还是以Access数据库为例,介绍ADO...

    目录:

    上篇文章,为大家讲解了数据库的接口,大家对ADO也有了较为基础的了解,这篇文章主要解决大家对ADO的用处的疑惑。VB为用户提供了很多访问数据库的方式:

    【方法一】使用ADO对象,通过编写代码访问数据库

    【方法二】使用ADO  Data控件和数据环境设计器创建数据库连接,不编写代码访问数据库

    一、首先我还是以Access数据库为例,介绍ADO对象访问数据库。

    在ADO众多的对象中,经常使用的对象有Connection对象、Command对象和Recordset对象等。

    ADO部分对象模型如图:

    1343295170_6455.jpg

    Connection对象——连接数据源对象

    ADO  Connection对象进行与数据源唯一的连接。ADO  Connection对象属性和方法如下:

    *ConnectionString属性:指定连接数据源的基本信息

    *Open方法:打开数据源连接

    *Close方法:关闭数据源连接

    Command对象——命令对象

    使用ADO  Command对象创建参数查询。一般步骤:创建Command对象,使用?作为Select语句中的查询参数

    objcmd.commandtext="SELECT * FROM 系统用户 WHERE 用户名 LIKE ?"

    使用command对象CreatParameter方法创建参数对象,然后将其添加到Command对象的Parameters集合中

    Dim parm as new parameter

    Set parm=objcmd.createparameter("用户名",advarchar,adparaminput,10)

    Objcmd.parameters.append parm

    设置查询参数的值

    Objcmd("用户名")="admin"

    执行Command对象的Execute方法完成查询

    Recordset对象——记录集对象

    使用ADO  Recordset 对象用于保存从数据源获得记录集。

    ADO  Recordset 对象的属性、集合和方法如下:

    *ActiveConnection属性:代表数据源的活动连接,通常将其设置为已建立的Connection对象

    *Eof属性:测试当前记录位置是否位于记录集的最后一个记录之后,eof属性将返回true,否则返回false。

    *Fields集合:包含Recordset对象的所有Field对象,即可使用Fields来获得当前记录各个字段的值。

    *Open方法:用于打开记录集,其参数为执行查询的SQL命令字符串

    例如:objrs.Open("SELECT 口令" FROM 系统用户 WHERE 用户名 = '"")

    有人会问了,ADO对象、应用程序和数据库有什么关系呢?我们用图表示一下:

    1343295179_9207.jpg

    ADO对象是连接应用程序和数据库的桥梁。

    二、使用ADO  Data控件和数据绑定设计器访问数据库

    1、先介绍ADO  Data控件访问数据库

    在“工程”/“部件”中选中Microsoft  ADO  Data  Control 6.0(OLEDB)添加到工具箱中,添加到窗体,下面详细介绍“属性页”对话框。右击ADO  Data控件,在弹出的菜单中选择“ADODC属性”命令打开“属性页”对话框

    1343295189_7542.png

    “通用”选项卡列出了,三种连接数据库的方式:

    1、Data  Link文件是包含连接字符串的文本文件,其扩展名为.udl。

    2、使用ODBC数据源,选中,输入数据源名称,创建ODBC数据源即可

    3、使用连接字符串,选中,生成连接字符串

    “身份验证”选项卡,设置登录数据源的身份信息

    1343295196_1788.png

    “记录源”,设置访问数据源的方式

    1343295215_3099.png

    “颜色”选项卡,设置控件的前景色和背景色

    “字体”选项卡,设置控件的标题的字体、大小和效果

    数据绑定控件的属性包括:

    *DataSouuce属性:用于返回或设置控件的数据源。

    *DataMemver属性:用于返回或设置控件使用的数据源中的特定数据集。(数据源中包含多个数据集,则需要设置该属性,在设置该属性时,vb可自动列出源中可用的数据集;数据源只包含一个数据集,则不需要设置该属性)

    *DataField属性:用于返回或设置绑定控件使用的特定字段。

    *DataFormat属性:设置从数据源获得数据时的自动化格式。

    2、数据环境设计器(Data  Environment  Dsigner)为访问数据库

    数据环境设计器为访问数据库提供了一个交互的设计时环境。

    打开:选择“工程”/“添加Data  Environment”命令可为工程添加一个数据环境设计器。在“工程资源管理器”窗口中双击数据环境,即可打开数据环境设计器。

    在设计时,可创建Connection和Command对象,编写ADO事件代码,执行Command,创建合计或层次结构的命令;还可拖动DataEnvironment对象到窗体或报表来创建数据绑定的控件。

    展开全文
  • VB演示使用ADO控件分页的例子,这例子或许对编写信息系统的有用,分页是必不可少的,使用ADO的若不知道如何对Datagrid分页的话,这个例子就相当适合你了。数据采用SqlServer。 运行环境:VB6+MSSQL
  • VB利用ADO控件连接access数据库今天告诉大家VB利用ADO控件连接access数据库的两种方法:一种是在adodc1的属性里设置数据库文件的路径,这种方法的优点是简单易操作,缺点是,当源文件换了地方后,要重新设置数据库的路径...

    VB利用ADO控件连接access数据库

    今天告诉大家VB利用ADO控件连接access数据库的两种方法:

    一种是在

    adodc1的属性里设置数据库文件的路径,这种方法的优点是简单易操作,缺点是,当源文件换了地方后,要重新设置数据库的路径,否则连接不上数据库了。

    一种是用代码设置数据库的路径,这种方法的优点就是只要源文件和数据库在同一文件夹下,无论移动到哪里都能连接上。

    如果没有建立好数据库的话,先建立一个数据库,然后建立一个表比如我们建的表名为message,然后把里面的字段名称和数据类型都按自己的需要设置好.然后保存就可以了.

    打开Microsoft

    Visual Basic6.0

    我用的是VB6.0,在需要调用数据库的窗体上加入一个adodc控件,默认名称为:Adodc1。默认的情况下工具栏里是没有这个控件的,可以打开工程---部件(快捷键CTRL+T),去掉只显示选定项的勾,然后勾上Microsoft

    ADO Data Control(OLEDB),然后确定,工具栏就会多了一个adodc的控件。

    第一种方法:设置adodc1的属以连接数据库.在adodc1控件上右键--Adodc属性--使用连接字符串--生成--Microsoft

    Jet 4.0 OLE DB Provider--下一步--选择或输入数据库名称---找到要连接的数据库后,确定.然后记录源设置属性.

    如果要把内容提交到数据库一般使用adCmdTable. 表选择要连接的表。

    设置完毕后就可以了.

    如果我们想把内容提交到数据库.举个例子..

    在窗体建立一个文本框,设置属性中的DataSource为adodc1 DataField为要连接的数据库的字段名。如果数据库中有字段,会让你选择。

    设置好后在窗体加一个添加记录和一个提交的按钮,设置代码:

    Private Sub Command1_Click()

    Adodc1.Recordset.Update '保存

    Adodc1.Refresh '刷新

    End Sub

    添加按钮代码:

    Private Sub Command2_Click()

    Adodc1.Recordset.AddNew '添加新纪录

    Adodc1.Recordset("姓名").Value = Text1.Text

    End Sub

    第二种方法:

    在窗体添加Adodc控件一个text控件 一个添加记录按钮一个提交按钮

    在窗体设置代码:

    Private Sub Form_Load()

    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data

    Source=" + App.Path + "\db1.mdb;Persist Security Info=False"

    '设置数据库路径

    Adodc1.CommandType = adCmdText '设置记录源

    Adodc1.RecordSource = "select * from message"

    '连接数据库的message表文件

    Set Text1.DataSource = Adodc1

    text1.DataField = "姓名"

    End Sub

    添加记录按钮代码:

    Private Sub Command1_Click()

    Adodc1.Recordset.AddNew '添加新纪录

    End Sub

    提交代码:

    Private Sub Command2_Click()

    Adodc1.Recordset.Update '保存

    Adodc1.Refresh '刷新

    End Sub

    好了连接方法讲完了,我都在机子上测试过了,因该没有什么问题的。如果有问题请多看几遍,或看些别人写的程序代码,会有很大进步的,我的VB也不好,因为不是计算机专业的,老师也没有教很多,高手莫笑。好了我再给大家几个查询数据库常用的代码:

    首记录按钮的代码:

    Private Sub sjl_Click()

    Adodc1.Recordset.MoveFirst

    End Sub

    上一条记录按钮代码:

    Private Sub up_Click()

    Adodc1.Recordset.MovePrevious

    If Adodc1.Recordset.BOF Then

    Adodc1.Recordset.MoveFirst

    End If

    End Sub

    下一条记录代码:

    Private Sub down_Click()

    Adodc1.Recordset.MoveNext

    If Adodc1.Recordset.EOF Then

    Adodc1.Recordset.MoveLast

    End If

    End Sub

    末记录代码:

    Private Sub mjl_Click()

    Adodc1.Recordset.MoveLast

    End Sub

    删除记录代码:

    Private Sub Command3_Click()

    Adodc1.Recordset.Delete

    Adodc1.Recordset.MoveNext

    If (Adodc1.Recordset.BOF Or Adodc1.Recordset.EOF) Then

    MsgBox "已经无记录", , "提示"

    End If

    End Sub

    如果有什么不对的地方,请大家指正。

    展开全文
  • VB利用ADO控件连接ACCESS数据库
  • VB利用ADO控件连接access数据库.pdf
  • Delphi中Ado控件SQL Server数据库开发.pdf
  • 使用ado控件可以方便的在vb6中访问odbc数据库,但是通过直接放置adods控件来获得ado的数据连接比较麻烦,我们可以在vb工程中创建一个公共数据模块,将ado控件的初始化、建立连接、关闭连接等操作都写到函数中,这样...

    使用ado控件可以方便的在vb6中访问odbc数据库,但是通过直接放置adods控件来获得ado的数据连接比较麻烦,我们可以在vb工程中创建一个公共数据模块,将ado控件的初始化、建立连接、关闭连接等操作都写到函数中,这样就可以在工程的其他模块中共享调用这个ado连接。

    一次完整的ado调用操作分为如下几个步骤:

    打开ado到数据库的连接,初始化ado recordset集。

    通过写入sql语句执行查询并返回查询结果recordset集;或者可以通过写入sql语句执行相应数据库操作。

    释放recordset集,关闭数据库连接。

    需要注意的是,每个动态创建的ado同时只能被一个过程调用,如果需要进行多表并行操作,可能需要在公共数据模块中建立多个动态ado。

    下面是相关的代码:

    —————————————————————–

    如下代码保存在名为my.bas的工程模块中

    public conn as adodb.connection        定义ado connection对象

    public rs as adodb.recordset           定义ado recordset对象

    ****************************

    打开数据库连接

    ****************************

    function connopen()

    dim astr as string

    set conn = new adodb.connection

    astr = getdatabasepath  mdb文件数据库路径

    conn.connectionstring = “provider=microsoft.jet.oledb.4.0;data source=” & astr & “;persist security info=false”

    本例的odbc连接为jet4.0的直接到mdb文件的连接,如果使用odbc数据源可以使用如下connection串:

    provider=msdasql.1;password=””;persist security info=true;data source=数据源名称;initial catalog=数据表库名称

    conn.open

    set rs = new adodb.recordset

    with rs do

    activeconnection = conn

    cursortype = adopendynamic

    locktype = adlockoptimistic

    end with

    end function

    ****************************

    关闭数据库

    ****************************

    function connclose()

    set rs = nothing

    conn.close

    set conn = nothing

    end function

    **********************************************************

    获得数据库路径

    本例数据库保存在程序目录下的dbs子目录中,名为db1.mdb

    **********************************************************

    public function getdatabasepath() as string

    dim spath as string

    if right$(app.path, 1) = “\” then

    spath = app.path + “dbs\”

    else

    spath = app.path + “\dbs\”

    end if

    getdatabasepath = spath + “db1.mdb”

    end function

    end of my.bas

    —————————————————————–

    如下示例代码为my.bas的使用方法:

    —————————————————————–

    使用rs对象执行select语句

    tablename和fieldname分别为表名和字段名

    查询结果保存在数组s中

    private sub runselectcommand()

    dim s(99) as string

    dim i as integer

    i=0

    call my.connopen

    my.rs.open “select * from tablename”

    while not rs.eof

    i=i+1

    if not isnull(my.rs!fieldname) then s(i)=cstr(my.rs!fieldname)

    rs.movenext

    wend

    call my.connclose

    end sub

    使用conn对象执行update/delete/insert语句

    sql语句放在变量ssql中

    private sub runsqlcommand()

    dim ssql as string

    call my.connopen

    my.conn.execute ssql

    call my.connclose

    end sub

    对于datagrid和datareport这些需要datasource的控件可以做如下操作

    使用select语句打开rs的数据集

    set obj.datasource=my.rs

    ———————————————————————

    这个方法对于开发简单小型的mis系统很实用,也可以在报表和数据表中使用,缺点是在多表操作和函数嵌套调用时,一个动态ado对象不能同时执行两个工作,后一个写入的sql语句会覆盖先写入的sql语句,当在回到前一个过程时,会因为字段找不到而出错。因此如果可能需要进行多表操作,可以尝试多定义几个conn 和rs对象。

    展开全文
  • vb+ado控件 操作

    2017-05-12 15:29:45
    vb+ado控件 操作增删改
  • ADO控件实现VB与SQL Server 2000的连接.pdf
  • VB6.0的ADO控件与SQL Server2000的数据交换.pdf
  • 使用Ado控件实现C_S方式的SQL Server7.0数据库编程.pdf
  • ADO控件实现VB与SQL Server 2000的连接 (1).pdf
  • Hook编程。如何安装钩子过程,如何编写全局钩子,动态连接库里的全局变量数据共享问题分析。ADO数据库编程。在VB中利用ADO控件和ADO对象访问数据库,在VC中利用ADO技术访问数据库。
  • VB 使用ADO控件访问DBase/FoxPro数据库,本实例通过备份数据库、备份SQL Server数据库、恢复指定路径下的数据库,来演示如何操作DBase/FoxPro数据库,其实是一些基础的操作,重点在学习ADO组件的使用方法,面向基础...
  • 由于Excel并不是关系型数据库管理系统,在使用VBA对关系型数据库进行访问时,需要通过设置ADO来访问关系型数据库系统。本文介绍向工程中添加ADO引用的方法。1、启动Excel并创建文档,打开Visual Basic编辑器,选择...
  • ADO控件

    2014-05-04 10:44:21
    ADO控件包含以下几个: 1 TADOConnection 用于建立数据库的连接 2 TADOCommand 3 TADODataSet 4 TADOTable 5 TADOQuery 6 TADOStoredProc 7 TRDSConnection   一 TADOConnection  用于建立数据库的连接...
  • 事务控制是数据库应用系统中的关键技术之一,本文一开始先对事务控制的概念以及微软的 ActiveX数据对象(ADO)的事务控制做了简介,之后以一个具体的实例给出ActiveX数据对象的事务控制在VB和DELPHI中的使用方法。...
  • ADO控件简介

    千次阅读 2014-02-04 21:39:14
    ADO控件简介 一、 TADOConnection组件 该组件用于建立数据库的连接.ADO的数据源组件和命令组件可以通过该组件运行命令及数据库中提取数据等. 该组件用于建立数据库的连接,该连接可被多个数据集所共享,但是并不是...
  • ADO控件示例 vb+SQL

    2010-12-19 08:43:20
    vb与数据库的连接,有窗体,有界面,比较实用的控件示例,精心设计
  • ADO控件,必不可少的。

    2010-05-24 21:31:16
    ADO控件,必不可少的。ADO控件,必不可少的。ADO控件,必不可少的。
  • vb 用ADO控件链接ACCESS 方法

    千次阅读 2017-01-16 19:52:24
    1.ado 控件右键属性,选择使用连接字符串 2.选择Micosoft.Jet.OLEDB. .40,( Microsoft.Jet.OLEDB.4.0是一种ACCESS数据库的搜索引擎,用于VB的ADO数据控件与ACCESS数据库代码连接.新建工程时选数据工程,此时VB6集成...
  • 利用delphi自带的ADO控件连接指定的DBF文件,可以通过SQL语句进行对DBF执行操作
  • 自己编写,通过测试,很容易明白,利用Ado控件和Ado对象操作数据库
  • ADO控件再封装

    2014-06-22 14:31:56
    ADO数据控件,适合一般的Visuai BASIC程序,
  • 包括内容: 使用adodc控件查找删除添加数据库记录 登录窗体的制作 PPT课件 学籍管理系统Visual Basic课程实训任务书

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 28,978
精华内容 11,591
关键字:

ado控件

友情链接: Modbus.rar.rar