vb查找代码（vb代码大全）

本篇文章给大家谈谈vb查找代码，以及vb代码大全对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、VB查找怎么做啊
• 2、VB查询代码
• 3、VB如何通过工程查看源代码，如图，这个样子的
• 4、VB关于数据查找的编程代码

VB查找怎么做啊

　实现查找功能的关键在于使用InStr函数，这个函数可以找到指定的字符串在另一字符串中最先出现的位置。我们先来看一看使用这个函数的语法：

　InStr([start, ]string1, string2[, compare])

这个函数需要的的参数是起始位置、主体字符串、要查找的字符串；Compare是

VB中如何实现文本查找功能

实现查找功能的关键在于使用InStr函数，这个函数可以找到指定的字符串在另一字符串中最先出现的位置。我们先来看一看使用这个函数的语法：

　InStr([start, ]string1, string2[, compare])

这个函数需要的的参数是起始位置、主体字符串、要查找的字符串；Compare是可选参数。指定字符串比较。此compare参数是可以省略的，也可以是 0, 1或 2。指定0（缺省）做二进制比较。指定1做不区分大小写的文本比较。例如我们要查找在字符串“abcdefg”中是否存在“cd”并返回其位置，则使用下面的语句就可以实现：

　pos=InStr(1,"abcdefg","cd")

则pos会返回3表示查找到并且位置为第三个字符开始。这就是“查找”的实现，而“查找下一个”功能的实现就是把当前位置作为起始位置继续查找。

下面举例说明：

放置一个文本框TEXT1供用户输入文本或调入文本文件，用来做在其中查找文本的验证，放置另一个文本框TEXT2供用户输入要查找的字符串，放置两个命令按钮，Command1、Command2，其标题分别为“查找”、“查找下一个”。

在窗体的总体声明部分写如下代码 ：

　Option Explicit ’定义目标位置变量

　Private TargetPosition As Integer

　 ’编写一个查找函数

　Private Sub FindText(ByVal start_at As Integer)

　Dim pos As Integer

　Dim target As String

　’获取用户输入的要查找的字符串

　target = text2.Text

　pos = InStr(start_at, text1.Text, target)

　If pos 0 Then

’找到了匹配字符串

TargetPosition = pos

text1.SelStart = TargetPosition - 1

’选中找到的字符串

text1.SelLength = Len(target)

text1.SetFocus

　Else ’没有找到匹配的字符串

　MsgBox "没找到！"

　text1.SetFocus

　End If

　End Sub

　’双击“查找”命令按钮:

　Private Sub command1_Click() ’从第一个字符处开始查找

　FindText 1

　End Sub

　’双击“查找下一个”按钮：

　Private Sub command2_Click() ’从当前位置继续查找

　FindText TargetPosition + 1

　End Sub

运行程序，在文本框1中输入一些字符串，在文本框2中输入要查找的字符串，单击 “查找”按钮和“查找下一个”按钮进行验证。

VB查询代码

Private conn As New ADODB.Connection

Private rs As New ADODB.RecordsetPrivate Sub Command1_Click()

Dim KC_id As Integer

Dim KC_name As String

Dim Sqlstr As String

If Check1.Value = 0 And Check2.Value = 0 Then

MsgBox "请选择查询方式"

Exit Sub

End If

If text1.Text = "" And text2.Text = "" Then

MsgBox "查询条件不能为空"

Exit Sub

End If

KC_id = Val(text1.Text) '课程编号

KC_name = text2.Text '课程名字 If Check1.Value = 1 And Check2.Value = 1 Then

Sqlstr = "select * from kc Where kc_id=" KC_id " and kc_name='" KC_name "'"

ElseIf Check1.Value = 1 Then

Sqlstr = "select * from kc Where kc_id=" KC_id

Else

Sqlstr = "select * from kc Where kc_name='" KC_name "'"

End If

Set rs = conn.Execute(Sqlstr) If rs.EOF And rs.BOF Then

MsgBox "您查询的课程不存在"

Else

MsgBox _

"课程编号：" rs("kc_id") vbCrLf _

"课程名字：" rs("kc_name") vbCrLf _

"001：" rs("kc001") vbCrLf _

"002：" rs("kc002") vbCrLf _

"003：" rs("kc003") vbCrLf, , "查询结果："

rs.Close

End If

End SubPrivate Sub Command2_Click() '退出

End

End SubPrivate Sub Form_Load()

Dim dataPath As String

dataPath = "C:\data.mdb" '数据库路径

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" dataPath ";Mode=ReadWrite|Share Deny None;Persist Security Info=False"

End SubPrivate Sub Form_Unload(Cancel As Integer)

conn.Close

Set conn = Nothing

End Sub

'有什么不明白可以加我QQ：375420408

VB如何通过工程查看源代码，如图，这个样子的

如果这个程序带工程文件，你找到.vbp文件双击打开，然后在各窗体双击查看代码。

如果没有工程文件，你可以自己建一个工程文件，然后把这些窗体文件加入。

如果不想建你可以直接双击某个窗体文件，也能打开，打开后双击窗体，可以看到代码。

VB关于数据查找的编程代码

假设生成的数组为a(19)

在查找按钮中这样写：

dim i as integer

for i=0 to 19

if str(a(i)).trim=(textbox1.text).trim then

textbox2.text=str(i)

exit for

endif

next

if i=20 then

textbox2.text="查找失败"

endit

关于vb查找代码和vb代码大全的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。