精华内容
下载资源
问答
  • 要查找数据库信息,关键是要解决链接数据库的问题,下面简述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查询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中

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

    使用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

    取消

    评论

    展开全文
  • VB读取显示Access数据库中的数据,并运用SQL语句查询的实例,超简单的代码,刚学习VB不久的新手适合参考。
  • VB开发的SQLSERVER数据库工具集,适用于Windows Xp、Windows 2000、Windows 2003,只对 SQL Server 2000 数据库进行过操作,对其他版本的 SQL Server 没试过。调用的时候直接Msgbox GetIPAddress("机器名")即可,如...
  • 这是窗体里的代码:executesql "insert into 收入(日期,方式,金额,项目,序号) values(" & Format(DTPicker1.Value, "yyyy-mm-dd") & "," & Combo2.Text & "," & Text...执行之后数据显示成功但是数据库查不到输入的数据
  • 这个样例,因为在ADO.net入门已经专门学了,再次进行复习 一下。 主要掌握连接字串的情况。 过程就是: ...1、引用System.Data.SqlClient。...3、DataGridView绑定显示。 连接字串例如以下: Data Source...

    这个样例,因为在ADO.net入门已经专门学了,再次进行复习 一下。


    主要掌握连接字串的情况。

    过程就是:

    1、引用System.Data.SqlClient。而Access中引用 的是System.Data.OleDB.所以是有差别的

    2、相关连接、适配器、数据集。

    3、DataGridView绑定显示。


    连接字串例如以下:

    Data Source                     IP地址或计算名(数据库所在位置的),假设是本地计算机能够用(local)或直接用.来取代,或者本地IP:127.0.0.1取代。

    Initial  Catalog                  数据库名

    Integrated Security      安全连接情况(真或假),若是Windows验证方式则为真,若是username及password登录则为假。

    User ID                         上项为假时,提供username

    Password                     ...................,提供password。


    因此,就上面五项就瓮中保证了字串。

    如:本地上Sales数据库,username为sa,password为123456,各项之间用分号隔开,则字串为例如以下:

    Data Source=(Local);Initial Catalog=Sales;Integrated Security=False;User ID=sa;Password=123456;

    由于在本地所以用了(Local),还可直接用点号来取代,同一时候若本地计算机名为Zheng,还可用Zheng。


    以下正题:

    在SQlServer2012中建立一个Sales数据库,再在当中建立一个表grade.情况例如以下:




    打开VS2012,建立一个窗口,加入一DataGridView控件,双击窗口建立代码:

    Imports System.Data.SqlClient
    
    Public Class Form1
        Dim cn As SqlConnection
        Dim da As SqlDataAdapter
        Dim ds As DataSet
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            Dim cnStr As String = "Data Source=(local);Initial Catalog=Sales;Integrated Security=False;User ID=sa;Password=123456;"
            cn = New SqlConnection(cnStr)
            da = New SqlDataAdapter("select * from grade", cn)
            ds = New DataSet()
            da.Fill(ds, "grade")
            DataGridView1.DataSource = ds.Tables("grade")
        End Sub
    End Class

    执行结果例如以下:



    本例仅仅须记住SQlserver连接时,连接字串的“5个”关键值即可了。



    ===================================================


    细节:

    da.Fill(ds, "xxx")
    DataGridView1.DataSource = ds.Tables("xxx")

    这两句的xxx表示表名,  这个表名与原数据库的表名能够不一样。

    由于这里是DataSet结果集中的表了,不是原数据库中的,用户自定义的表名,因此能够随意命名,但这两名应保持一致。


    一般都不会自己 再定义,假设有特殊情况时,这个自己定义情况就可发挥作用。


    转载于:https://www.cnblogs.com/blfshiye/p/4294458.html

    展开全文
  • 这个例子,由于在ADO.net入门已经专门学了,再次进行复习 一下。 主要掌握连接字串的情况。 过程就是: ...1、引用System.Data.SqlClient。...3、DataGridView绑定显示。 连接字串如下: Data Source
  • 用datagrid控件,下面是一篇控件使用方法,你可以看看使用 DataGrid 控件DataGrid 控件是一种类似于电子数据表的绑定控件,可以显示一系列行和列来表示 Recordset 对象的记录和字段。可以使用 DataGrid 来创建一个...
  • 我想显示我想要选择但我只得到一行 . 怎么解决它PLZ?我只得到第一行数据,但是当我在第二轮中进行do时,它会跳过循环并结束进程 .ListView1.Items.Clear()SQLstring = "SELECT * From record WHERE member_code ...
  • vb创建数据库

    2013-04-10 23:55:12
    从学生表中查询性别为男的学生,显示其学号和姓名并使结果按学号升序排列。 添加记录 INSERT INTO 数据表名(字段名1,字段名2……) VALUES(数据1,数据2……) 举例:insert into student (xh, xm, xb) values...
  • 问题:VB6.0使用ADO对象模型访问数据库,怎么读取sql数据 **需求 :我想把sql数据显示在文本框里面,点击命令按钮才出现** Private Sub Command1_Click() Dim mycon As New ADODB.Connection '1,使用...
  • VB6.0使用代码连接SQL2000数据库进行显示,添加删除,查询数据表
  • 同样,修改只是把结果返回数据库,不会显示。 因此,用一个判断来提示用户,修改是成功或者是失败,这样用户才好进行下一步。 这个例子,更简单,因为我们减少了再一次查询结果的代码。 因为...
  • rs.Open "SELECT * FROM 商品库 where 商品编号 ='" & (商品编号.Text) & "'", mcon, 1, 1 If Not rs.EOF Then ... 请问,这句代码如何修改,才可以改为SQL语句查询结果为Null时,显示查无此商品?谢谢
  • 以EXCEL表格作为数据库操作,用SQL语句操作数据。用DATAGRID显示。 \bin\Release目录中为已经编译好的64位程序。
  • MsgBox "没选择查询方式!" Adodc1.Refresh Set rsgrid.DataSource = Adodc1 End If End Sub Private Sub Command2_Click() Dim query As String query = "select*from (车位信息)" Adodc1.RecordSource = query If...
  • VB ADO 数据库 的初步体验

    千次阅读 2009-07-21 10:47:00
    这几天做了五个基础的VB数据库开发的例子他们分别是:系统登录、使用ADO访问数据源、使用数据绑定访问数据、分页显示记录、和数据查询。这几个例子所涉及到的都是对数据库的访问操作,用到了Sql语言中的SEIECT语句。...
  • 基于VB6自主研发的轻量级数据库查询客户端工具,启动速度较快,所占资源较小。 附源码,对初学数据库编程的童鞋有所裨益! 1、支持SQLServer、Oracle、Sybase、DB2数据库平台 2、单句执行:可以提交单一的SQL语句...
  • 本程序已经自带一个SQL数据库,需要对此数据库进行还原,然后在修改程序中数据库的登录密码,实现程序对数据库的连接,使用用户可以自行对程序进行修改,实现不同的目的。 特别声明: 本软件仅限于学习,本人不承担...
  • VB.NET实现ReportViewer 显示参数化查询结果

    千次阅读 多人点赞 2012-03-05 15:36:42
    但是在用ReportViewer时SQL语句并不是写在普通的代码区的,而是写在DataAdapter配置向导过程中的,这时就为平时习惯了在代码区编写参数化查询语句的人带来了点麻烦,可能大家一时想不出参数该写在什么地方,语句中的...

空空如也

空空如也

1 2 3 4 5 ... 10
收藏数 186
精华内容 74
关键字:

vb查询sql数据库显示