重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
vb中可以使用+连接字符串,
成都创新互联专业为企业提供安泽网站建设、安泽做网站、安泽网站设计、安泽网站制作等企业网站建设、网页设计与制作、安泽企业网站模板建站服务,十年安泽做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。
也可以使用连接字符串,
建议使用连接字符串,以区别数学运算符+。
没有这种函数,自己做一个函数,效率不会低,因为都是简单运算:
Function FillString(ByVal a As String, ByVal b As String, ByVal c As Integer) As String
If a.Length c Then
Return a + StrDup(c - a.Length, b)
Else
Return Mid(a, 1, c)
End If
End Function
Dim Str1() As String = {"123", "321", "231", "132"}
Dim Str2() As String = {"qwe", "asd", "zxc", "sdf", "asdf"}
Dim Str() As String = Str1
ReDim Preserve Str(Str1.Length + Str2.Length - 1)
Str2.CopyTo(Str, Str1.Length)
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 大日期(记得加#号)
Provider=Microsoft.ACE.OLEDB.4.0;Data Source=|DataDirectory|\Temp\aaa.accdb;Persist Security Info=True
或
Provider=Microsoft.ACE.OLEDB.4.0;Data Source=|DataDirectory|\Temp\aaa.accdb;Persist Security Info=True
或
Provider = Microsoft.Jet.OLEDB.4.0;Data Source ="E:\Program Files\Microsoft Office\OFFICE11\SAMPLES\Northwind.mdb"
需要注意的问题。
文件夹路径中出现的空格处理,要加引号。
竖线是用来包括系统内置路径的,不能用作文件夹分隔符。
其它的没有什么大问题。
这个 你弄个数据控件 在连接;里用字符串连接 选择什么数据库 之类的设置后 生成的字符串 拿来用就是了 把数据库路径改下就是了