vb.net连接字符 vb连接字符串代码

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

vs2010,vb.net如何在每个SUB中引用同一个SQL连接字符串

定义一个公共变量或者全局变量

Public Class Form1

Private aa As String

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

aa=“”'在加载vb.net连接字符的时候定义sql语句

end sub

然后sub中就可以直接使用aavb.net连接字符了

相关问答

Q1: 在VB.NET中连接SQL 2005。提示：连接字符串属性无效？？

1、建立一个txt文档

2、改扩展名为*.udl

3、双击运行-》提供程序SQL Native Client

4、连接-》数据源为当前sql 服务器

5、设置登陆方式

6、选择连接的数据库

7、测试连接

8、关闭

9、用记事本打开

10、把记事本里的内容由provider···开始复制到constring

Q2: 关于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 大日期(记得加#号)

Q3: vb.net字符串的操作应用

字符串vb.net连接字符的操作应用

[vb]

Module Module

Sub Main()

定义个字符串变量

Dim str str str As String

给str str 付初值

str = Hello : str = World

Console WriteLine( 方法Concat )

连接一个或多个字符串

Console WriteLine( str ={ } str ={ } String Concat(str str )={ } str str String Concat(str str ))

判断字符串中是否具有相同vb.net连接字符的值返回类型为布尔型

Console WriteLine( 方法Equals )

Console WriteLine( str ={ } str ={ } String Equals(str )={ } str str str Equals(str ))

在字符串中指定索引位置插入指定vb.net连接字符的字符串

Console WriteLine( 方法Insert )

str = : str = aaa

Console WriteLine( str ={ } str ={ } str Insert( str )={ } str str str Insert( str ))

左右对齐字符串中的字符

Console WriteLine( 方法PadLeft/PadRight )

str = World : str = 世界

Console WriteLine( str ={ } str )

Console WriteLine( str PadLeft( * )={ } str PadRight( * )={ } str PadLeft( * ) str PadRight( * ))

Console WriteLine( str ={ } str )

Console WriteLine( str PadLeft( * )={ } str PadRight( * )={ } str PadLeft( * ) str PadRight( * ))

找出指定字符串或字符转在此字符串中的第一个最后一个匹配项的索引位置

Console WriteLine( 方法IndexOf/LastIndexOf )

str = Visual Basic NET ASP NET C# NET

Console WriteLine( str ={ } str )

Console WriteLine( str IndexOf( NET )={ } str LastIndexOf( NET )={ } str IndexOf( NET ) str LastIndexOf( NET ))

将字符串中的字符复制到字符串数组

Console WriteLine( 方法ToCharArray )

str = str ToCharArray(str IndexOf( NET ) )

Console WriteLine( str ={ } str )

Console WriteLine( str ToCharArray(str IndexOf( NET ) )={ } str )

在指定字符串数组的每个元素之间串联指定的分隔符产生单个串联的字符串

Console WriteLine( 方法Join )

Dim myArray( ) As String

myArray( ) = I : myArray( ) = am : myArray( ) = a : myArray( ) = student

For i As Integer = To

Console Write( myArrat({ })={ } i myArray(i))

Console WriteLine()

Console WriteLine( String Join( * myArray)={ } String Join( * myArray))

此字符串中删除指定个数字符

Console WriteLine( 方法Remove )

str =

Console WriteLine( str ={ } str Remove( )={ } str str Remove( ))

将此字符串指定字符串字符的所有匹配项代替为其vb.net连接字符他指定字符串

Console WriteLine( 方法Replace )

str =

str = abc

Console WriteLine( str ={ } str ={ } str ={ } str Replace(str str )={ } str str str str Replace(str str ))

从此字符串检索字符串

Console WriteLine( 方法SubString )

Console WriteLine( str ={ } str Substring( )={ } str str Substring( ))

Console ReadLine()

End Sub

lishixinzhi/Article/program/net/201311/13956

Q4: VB.net 读取execl2007正确的连接字符串语句（在网上看到各种各样的连接语句，层出不穷）

嗯，是要这样的，vb.net连接字符你先确保添加了Excel 2007的引用

在解决资源管理器中--右键引用-添加引用-选择Com选项卡- 找到Microsoft Excel12.0 Object library。确定添加

然后就是写代码了。这是一个将EXCEl表格导入datagridview控件的过程函数vb.net连接字符！！

Public Sub EcxelToDataGridView(ByVal filePath, ByVal dgv) '传入excel所在路径，和需要加载到的datagridview控件名

Dim conn As New OleDbConnection

Dim strExcel As String

Dim filename As String = filePath

suffix = Mid(filename, InStr(filename, ".") + 1, filename.Length()) '获取需要导入的EXCEL表格是什么格式，如果是2003，就调用8.0，如果是2007就调用12.0.

If suffix = "xls" Then

conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " + filePath + ";Extended Properties ='Excel 8.0;HDR=YES;IMEX=1'" '调用oledb连接，并将Excel表格中的首行做为标题行

ElseIf suffix = "xlsx" Then

conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source = " + filePath + ";Extended Properties ='Excel 12.0;HDR=YES;IMEX=1'" '调用oledb连接，并将Excel表格中的首行做为标题行

Else

MessageBox.Show("有错，请重试，或联系管理员！")

End If

conn.Open()

Dim ds As New DataSet '定义数据集

Dim myCommand As New OleDbDataAdapter

strExcel = "select * from [sheet1]" '需要读取哪个sheet，其实这里可以修改，或者用选择方式来改！

myCommand = New OleDbDataAdapter(strExcel, conn)

ds = New DataSet()

myCommand.Fill(ds, "tableset") '填充到datagridview的控件中！

dgv.DataSource = ds.Tables(0)

conn.Close()