vb.net统计字符串 vb统计字符串个数

关于VB.NET连接字符串

Dim da As String = "SELECT Count(检测项目) FROM b where 检测项目='cc'"

这句写错啦,你直接传送的是检测项目为字符串"cc"的参数,并不是你程序写的CC参数

改为:

Dim da As String = "SELECT Count(检测项目) FROM b where 检测项目='" cc "'"

建议通过程序组织的sql语句可以通过msgbox da 弹出来看看,这样你较容易查出是什么错误,较长的就用textbox1.text=da来看了,不过记得设置断点"exit sub"

使用ACCESS数据库的日期列比较，应为：

"select * from 表 where 日期列=" "#" cdate(textbox1.text) "#"

注意前后两个“#”号

使用sqlserver

"select * from 表 where 日期列=" "'" cdate(textbox1.text) "'"

当然日期格式要注意，如长短日期等。

日期期间:between 小日期 and 大日期(记得加#号)

相关问答

Q1: VB.NET中怎样查看一个字符串中的字符出现了多少次?

有很多方法，下面这种我觉得是最快的

Dim s As String = "sadkalkdjajjdhsdsa"

Console.WriteLine(s.Split("a").Length - 1)

Q2: vb.net如何运算一个字符串

调用 脚本解析引擎，

textbox2.text=Eval(textbox1.text).ToString()

     Function Eval(ByVal Expressions As String) As Double

        Dim Mssc = CreateObject("MSScriptControl.ScriptControl")

        Mssc.Language = "vbscript"

        Return CDbl( Mssc.Eval(Expressions))

    End Function

不喜欢上面提示的警告的话

     textbox2.text=EvalString(textbox1.text)

     

     Function EvalString(ByVal Expressions As String) As String

        dim oType = System.Type.GetTypeFromProgID("MSScriptControl.ScriptControl")

        Dim o = System.Activator.CreateInstance(oType)

        oType.InvokeMember("Language", System.Reflection.BindingFlags.SetProperty , Nothing, o,New Object(){ "vbscript"})

        Return oType.InvokeMember("Eval", System.Reflection.BindingFlags.InvokeMethod, Nothing, o, New Object(){Expressions}).ToString()

    End Function

Eval 在VB中使用，刚找到的_vb吧_百度贴吧

Q3: vb 中获取某个字符的个数

VB6vb.net统计字符串的代码vb.net统计字符串：

Dim s As String

Dim Need as string '需要找的字符

Dim i as integer,Count as integer

s="abc.def.gh.i.gkl.mn"

Need = "."

Count = 0

For i=1 To Len(s)

if Mid(s,i,1)=Need then Count=Count+1

Next

Print Count

VB2005的代码:

Dim s As String = "abc.def.gh.i.gkl.mn"

Dim Need as string ="." '需要找的字符

Dim i ,Count as integer

For i=0 To s.length-1

if Mid(s,i,1)=Need then Count += 1

Next

Console.WriteLine(count)

(假设Option Strict为Off)

看了2楼的代码vb.net统计字符串，思路很好的

不过Split函数要对多个字符串拆分赋值

还要用Preserve重新定义数组

在s过长时操作十分占用CPU

而如果字符串含有Unicode字符则不能用Byte数组处理

所以使用Mid函数（或.net的SubString函数）速度比较快

如果不限使用版本的话

VB2005中新增数据类型Char则是最好选择

Char类型的数组代替String操作起来快很多倍

Q4: vb.net里关于字符串的操作

If "3333aa".EndsWith("aa") Then MessageBox.Show("以aa结尾")

or :

dim str as string = "3333aa"

if str.EndsWith("aa") Then MessageBox.Show("以aa结尾")

Q5: vb.net 查找字符串

简单点写。

Module Program

Sub Main()

Console.WriteLine("Hello World!")

Dim t As String, a() As String, c As Integer

t="/admin/index/login/defasd.php"

a=t.Split("/"c)

c=0

For Each p In a

If c0 Then

Console.WriteLine("/"+p)

End If

c+=1

Next

Console.Write("Press any key to continue . . . ")

Console.ReadKey(True)

End Sub

End Module

========

Hello World!

/admin

/index

/login

/defasd.php

vb.net统计字符串的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb统计字符串个数、vb.net统计字符串的信息别忘了在本站进行查找喔。