vb中的FIND语句怎么使用？

Posted 2023-05-12

vb2008的richtextbox.find过程怎么使用？
如果想高亮或复制找到的语句又该怎么写？

VB 中Find 语句用法，参考下列代码：

Private Sub CommandButton11_Click() '查询
Set gh = CreateObject("scripting.dictionary")
Set xm = CreateObject("scripting.dictionary")
Set zw = CreateObject("scripting.dictionary")
'Application.WorksheetFunction.CountA([D:D]) Paste
'Dim gh As Integer, xm As Integer, zw As Integer
If TextBox6.Text = "" Then
   MsgBox "请输入查询内容！", , "友情提示"
Else
  Set gh = Sheets("人员名单").Range("B1:B65536").Cells.Find(TextBox6.Text).Row
  Set xm = Sheets("人员名单").Range("C1:C65536").Cells.Find(TextBox6.Text).Row
  Set zw = Sheets("人员名单").Range("E1:E65536").Cells.Find(TextBox6.Text).Row
   If Not gh Is Nothing Or Not xm Is Nothing Or Not zw Is Nothing Then
       MsgBox "请输入查询内容！", , "友情提示"
   End If
    If OptionButton3.Value = True Then '按工号查找
       TextBox1.Text = gh - 2
    With Sheets("人员名单")
         TextBox2.Text = .Cells(TextBox1.Text + 2, 2)
         TextBox3.Text = .Cells(TextBox1.Text + 2, 3)
         ComboBox1.Text = .Cells(TextBox1.Text + 2, 4)
         ComboBox2.Text = .Cells(TextBox1.Text + 2, 5)
         TextBox4.Text = .Cells(TextBox1.Text + 2, 6)
         ComboBox3.Text = .Cells(TextBox1.Text + 2, 7)
         ComboBox4.Text = .Cells(TextBox1.Text + 2, 8)
         If .Cells(TextBox1.Text + 2, 9) <> "" Then
             DTPicker1.Value = .Cells(TextBox1.Text + 2, 9)
         Else
             DTPicker1.Value = Now
         End If
        If .Cells(TextBox1.Text + 2, 10) = "是" Then
            OptionButton1.Value = True
        Else
            OptionButton2.Value = True
        End If
        TextBox5.Text = .Cells(TextBox1.Text + 2, 21)
        If .Cells(TextBox1.Text + 2, 20) <> "" Then
            DTPicker2.Value = .Cells(TextBox1.Text + 2, 20)
        Else
            DTPicker2.Value = Now
        End If
        For i = 1 To 9
               Me.Controls("CheckBox" & i).Value = False
           If .Cells(TextBox1.Text + 2, i + 10) = "√" Then
               Me.Controls("CheckBox" & i).Value = True
           End If
        Next i
    End With
    Else
    If OptionButton4.Value = True Then '按姓名查找
       TextBox1.Text = xm - 2
    With Sheets("人员名单")
         TextBox2.Text = .Cells(TextBox1.Text + 2, 2)
         TextBox3.Text = .Cells(TextBox1.Text + 2, 3)
         ComboBox1.Text = .Cells(TextBox1.Text + 2, 4)
         ComboBox2.Text = .Cells(TextBox1.Text + 2, 5)
         TextBox4.Text = .Cells(TextBox1.Text + 2, 6)
         ComboBox3.Text = .Cells(TextBox1.Text + 2, 7)
         ComboBox4.Text = .Cells(TextBox1.Text + 2, 8)
         If .Cells(TextBox1.Text + 2, 9) <> "" Then
             DTPicker1.Value = .Cells(TextBox1.Text + 2, 9)
         Else
             DTPicker1.Value = Now
         End If
        If .Cells(TextBox1.Text + 2, 10) = "是" Then
            OptionButton1.Value = True
        Else
            OptionButton2.Value = True
        End If
        TextBox5.Text = .Cells(TextBox1.Text + 2, 21)
        If .Cells(TextBox1.Text + 2, 20) <> "" Then
            DTPicker2.Value = .Cells(TextBox1.Text + 2, 20)
        Else
            DTPicker2.Value = Now
        End If
        For i = 1 To 9
               Me.Controls("CheckBox" & i).Value = False
           If .Cells(TextBox1.Text + 2, i + 10) = "√" Then
               Me.Controls("CheckBox" & i).Value = True
           End If
        Next i
    End With
    Else
    If OptionButton5.Value = True Then '按职位查找
       TextBox1.Text = zw - 2
    With Sheets("人员名单")
         TextBox2.Text = .Cells(TextBox1.Text + 2, 2)
         TextBox3.Text = .Cells(TextBox1.Text + 2, 3)
         ComboBox1.Text = .Cells(TextBox1.Text + 2, 4)
         ComboBox2.Text = .Cells(TextBox1.Text + 2, 5)
         TextBox4.Text = .Cells(TextBox1.Text + 2, 6)
         ComboBox3.Text = .Cells(TextBox1.Text + 2, 7)
         ComboBox4.Text = .Cells(TextBox1.Text + 2, 8)
         If .Cells(TextBox1.Text + 2, 9) <> "" Then
             DTPicker1.Value = .Cells(TextBox1.Text + 2, 9)
         Else
             DTPicker1.Value = Now
         End If
        If .Cells(TextBox1.Text + 2, 10) = "是" Then
            OptionButton1.Value = True
        Else
            OptionButton2.Value = True
        End If
        TextBox5.Text = .Cells(TextBox1.Text + 2, 21)
        If .Cells(TextBox1.Text + 2, 20) <> "" Then
            DTPicker2.Value = .Cells(TextBox1.Text + 2, 20)
        Else
            DTPicker2.Value = Now
        End If
        For i = 1 To 9
               Me.Controls("CheckBox" & i).Value = False
           If .Cells(TextBox1.Text + 2, i + 10) = "√" Then
               Me.Controls("CheckBox" & i).Value = True
           End If
        Next i
    End With
    Else
        MsgBox "请按相应选项进行查找！", , "友情提示"
      End If
    End If
  End If
End If
End Sub

3.重载有：

public int Find(char[ ] characterSet)

public int Find(char[ ] characterSet, int start)

public int Find(char[ ] characterSet, int start, int end)

public int Find(string str)

public int Find(string str, System.Windows.Forms.RichTextBoxFinds options)

public int Find(string str, int start, System.Windows.Forms.RichTextBoxFinds options)

public int Find(string str, int start, int end, System.Windows.Forms.RichTextBoxFinds options)

 

characterSet和str：指要在控件中定位的文本

start：控件文本中开始搜索的位置

end：控件文本中结束搜索的位置。此值必须等于 -1 或者大于或等于 start 参数

options：System.Windows.Forms.RichTextBoxFinds 值的按位组合

 

4.一般来讲用Find(str, start, end)就行了，使用后，如果options不为NoHighlight，就会自动在文本框中选中，然后使用richtextbox.copy即可复制

参考技术A 重载有：
public int Find(char[ ] characterSet)
public int Find(char[ ] characterSet, int start)
public int Find(char[ ] characterSet, int start, int end)
public int Find(string str)
public int Find(string str, System.Windows.Forms.RichTextBoxFinds options)
public int Find(string str, int start, System.Windows.Forms.RichTextBoxFinds options)
public int Find(string str, int start, int end, System.Windows.Forms.RichTextBoxFinds options)

characterSet和str：指要在控件中定位的文本
start：控件文本中开始搜索的位置
end：控件文本中结束搜索的位置。此值必须等于 -1 或者大于或等于 start 参数
options：System.Windows.Forms.RichTextBoxFinds 值的按位组合

一般来讲用Find(str, start, end)就行了，你使用后，如果options不为NoHighlight，就会自动在文本框中选中，然后使用richtextbox.copy即可复制本回答被提问者和网友采纳

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

用"select * from 表1 "连接数据库成功，现在要执行SQL语句"Select * from 表1 Where 姓名=小强"该怎么办啊？？请指教谢谢。
（只采纳解答比较详细的，代码解释清楚的。）
用的是vb2003

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

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

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

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

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

参考技术A 50分就回答一下吧,我的答案才是正确的
窗体名称如果是Form1
添加两个控件出来,一个是按扭Button1,一个是表格DataGridView1
然后你直接用我的代码就行了不多说了
你最好把我的代码复制到你的代码窗口里再看了,这里太乱了
还有啊你并没有给出数据库名称,是用Windows登陆还是SQL登陆,你要在代码里改一下,我都注释有了的你自己慢慢看下
我用的平台是WIndows VISTA , SQL 2005 , VB 2008

Imports System.Data.SqlClient
Public Class Form1

Dim LeafSqlConnection As SqlConnection '声明这些SQL的类
Dim LeafSqlCommand As SqlCommand
Dim LeafSqlDataAdapter As SqlDataAdapter
Dim LeafData As DataTable '这个是表格的类,用来装你读取的信息的表

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
LeafSqlConnection = New SqlConnection("Data Source=.;Initial Catalog=你的数据库名称 ;Integrated Security=True;Pooling=False") '如果采用windows身份登录就用这个,数据库名称我直接写成'你的数据库名称'了,没有用户名密码
'LeafSqlConnection = New SqlConnection("Initial Catalog=你的数据库名称 ;User ID=sa;PWD=leafsoftpassword") '如果采用SQL用户密码登录用这个,注意的是前面这些数据库名称我直接写成'你的数据库名称'了,你如果要读别的数据库自己改,还有用户密码自己改
LeafSqlCommand = New SqlCommand("Select * from 表1 Where 姓名='小强';", LeafSqlConnection) '这里记得名字的两边要加符号 '
LeafSqlDataAdapter = New SqlDataAdapter
LeafSqlCommand.CommandType = CommandType.Text
LeafSqlDataAdapter.SelectCommand = LeafSqlCommand
LeafData = New DataTable
LeafSqlDataAdapter.Fill(LeafData)
DataGridView1.DataSource = LeafData
End Sub
End Class本回答被提问者采纳 参考技术B 50分就回答一下吧,我的答案才是正确的
窗体名称如果是Form1
添加两个控件出来,一个是按扭Button1,一个是表格DataGridView1
然后你直接用我的代码就行了不多说了
你最好把我的代码复制到你的代码窗口里再看了,这里太乱了
还有啊你并没有给出数据库名称,是用Windows登陆还是SQL登陆,你要在代码里改一下,我都注释有了的你自己慢慢看下
我用的平台是WIndows VISTA , SQL 2005 , VB 2008

Imports System.Data.SqlClient
Public Class Form1

Dim LeafSqlConnection As SqlConnection '声明这些SQL的类
Dim LeafSqlCommand As SqlCommand
Dim LeafSqlDataAdapter As SqlDataAdapter
Dim LeafData As DataTable '这个是表格的类,用来装你读取的信息的表

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
LeafSqlConnection = New SqlConnection("Data Source=.;Initial Catalog=你的数据库名称 ;Integrated Security=True;Pooling=False") '如果采用windows身份登录就用这个,数据库名称我直接写成'你的数据库名称'了,没有用户名密码
'LeafSqlConnection = New SqlConnection("Initial Catalog=你的数据库名称 ;User ID=sa;PWD=leafsoftpassword") '如果采用SQL用户密码登录用这个,注意的是前面这些数据库名称我直接写成'你的数据库名称'了,你如果要读别的数据库自己改,还有用户密码自己改
LeafSqlCommand = New SqlCommand("Select * from 表1 Where 姓名='小强';", LeafSqlConnection) '这里记得名字的两边要加符号 '
LeafSqlDataAdapter = New SqlDataAdapter
LeafSqlCommand.CommandType = CommandType.Text
LeafSqlDataAdapter.SelectCommand = LeafSqlCommand
LeafData = New DataTable
LeafSqlDataAdapter.Fill(LeafData)
DataGridView1.DataSource = LeafData
End Sub
End Class 参考技术C Dim mySelectQuery As String = "Select * from 表1 Where 姓名='小强'"
Dim myCommand As New SqlCommand (mySelectQuery, conn) '建立一个Command控件，conn是你的SqlConnection对象
conn.Open()'打开数据连接
Dim myReader As SqlDataReader'定义一个reader用来读数据
myReader = myCommand.ExecuteReader()'运行你的查询，结果到myReader
if myReader.Read() then '如果查到了数据
msgbox(myReader.GetString(0)) '显示第一个字段
end if