精华内容
下载资源
问答
  • 要查找数据库信息,关键是要解决链接数据库的问题,下面简述Vb如何SQL数据库:有两种方法可以实现,一种是通过ODBC数据源配置进行连接,一种是通过纯代码编辑进行连接,下面我们就详细介绍一下这两种连接方法。...

    要查找数据库信息,关键是要解决链接数据库的问题,下面简述Vb如何SQL数据库:

    有两种方法可以实现,一种是通过ODBC数据源的配置进行连接,一种是通过纯代码编辑进行连接,下面我们就详细介绍一下这两种连接方法。

    ODBC数据源VB连接SQL数据库

    一、配置ODBC数据源

    1、在控制面板中,双击管理工具,然后打开ODBC数据源管理器。

    2、在“系统DSN”选项卡中,单击“添加”按钮,打开“创建新数据源”对话框,在“名称”列表框中选择“SQL Server”。选好单击完成

    3、在打开“建立新的数据源到SQL Server”对话框,在“名称”文本框输入新数据源的名称,描述数据源按你理解的方式来写(随意)。“服务器”就选择你要连接到的服务器。

    4、选择使用用户输入登录的ID和密码的SQL 验证。选连接SQL默认设置

    5、再下一步下一步,完成。测试数据源看连接是否成功就行了。成功后按确定。

    二、VB中设置连接

    1、添加部件Mircrosoft ADO Data Control 6.0(OLEDB),把部件拖到窗体。

    2、对ADO部件点右键选属性,选择使用连接字符串,按生成。

    3、选择Mircosoft OLE DB Providar for SQL Server按下一步

    4、

    1)输入服务器名称

    2)使用指定的服务器信息

    3)在服务器上选择数据库

    这时就选择你在SQL Server建好的数据库就行了

    5、测试连接可以看到连接是否成功!

    通过代码VB连接SQL数据库

    Public conn As New ADODB.Connection

    Public rs As New ADODB.Recordset

    Public addFlag As Boolean

    Public Function OpenCn(ByVal Cip As String) As Boolean

    Dim mag As String

    On Error GoTo strerrmag

    Set conn = New ADODB.Connection

    conn.ConnectionTimeout = 25

    conn.Provider = "sqloledb"

    conn.Properties("data source").Value = Cip '服务器的名字

    conn.Properties("initial catalog").Value = "zqoa" '库名

    'conn.Properties("integrated security").Value = "SSPI" '登陆类型

    conn.Properties("user id").Value = "sa"

    conn.Properties("password").Value = "sa"

    conn.Open

    OpenCn = True

    addFlag = True

    Exit Function

    strerrmag:

    mag = "Data can't connect"

    Call MsgBox(mag, vbOKOnly, "Error:Data connect")

    addFlag = False

    Exit Function

    End Function

    Public Sub cloCn()

    On Error Resume Next

    If conn.State <> adStateClosed Then conn.Close

    Set conn = Nothing

    End Sub

    Public Function openRs(ByVal strsql As String) As Boolean '连接数据库记录集

    Dim mag As String

    Dim rpy As Boolean

    On Error GoTo strerrmag

    Set rs = New ADODB.Recordset

    If addFlag = False Then rpy = True

    With rs

    .ActiveConnection = conn

    .CursorLocation = adUseClient

    .CursorType = adOpenKeyset

    .LockType = adLockOptimistic

    .Open strsql

    End With

    addFlag = True

    openRs = True

    End

    'Exit Function

    strerrmag:

    mag = "data not connect"

    Call MsgBox(mag, vbOKOnly, "error:connect")

    openRs = False

    End

    'Exit Function

    End Function

    Public Sub cloRs()

    On Error Resume Next

    If rs.State <> adStateClosed Then rs.Clone

    Set rs = Nothing

    End Sub

    取消

    评论

    展开全文
  • 摘要:VB源码,数据库应用,动态查询  VB动态查询数据库中的数据,可选择查询字段,输入查询内容对数据库进行搜索,然后使用MSFlexGrid控件显示出数据。高手就不用看了,本实例主要面向Vb初学者或对数据库操作不...
  • VB中查询SQL数据库表内容

    千次阅读 2007-06-29 23:39:00
    怎么样在VB中查询SQL数据库表内容最后以文本形式显示出来?快啊!最好是程序。Dim sqlcon As New ADODB.ConnectionDim cmd as New ADODB.CommandDim rs as new ADODB.Recordset sqlcon.Provider = "sqloledb" ...

     怎么样在VB中查询SQL数据库中的表内容
    最后以文本形式显示出来?
    快啊!最好是程序。

    Dim sqlcon As New ADODB.Connection
    Dim cmd as New ADODB.Command
    Dim rs as new ADODB.Recordset
      sqlcon.Provider = "sqloledb"
      sqlcon.Properties("Data Source").Value = "SLMAIL"  '// SLMAIL 为SQL Server 服务器名
       sqlcon.Properties("Initial Catalog").Value = "BTS"        '//BTS 为已创建数据库名
       sqlcon.Properties("persist security info").Value = "False"
       sqlcon.Properties("user id").Value = "sa"
       sqlcon.Properties("password").Value = "**"
       sqlcon.Open
       cmd.commandtext="select sdate,sname from table"
        Cmd.ActiveConnection = sqlcon
       Set rs = Cmd.Execute
       Open "G:/test/data.txt" For Output As #1
     
     While Not rsprint.EOF
      
       THData = rs!sdate & vbTab & rsp!sname
       Print #1, THData
       rsp.MoveNext
     Wend
     Close #1
     rs.Cancel
     rs.Close
     sqlcon.Close

    大体就是这个步骤了,你可以把数据库连接写到 Module中

    展开全文
  • vb查询access数据库并返回显示结果

    热门讨论 2009-09-03 11:18:54
    绝对原创的vb查询access数据库 本程序功能如下: 1.将数据库mycnno.mdb的数据显示在控件datagrid 2.用文本框1输入要查询的学号,文本框2显示查询的结果
  • VB读取显示Access数据库中的数据,并运用SQL语句查询的实例,超简单的代码,刚学习VB不久的新手适合参考。
  • (转)VB6实现多线程数据库大数据查询 VB6本身无法实现多线程编程,但是...在等待查询的过程,主界面会给用户简单的提示,提示用户后台正在处理数据。 例子中用到了Threadfactory 4 和VSFlexGrid8。站内都有资源。
  • 多线程在.net实现是非常容易的。 VB6本身无法实现多线程编程,但是通过第...在等待查询的过程,主界面会给用户简单的提示,提示用户后台正在处理数据。 例子中用到了Threadfactory 4 和VSFlexGrid8。站内都有资源。
  • 使用PRINT一般是写程序时观察中间结果,对于你说这种情况,可以直接用SELECT输出结果,在存储过程里也可以这样。如果是在函数或者触发器里,可以建个测试表,如果是表值函数则可以定义一个表变量。如果一定要print...

    使用PRINT一般是写程序时观察中间结果,对于你说的这种情况,可以直接用SELECT输出结果,在存储过程里也可以这样。如果是在函数或者触发器里,可以建个测试表,如果是表值函数则可以定义一个表变量。

    如果一定要print,那么这样吧:

    delcare @number int

    declare @course nvarchar(30) --for example

    select @number=number,@course=course from choice where studentnumber = '20100001'

    print @number

    print @course

    这是楼上的朋友的劳动成果,望勿见怪

    如果一定要PRINT全部的,那么用游标吧:

    declare @info varchar(200)

    declare @curs cursor

    set @curs=cursor scroll dynamic

    for

    select 'number='+convert(varchar(20),number)+'; course='+convert(varchar(20),course) from choice where sex='F'

    open @curs

    fetch next from @curs into @info

    while(@@fetch_status=0)

    begin

    print @info

    fetch next from @curs into @info

    end

    取消

    评论

    展开全文
  • 我输入a,然后查询的结果是eafg 1个而已,应该有3个才对 Dim cnn As ADODB.Connection Dim rec As New ADODB.Recordset Private Sub Command_Chaxun_Click() List1.Clear List2.Clear Set cnn = New ADODB....
  • VB查询数据库并实现打印

    热门讨论 2011-09-22 08:58:01
    VB界面上输入查询的条件,通过点击查询按钮,将查询出来的数据在DATAGRID中显示,并将其在报表上打印出来。
  • 用datagrid控件,下面是一篇控件使用方法,你可以看看使用 DataGrid 控件DataGrid 控件是一种类似于电子数据表绑定控件,可以显示一系列行和列来表示 Recordset 对象记录和字段。可以使用 DataGrid 来创建一个...

    用datagrid控件,下面是一篇控件使用方法,你可以看看使用 DataGrid 控件DataGrid 控件是一种类似于电子数据表的绑定控件,可以显示一系列行和列来表示 Recordset 对象的记录和字段。可以使用 DataGrid 来创建一个允许最终用户阅读和写入到绝大多数数据库的应用程序。DataGrid 控件可以在设计时快速进行配置,只需少量代码或无需代码。当在设计时设置了DataGrid 控件的 DataSource 属性后,就会用数据源的记录集来自动填充该控件,以及自动设置该控件的列标头。然后您就可以编辑该网格的列;删除、重新安排、添加列标头、或者调整任意一列的宽度。

    在运行时,可以在程序中切换 DataSource 来察看不同的表,或者可以修改当前数据库的查询,以返回一个不同的记录集合。

    注意 DataGrid 控件与 Visual Basic 5.0中的 DBGrid 是代码兼容的,除了一个例外:DataGrid 控件不支持 DBGrid 的“解除绑定模式”概念。DBGrid 控件包括在 Visual Basic 的 Tools 目录中。可能的用法

    查看和编辑在远程或本地数据库中的数据。

    与另一个数据绑定的控件(诸如 DataList 控件)联合使用,使用 DataGrid控件来显示一个表的记录,这个表通过一个公共字段链接到由第二个数据绑定控件所显示的表。使用 DataGrid 控件的设计时特性

    可以不编写任何代码,只通过使用 DataGrid 控件的设计时特性来创建一个数据库应用程序。下面的说明概要地说明了在实现 DataGrid 控件的典型应用时的一般步骤。完整的循序渐进的指示,请参阅主题“DataGrid 方案1: 使用 DataGrid 控件创建一个简单数据库应用程序”。

    要在设计时实现一个 DataGrid 控件

    1. 为要访问的数据库创建一个 Microsoft 数据链接 (.MDL) 文件。请参阅“创建 Northwind OLE DB 数据链接”主题,以获得一个示例。

    2. 在窗体上放置一个 ADO Data 控件,并将其 ConnectionString 属性设置为在第 1 步中所创建的OLE DB 数据源。

    3. 在这个 Ado Data 控件的 RecordSource 属性中输入一条将返回一个记

    录集的 SQL 语句。例如,Select * From MyTableName Where CustID = 12

    4. 在窗体上放置一个 DataGrid 控件,并将其 DataSource 属性设置为这个 ADO Data 控件。

    5. 右键单击该 DataGrid 控件,然后单击“检索字段”。

    6. 右键单击该 DataGrid 控件,然后单击“编辑”。

    7. 重新设置该网格的大小、删除或添加网格的列。

    8. 右键单击该 DataGrid 控件,然后单击“属性”。

    9. 使用“属性页”对话框来设置该控件的适当的属性,将该网格配置为所需的外观和行为。在运行时更改显示的数据

    在创建了一个使用设计时特性的网格后,也可以在运行时动态地更改该网格的数据源。下面介绍实现这一功能的通常方法。更改 DataSource 的RecordSource

    更改所显示的数据的最通常方法是改变该 DataSource 的查询。例如,如果DataGrid 控件使用一个ADO Data控件作为其 DataSource,则重写RecordSource和刷新该ADO Data 控件都将改变所显示的数据。

    ' ADO Data 控件连接的是 Northwind 数据库的' Products 表。新查询查找所有

    ' SupplierID = 12 的记录。

    Dim strQuery As String

    strQuery = "SELECT * FROM Suppliers WHERE SupplierID = 12"

    Adodc1.RecordSource = strQuery

    Adodc1.Refresh更改 DataSource

    在运行时,可以将 DataSource 属性重新设置为一个不同的数据源。例如,您可能具有若干个 ADO Data 控件,每个控件连接不同的数据库,或设置为不同的 RecordSource 属性。可以简单地将 DataSource 从一个 ADO Data控件重新设置为另一个 ADO Data 控件:

    ' 将 DataSource 重新设置为一个连接到 Pubs 数据库的、

    ' 使用 Authors 表的 ADO Data 控件。

    Set DataGrid1.DataSource = adoPubsAuthors重新绑定 DataSource

    当将 DataGrid 控件用于一个远程数据库,诸如 SQLServer 时,可以改变表的结构。例如,可以给这个表添加一个字段。在这种情形下,可以调用Rebind 方法根据新的结构来重新创建该网格。注意,如果已经在设计时改变了这个列的布局,DataGrid 控件将会试图重新创建当前的布局,包括任何空的列。不过,通过首先调用 ClearFields 方法,可以强制该网格重新设置所有的列。从 DataGrid 返回值

    在 DataGrid 被连接到一个数据库后,可能想要监视用户单击了哪一个单元。可以使用 RowColChange 事件——而不是 Click 事件。如下所示:

    Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)

    ' 显示用户所单击的单元的文字、行和列的信息。

    Debug.Print DataGrid1.Text; DataGrid1.Row; DataGrid1.Col

    End Sub使用 CellText 和 CellValue 方法

    当一个列使用 NumberFormat 属性设置格式后,CellText 和 CellValue 属性是很有用的。NumberFormat 属性不必更改实际的数据格式就可以更改任何包含数字的列的格式。例如,给定一个网格,其中包含一个名为 ProductID的、包含整数的列。下面的代码将使 DataGrid 以"P-0000" 的格式来显示数据。换句话说,尽管在 ProductID 字段中所包含的实际数值为 "3",但该网格所显示的值将是 "P-0003"。

    Private Sub Form_Load()

    DataGrid1.Columns("ProductID").NumberFormat = "P-0000"

    End Sub

    要返回数据库中所包含的实际值,应使用 CellValue 方法,如下所示:

    Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)

    Debug.Print _

    DataGrid1.Columns("ProductID").CellValue(DataGrid1.Bookmark)

    End Sub

    注意 上面所用的 CellValue 和下面所用的 CellText 值,都需要将Bookmark 属性作为一个参数,功能才正确。

    相反地,如果要返回该字段的格式化的值,应使用 CellText 方法:

    Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)

    Debug.Print _

    DataGrid1.Columns("ProductID").CellText(DataGrid1.Bookmark)

    End Sub

    注意 上面的 CellText 方法等价于使用 DataGrid 控件的 Text 属性。下一步

    要阅读关于使用该控件创建简单的应用程序的一个循序渐进的过程,请参阅“使用 DataGrid 控件创建简单的数据库应用程序”,或“创建一个连接DataList 控件的 DataGrid”。

    要了解关于 Split 对象以及如何对其编程的详细信息,请参阅“操作DataGrid 视图”。

    本文来自-编程入门网: http://www.bianceng.cn/Programming/vb/200705/550.htm

    展开全文
  • 打开excel就能看到数据库查询结果,而且能定时自动完成查询并更新数据,想要实现么?...1、打开excel中的vb 表单名称->右键->查看代码 2、双击上图模块1 添加查询数据库及定时执行代码 ...
  • 并将查询的数据显示在表格控件。该例子为“学生信息管理系统”,顾名思义是用来存储、管理学生信息的系统,学生信息包含学号、姓名、班级、联系方式。学号为主键(不可重复),姓名、班级、联系方式可以相同。添加...
  • VB.Net数据库项目之,经常会用到关联查询的功能,例如下图所示: 点击左侧学生姓名,右侧显示数据库里调入此学生的成绩。 步骤如下: 1、在页面加载时,分别通过dataset加载学生表Student与成绩表Score。 ...
  • 由于VB中的记录集对象与所使用的数据库格式及类型是相互独立的,所以在非Access数据库中也可以使用数据库存取对象变量的方法。因而 对FoxPro等外来数据库而言,使用数据库存取对象变量的方法同样也是一种最佳的选择...
  • 而这一节我们重点要讲是mysql查询工具,一般后台产品经理或者后台开发人员都会在自己电脑上安装一个Navicat,这个是后台产品和后台开发人员经常用一个数据库查询工具。Navicat--数据库查询工具我们一起打开这...
  • 这是窗体里代码:executesql "insert into 收入(日期,方式,金额,项目,序号) values(" & Format(DTPicker1.Value, "yyyy-mm-dd") & "," & Combo2.Text & "," & Text...执行之后数据显示成功但是数据库查不到输入数据
  • 本程序使用ASP.NET中的VB.NET编写,通过连接SQL server数据库,实现了对数据表操作 2.程序所能实现功能: 管理员登录:具有查询学生信息、录入学生信息、录入课程、录入课程成绩、具有重置所有身份人员密码...
  • 由于SUN公司提供JDK1.x开发工具包不是可视化集成开发环境 (IDE),不能象Delphi、VB那样方便地把查询结果在DBGrid等表格中显示出来。因此,只能靠自己编写代码来实现。本文介绍了可以利用Vector、JTable、...
  • vb程序包含了串口通信和数据处理及数据查询,实时车辆数据显示在窗口,同时存储在数据库中,点击历史数据查询后能对以往数据进行查询
  • 基于VB6自主研发轻量级数据库查询客户端工具,启动速度较快,所占资源较小。 附源码,对初学数据库编程童鞋有所裨益! 1、支持SQLServer、Oracle、Sybase、DB2数据库平台 2、单句执行:可以提交单一SQL语句...
  • VB ADO 数据库 初步体验

    千次阅读 2009-07-21 10:47:00
    这几天做了五个基础的VB数据库开发例子他们分别是:系统登录、使用ADO访问数据源、使用数据绑定访问数据、分页显示记录、和数据查询。这几个例子所涉及到都是对数据库的访问操作,用到了Sql语言中的SEIECT语句。...
  • vb创建数据库

    2013-04-10 23:55:12
    从学生表中查询性别为男学生,显示其学号和姓名并使结果按学号升序排列。 添加记录 INSERT INTO 数据表名(字段名1,字段名2……) VALUES(数据1,数据2……) 举例:insert into student (xh, xm, xb) values...
  • VB查询数据库之结账——机房收费系统总结(五)

    千次阅读 热门讨论 2013-12-13 12:58:02
    对于机房收费结账,我感觉是所有窗体,最难一个。这个窗体我真做了好多天。它难度系数我感觉是最高。... 然后,在结账窗口,链接数据库显示出所有该用户未结账信息。  最后,在点击结
  • 用户在执行数据库查询操作时,流程一般是:SqlDataAdapter从数据库中获取数据,并将其用Fill方法存储在DataSet,然后将DataGridView控件数据源绑定为DataSet,即可将查询结果显示出来,整个过程只需要
  • 由于SUN公司提供JDK1.x开发工具包不是可视化集成开发环境(IDE),能象Delphi、VB那样方便地把查询结果在DBGrid等表格中显示出来。因此,只能靠自己编写代码来实现。 ---- 在实际应用中,我们可以利用Vector、...

空空如也

空空如也

1 2 3 4 5 ... 15
收藏数 298
精华内容 119
关键字:

vb中显示查询的数据库