vb查询数据库信息（求VB数据库记录查询方法）

本文目录

• 求VB数据库记录查询方法
• vb中的数据库查询
• vb.net 中如何使用SQL语句查询数据库中的数据
• vb如何做数据库查询功能
• VB查询数据库的语句怎么写
• VB如何实现查询数据库并显示出来
• 在VB怎么查询数据库中的数据啊！
• VB中SQL数据库的查找
• VB中查询数据库内容方法

求VB数据库记录查询方法

在VB中进行数据库记录的查询操作，必需根据打开数据库的方式来确定。以VB3．0为例，数据集对象有Table、Dynaset、Snapshot三种，下面四种查询方法分别适用于以上面不同的对象方式打开的数据库。

1．用SEEK方法查询。这种方法只使用于以Opentable方式打开的Table类型的数据表，而且在查询之前必须要以查询字段建立索引文件，由于已建立了索引文件，所以查询速度很快，这种方式的查询结果是将指针移到符合条件的第一个记录。例如：
set
tb＝db.opentable（"demo"）
tb.index＝"nameindex”
tb.seek
"＝"，"张三"

2．用FILTER属性查询。Filter属性是Dynaset和Snapshot对象才具备的，所以也只能适用于这两者，不能用于Table。Filter是用来过滤数据的，只要我们给定过滤条件就可以将所需的记录筛选出来。需要说明的是，我们需要将以Filter属性筛选出来的数据集打开才能对其操作。例如：
set
dy1＝db．createDynaset（”demo”）
dy1．filter＝”姓名
like
’刘*’”
set
dy2＝dy1．createDynaset（）

3．用FIND方法查询。FIND适用于Dynaset和Snapshot对象，有Findfirst和Findnext两个方法，每次查询到一个记录。例如：
set
dy＝db.createDynaset（”demo”：）
s＝”工资＞160
and姓名
like
’刘＊’”
dy.findfirst
s
dy.findnext
s

4．用SQL查询。SQL是一种结构化数据查询语言，SQL也只能适用Dynaset和Snapshot数据集对象，这种方法是根据SQL条件生成一个数据集对象。例如：
s＝”select
*
from
demo
where
姓名
like
’刘*’”
set
dy＝db.createDynaset（s）

〖注〗：本文中的db为数据库对象，打开方式为：

例如：set
db＝OpenDatabase（”C：＼VB＼SAMPLE．MDB”）。

vb中的数据库查询

If rs.Fields("姓名") Like "*" & LCase(NameQuery ) & "*" Then
不需要这样做的,下面的代码要好些
NameQuery = InputBox("请输入要查询的名字", "查询")
Set rs = con3.OpenRecordset("SELECT * FROM 通讯录 where 姓名 = ’" & trim(NameQuery) & "’")
if not rs.eof then
Txtname = rs.Fields("姓名")
TxtE_mail = rs.Fields("E_mail")
Txtmobil = rs.Fields("手机")
TxtQQ = rs.Fields("QQ")
Txtphone = rs.Fields("固定电话")
else
MsgBox "查无此人", , "注意"
end if

vb.net 中如何使用SQL语句查询数据库中的数据

1、首先打开Visual Studio 2008代码窗口，添加引用。

2、输入以下代码：Public conn1  As SqlConnection = New SqlConnection 。

3、声明关键字 Public；（因为是全局变量，所以用Public 来声明）。

4、如果SQL 数据库就在本机，则用以下代码连接。

5、如果代码太长，影响可读性，可以用空格加"_"后，回车换行即可。

vb如何做数据库查询功能

Adodc1.RecordSource = "select " & text1.text & " from dbo.Table_tl where 后面是查询条件。比如日期=？and时间=？之类的“
这样会返回数据库列值。还有一个方法是查询是select * from 但显示的时间用 recordset1("压力值")
这样得到的也是压力值。

VB查询数据库的语句怎么写

基于ADODC控件和DATAGRID控件的灵活应用。具体做法： 

• 新建工程时选数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。然后在FORM1窗体中添加ADODC控件和DATAGRID控件，将DATAGRID1的属性DATASOURCE选ADODC1，打开ADODC1控件属性页使用连接字符串，选生成，在提供者选项中选MICROSOFT jet 4.0 OLE DB Provider,然后按要求连接数据库等。在ADODC1控件属性页使用连接字符串空白文本窗口中就有一长串字符串，注意该字符串可复制到程序代码用于编程。ADODC1控件属性页的数据源内有命令文本（SQL）编写窗口可编写SQL查询语言。该窗口的SQL语句可复制到程序代码用于编程。 

• SQL查询语言主要结构为： 

  Select 查询字段 from 表名 Where 查询条件语句  

• 查询字段必须分别用（西文）逗号分开或就用一个*号代替，上述查询中排序语句建议最好应用。

• SQL查询语言如有错程序运行时告诉你出错，作相应改动即可。本人一般先按上述连接，SQL用"SELECT * FROM TabelName"作调试，无问题，用一个按钮控件将前述需复制的连接字符串和SQL查询语言先复制于按钮控件的CLICK事件中备着，以便放着以后使用。然后删去ADODC1控件，再添加ADODC1控件再添其他内容。

VB如何实现查询数据库并显示出来

可以快速导出使用excel 就有该功能

Public Function ExportToExcel(ByVal strOpen As String, Title As String, dizhi As String, con As ADODB.Connection)
  ’*********************************************************
  ’*   名称：ExporToExcel
  ’*   功能：导出数据到EXCEL’*   用法：ExporToExcel(strOpen查询字符串，titile
  ’*excel标题,dizhi 保存路径，con  数据库连接地址)
  ’*********************************************************
lok:  On Error GoTo er
  Screen.MousePointer = 11
  Dim Rs_Data     As New ADODB.Recordset
          Dim Irowcount     As Long
          Dim Icolcount     As Long
         
        Dim XlApp     As New Excel.Application
        Dim xlbook     As Excel.Workbook
        Dim xlSheet     As Excel.Worksheet
        Dim xlQuery     As Excel.QueryTable
         
        With Rs_Data
                If .State = adStateOpen Then
                        .Close
                End If
                 .ActiveConnection = con
                 .CursorLocation = adUseClient
                 .CursorType = adOpenStatic
                 .LockType = adLockReadOnly
                 .Source = strOpen
                 DoEvents
      ’           Debug.Print strOpen
                 .Open
                 
         End With
         Debug.Print strOpen
        ’  Set Rs_Data = Open_rst_from_str(strOpen)
        With Rs_Data
                If .RecordCount 《 1 Then
                        MsgBox ("没有记录!")
                        Screen.MousePointer = 0
                        Exit Function
                End If
                ’记录总数
                Irowcount = .RecordCount
                ’字段总数
                Icolcount = .Fields.Count
        End With
         
        Set XlApp = CreateObject("Excel.Application")
        Set xlbook = Nothing
        Set xlSheet = Nothing
        Set xlbook = XlApp.Workbooks().Add
        Set xlSheet = xlbook.Worksheets("sheet1")
         
        ’添加查询语句，导入EXCEL数据
        Set xlQuery = xlSheet.QueryTables.Add(Rs_Data, xlSheet.Range("a1"))
         
        With xlQuery
                .FieldNames = True
                .RowNumbers = False
                .FillAdjacentFormulas = False
                .PreserveFormatting = True
                .RefreshOnFileOpen = False
                .BackgroundQuery = True
                .RefreshStyle = xlInsertDeleteCells
                .SavePassword = True
                .SaveData = True
                .AdjustColumnWidth = True
                .RefreshPeriod = 0
                .PreserveColumnInfo = True
        End With
         
        xlQuery.FieldNames = True       ’显示字段名
        xlQuery.Refresh
           
          Dim i     As Integer, Zd       As String
        With xlSheet
                  For i = 1 To 6
               
                          Zd = .Range(.Cells(1, 1), .Cells(1, Icolcount)).item(1, i)
                       ’   .Range(.Cells(1, 1), .Cells(1, Icolcount)).Item(1, i) = Lm_YwToZw(Zd)
                  Next
                .Range(.Cells(1, 1), .Cells(1, Icolcount)).Font.name = "黑体"
                ’设标题为黑体字
  ’               .Range(.Cells(1,   1),   .Cells(1,   Icolcount)).Font.Bold   =   True
                ’标题字体加粗
                .Range(.Cells(1, 1), .Cells(Irowcount + 1, Icolcount)).Borders.LineStyle = xlContinuous
  ’               .Range(.Cells(Irowcount   +   2,   Icolcount)).Text   =   Zje
                ’设表格边框样式
        End With
        XlApp.Visible = True
        XlApp.Application.Visible = True
  ’      xlBook.SaveAs dizhi
        Set XlApp = Nothing           ’"交还控制给Excel
        Set xlbook = Nothing
        Set xlSheet = Nothing
        Screen.MousePointer = 0
        Exit Function
er:
     ’   Dispose_Err
     MsgBox err.Description & "           从新导报表，请等待！"
     GoTo lok:
  End Function

使用这个模块就可以，你可以看看引用的函数即可

在VB怎么查询数据库中的数据啊！

1.一个简单的查询的例子：
’*定义一个连接
Dim Conn As ADODB.Connection
’*定义一个记录集
Dim mrc As ADODB.Recordset
’*分别实例化
Set Conn = New ADODB.Connection
set mrc =New ADODB.Recordset
’*定义一个连接字符串
dim ConnectString as string
ConnectString="provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\data\数据库名.mdb;jet oledb:database password=数据库密码"
’*打开连接
Conn1.Open ConnectString
’*定义游标位置
Conn1.CursorLocation = adUseClient
’*查询记录集(从student表中找出名子为"张三"的记录)
mrc.open "select * from student where name=’张三’",Conn, adOpenKeyset, adLockOptimistic
’*现在你已经得到了你想要查询的记录集了，那就是mrc
’*你可以把此记录集与DataGrid榜定，用datagrid显示你查询的记录
set me.datagrid.datasource=mrc

VB中SQL数据库的查找

分类: 电脑/网络 》》 程序设计 》》 其他编程语言
问题描述:

Private Sub Command1_Click()

If Text1.Text = text2.text Then MsgBox "text1中的值与数据库中的一样"

End Sub

在程序中引用adodc，并且text2.textfield设计为“用户名”这样在text2中正确的显示用户名。当在text1中输入同样的一个用户名按命令按钮，不执行此任务。这是怎么回事儿？为什么这两个字符串不相等？怎么改？
解析:

Private Sub Command1_Click()

If trim(cstr(Text1.Text)) = trim(cstr(text2.text)) Then MsgBox "text1中的值与数据库中的一样"

End Sub

VB中查询数据库内容方法

多条件混合模糊搜索
"select * from 表名 where 字段名 Like’%" & text1.text & "%’and 字段名 like’%" & combo1.text & "%’ and 字段名 like’%" & text2.text & "%’"
例子
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strsql As String
Dim cnstr As String
Private Sub Form_Load() ’窗口打开时，连接数据库
conn.CursorLocation = adUseClient
cnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= db1.mdb;Jet OLEDB:Database Password=" ’修改成你的数据为地址/密码
conn.ConnectionString = cnstr
conn.Open cnstr
End Sub
Private Sub Command1_Click()
if rs.state=adstateopen then rs.close’记录集打开时则关闭记录集
strsql ="select * from 表名 where 字段名 Like’%" & text1.text & "%’and 字段名 like’%" & combo1.text & "%’ and 字段名 like’%" & text2.text & "%’"
rs.Open strsql, conn, 3, 3
set DataGrid1.DataSource =rs
’这时适当调整一下datagird控件的格式（略）
End Sub
Private sub form_unload()
conn.close
end sub