vb.net连接字符串 vba连接字符串

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=“”'在加载的时候定义sql语句

end sub

然后sub中就可以直接使用aa了

相关问答

Q1: 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 ))

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

Console WriteLine( 方法Equals )

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

在字符串中指定索引位置插入指定的字符串

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))

Next

Console WriteLine()

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

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

Console WriteLine( 方法Remove )

str =

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

将此字符串指定字符串字符的所有匹配项代替为其他指定字符串

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

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中连接SQL 2005。 提示：连接字符串属性无效？？

1、建立一个txt文档

2、改扩展名为*.udl

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

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

5、设置登陆方式

6、选择连接的数据库

7、测试连接

8、关闭

9、用记事本打开

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

Q4: VB.NET中怎样拼接字符串好

vb中可以使用+连接字符串，

也可以使用连接字符串，

建议使用连接字符串，以区别数学运算符+。

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

嗯，是要这样的，你先确保添加了Excel 2007的引用

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

然后就是写代码了。这是一个将EXCEl表格导入datagridview控件的过程函数！！

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()

End Sub

调用可以这样，

EcxelToDataGridView("F:\zqs\我的文档\Visual Studio 2005\Projects\批量更新客户基础档案\批量更新客户基础档案\bin\Debug\客户档案批量更新模板.xls", DataGridView1)

这是我简化后修改过的，如果不明白，hi我，加企鹅！

关于vb.net连接字符串和vba连接字符串的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。