精华内容
下载资源
问答
  • 在使用VB6.0软件编程过程中,收集了各种VB源码实例进行测试,然后按照自己的需要进行编辑整理。这里各种连接数据库方法的代码,适合新学者和初次编程人员进行参考。
  • 文件夹内有图片示例可以参考。。。
  • 主要介绍了VB语言使用ADO连接、操作SQLServer数据库教程,本文讲解详细、代码中有大量注释,是非常好的一篇教程,需要的朋友可以参考下
  • VB读取显示Access数据库中的数据,并运用SQL语句查询的实例,超简单的代码,刚学习VB不久的新手适合参考。
  • 一个命名空间中包含了4个类,实现对SQLServer数据库的select,insert,delete,update操作
  • VB 实例 +SQL数据库

    2011-11-25 09:20:14
    VB+SQL实例 打包 奉献
  • 程序首先引用EXcel部件、然后定义通用的变量,初始化Excel组建,打开选定的文件,设置其工作表的名称,执行SQL连接方法,查询语句,和返回的文本,循环,到数据库的总行,初始化连接数据的语句,这里要注意改成你自己的...
  • VBsql数据库的连接教程
  • VB分离SQL数据库文件

    2021-05-01 07:09:23
    摘要:VB源码,数据库应用,分离数据库 VB分离SQL数据库文件,从数据库服务器中分离出指定的数据库,保存在指定的文件夹中,在SQL管理器中,这个功能很容易就实现,用VB实现这一程序,也并不难。
  • VBSQL数据库操作

    2015-04-25 16:53:11
    VBSQL数据库的数据操作,删除,查询,添加等等
  • VB6.0 SqlServer数据库备份还原程序,你可以附加的数据库文件路径--(支持拖放),mdf和ldf文件存放的路径要对应LDF文件,需要你填写在SQL中还原的数据库的名字。操作方法:打开后首先需要连接数据库,不然会提示没有...
  • VB 连接 SQL 在局域网中使用 ,能快速提取数据库中数据,并做修改、删除等工作。能提取表中字段的值,并修改、删除、查询等。
  • 摘要:VB源码,数据库应用,信息管理 ...VbSQL数据库的商品信息管理程序源代码,是结合数据库使用存储过程查询的一个例子,测试前请先连接好数据库吧,需要的SQL文件在Database文件夹下。 运行环境:VB6+MSSQL
  • ifix4.5查询sql数据库VB代码.txt. 很简单的一个东西。
  • vb连接sql server数据库实例,主题是关于狗的介绍,很漂亮
  • vb sql(图书出版管理系统)附带数据库源码设计报告
  • VB连接SQL Server2000/2005 的一个简单实例,连接、查询、删除功能。 改编促进版,如有雷同,都是缘分。
  • vb连接sql数据库模块

    2013-01-06 13:30:10
    vb连接数据库常用的方法。已经写好了一个模块,只要添加模块,调用里边函数就可以了。
  • VB连接SQL数据库示例

    2010-12-01 20:25:26
    VB连接SQL数据库示例 建一个工程,建立一个form1,form1中的代码如下: Dim rsNew As ADODB.Recordset Dim CnNew As ADODB.Connection Dim wsh As New WshShell Dim serverlink As String Private Sub Command1_Click()
  • vb创建sql数据库实例

    2011-07-15 03:00:34
    许多程序使用sql数据库,安装时如果用手工方式建立新的数据库或恢复、还原数据库,相当费力。使用vb对备份好的数据库,在新的机器上进行新建和还原操作,十分方便。
  • 环境是server2003,sql为2008r2,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调用SQL数据库中存储过程的方法.pdf
  • ADO技术在VB访问SQL数据库中的应用.pdf
  • 基于VB.Net的SQL数据库操作

    千次阅读 2018-07-23 18:01:30
    本人是根据自己的经历,将有基于VB.Net的数据库的操作整理如下,或许不是很完整,后面有机会再补充。现将代码里面的大概内容叙述一下: New(connectstr)方法是创建带参数的SQLDataBase的实例; UpdateSQL...

     本人是根据自己的经历,将有基于VB.Net的数据库的操作整理如下,或许不是很完整,后面有机会再补充。现将代码里面的大概内容叙述一下:

    1. New(connectstr)方法是创建带参数的SQLDataBase的实例;
    2. UpdateSQL(updatecmd)方法是执行updatecmd数据库语句,更新数据库;
    3. ExecuteSQLToArray(CommandText)函数是通过Sqlreader来获取服务器数据库里面的值,返回的是二维字符串类型的数组;
    4. ExecuteSQLToDataTable(SelectCommandText)函数通过SqlDataAdapter来获取服务器数据库里面的值,返回的是DataTable对象,方便后期的处理;
    5. close()方法是释放资源,关闭数据库连接。
    '********************************
    ' Function: 定义SQL数据库操作的类
    ' Author: 要点理想色彩
    ' Createtime: 2018/07/23
    ' Remark: 
    '*******************************
    Imports System.Data.SqlClient
    Public Class SQLDataBase
        ' 数据库连接字符串
        Private cnstr As String = ""
        ' 数据库执行的SQL脚本
        Private sqlstr As String = ""
        ' 数据库连接对象
        Private cn As SqlConnection
        ' SQl执行语句命令
        Private cmd As SqlCommand
    
        ''' <summary>
        ''' 创建SQlDataBase类的实例,并打开以《connectstr》为连接字符串的数据库
        ''' </summary>
        ''' <param name="connectstr">连接数据库的字符串;例如:Data Source=IPadress;Initial Catalog=DataBaseName;Integrated Security=false;User ID=用户名;Password=密码;</param>
        ''' <remarks></remarks>
        Public Sub New(ByVal connectstr As String)
            ' 给数据库连接字符赋值
            If connectstr.Length = 0 Then
                MsgBox("connectstr为空,创建SQLDataBase失败")
                Exit Sub
            Else
                cnstr = connectstr
            End If
    
            ' 连接到数据库,并打开
            Try
                cn = New SqlConnection(cnstr)
                cn.Open()
            Catch ex As Exception
                MsgBox("错误代码为:" & Err.Number & vbCrLf & "错误描述为: " & Err.Description)
                Exit Sub
            End Try
        End Sub
    
        ''' <summary>
        ''' 执行SQL更新语句
        ''' </summary>
        ''' <param name="updatecmd"></param>
        ''' <remarks></remarks>
        Public Sub UpdateSQL(ByVal updatecmd As String)
    
            ' 给数据库执行脚本sqlstr赋值
            If updatecmd.Length = 0 Then
                MsgBox("updatecmd为空,无法更新数据库")
                Exit Sub
            Else
                sqlstr = updatecmd
            End If
    
            ' 给命令对象赋值
            cmd = New SqlCommand With {.CommandText = updatecmd, .Connection = cn}
    
            ' 定义执行SQL语句收影响的行数
            Dim influnrows As Integer
            Try
                influnrows = cmd.ExecuteNonQuery()
            Catch ex As Exception
                MsgBox("错误代码为:" & Err.Number & vbCrLf & "错误描述为: " & Err.Description)
                Exit Sub
            End Try
        End Sub
    
        ''' <summary>
        ''' 通过Sqlreader来获取服务器数据库里面的值,返回的是二维字符串类型的数组
        ''' </summary>
        ''' <param name="CommandText">Transact-SQL语句</param>
        ''' <returns>返回的是二维字符串类型的数组</returns>
        ''' <remarks></remarks>
        Public Function ExecuteSQLToArray(ByVal CommandText As String) As String(,)
    
            ' 定义函数的返回结果
            Dim FunRet As String(,) = Nothing
            ' 定义数据库reader对象
            Dim reader As SqlDataReader = Nothing
    
            ' 给数据库执行脚本sqlstr赋值
            If CommandText.Length = 0 Then
                MsgBox("updatecmd为空,无法更新数据库")
                Return FunRet
            Else
                sqlstr = CommandText
            End If
    
            ' 给命令对象赋值
            cmd = New SqlCommand With {.CommandText = CommandText, .Connection = cn}
            ' 给reader对象赋值
            reader = cmd.ExecuteReader()
    
            '判断是否有结果
            If reader.HasRows = False Then
                Return FunRet
            End If
    
    
            '*********************
            'remarks:因为reader是一条一条语句的读取, reader只能获取列数, 不能获取行数, 因此需要将总的记录除以列数皆可以获取行数
            '*********************
    
            ' 定义函数返回数组的列数和行数
            Dim lstReader As New List(Of String)
            Dim intColumnCount As Integer
            Dim intRowsCount As Integer
    
            '将结果集存到listReader列表
            intColumnCount = reader.FieldCount
            While reader.Read()
                For i = 0 To intColumnCount - 1
                    lstReader.Add(reader.GetValue(i).ToString) '//如果数据库里面是null,则返回的是空值
                Next
            End While
    
            '获取结果集的行数
            intRowsCount = lstReader.Count / intColumnCount
    
            '将结果转化为二位数组
            ReDim FunRet(intRowsCount - 1, intColumnCount - 1)
            Dim index As Integer = 0
            For j = 0 To UBound(FunRet, 1)
                For i = 0 To UBound(FunRet, 2)
                    FunRet(j, i) = lstReader.Item(index)
                    index = index + 1
                Next
            Next
    
            '将函数的结果返回
            Return FunRet
        End Function
    
        ''' <summary>
        ''' 通过SqlDataAdapter来获取服务器数据库里面的值,返回的是DataTable对象
        ''' </summary>
        ''' <param name="SelectCommandText">Transact-SQL语句</param>
        ''' <returns>返回的是二维字符串类型的数组</returns>
        ''' <remarks></remarks>
        Public Function ExecuteSQLToDataTable(ByVal SelectCommandText As String) As DataTable
    
            ' 定义函数的返回结果
            Dim FunRet As New DataTable
    
            ' 给数据库执行脚本sqlstr赋值
            If SelectCommandText.Length = 0 Then
                MsgBox("updatecmd为空,无法更新数据库")
                Return FunRet
            End If
    
            '将结果填充到SqlDataAdapter中
            Dim sda As SqlDataAdapter
            sda = New SqlDataAdapter(SelectCommandText, cn)
            sda.Fill(FunRet)
    
            '返回函数的值
            Return FunRet
        End Function
    
        ''' <summary>
        ''' 释放资源,关闭数据库连接
        ''' </summary>
        ''' <remarks></remarks>
        Public Sub close()
    
            '关闭cmd对象
            If IsNothing(cmd) = False Then
                cmd = Nothing
            End If
    
            '断开和数据库的连接
            If IsNothing(cn) = False Then
                cn.Close()
            End If
        End Sub
    End Class

     

    展开全文
  • 摘要:VB源码,数据库应用,SQL查询  VB进行SQL语句查询的演示程序源代码,适合输入SQL查询语句,即可对数据库进行查询。测试注意:需要先打开VB工程,重新设置窗体中AdoData控件的ConnetionString属性中数据库路径...
  • 三分钟快速解决vs2015连接数据库显示该文件正在使用/该sql文件被占用等问题 一、写在开头 继续挣扎在学校的课程设计中 二、发现问题 我在做课程设计的时候发现没有办法连上数据库(我用的是sql server2008版本)总是...
  • VB 楼盘销售管理系统 SQL数据库,主要是房屋资料录入、维护修改、客户资料维护修改、统计查询等,数据库需要导入SQL脚本重建,并没有现成的数据库,源码可直接编译,无错误。
  • 基于VBSQL数据库编程技术 怎样建立VB数据库的连接与报表开发
  • 新手学习Vb.net对数据库进行操作

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 41,323
精华内容 16,529
关键字:

vb查询sql数据库显示