怎样可以快速入睡:可以在VB数据库连接字串中引入变量吗

来源:百度文库 编辑:神马品牌网 时间:2024/05/07 13:18:11
各位高手,可以在VB数据库连接字串中引入变量吗?下列代码为什么不能打开数据库?
Private Sub Form_Load()
Dim Pass, SeverName, DataUser As String
Pass = "ABCDE"
DatsUser = "sa"
ServerName = "Networking"
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString = "Provider=SQLOLEDB.1;Password="&Pass&";Persist Security Info=True;User ID="&DataUser&";Initial Catalog=Northwind;Data Source="&ServgerName&""
conn.Open
conn.CursorLocation = adUseClient
rs.CursorLocation = adUseClient
rs.Open "Select * From employees", conn, adOpenDynamic, adLockOptimistic
我自己调试成了,可以引入变量,
Private Sub Form_Load()
Dim Pass, SeverName, DataUser As String

Pass = "314159"
DataUser = "sa"
ServerName = "Networking"

Text1.Text = Pass
Text2.Text = DataUser
Text3.Text = ServerName
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString = "Provider=SQLOLEDB.1;Password='" & Pass & "';Persist Security Info=True;User ID='" & DataUser & "';Initial Catalog=Northwind;Data Source='" & ServerName & "'"

根据你的答案就是
Private Sub Form_Load()
Dim Pass, SeverName, DataUser As String

Pass = \"314159\"
DataUser = \"sa\"
ServerName = \"Networking\"

Text1.Text = Pass
Text2.Text = DataUser
Text3.Text = ServerName
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString = \"Provider=SQLOLEDB.1;Password=\'\" & Pass & \"\';Persist Security Info=True;User ID=\'\" & DataUser & \"\';Initial Catalog=Northwind;Data Source=\'\" & ServerName & \"\'\"

不好意思,我又引用了一遍
感谢,我也学到东西

好像没什么问题,你看看生成之后的 ConnectionString 有没有问题。

可以加,没有问题

可以加的,没问题