UC知道vb程序错误有哪位大侠可以帮忙解决的！！！
来源：百度知道 编辑：UC知道 时间：2024/05/21 10:41:24
我在附加数据时，con.ConnectionString = "Provider=SQLOLEDB.1;Persist Secutity Info= False; User ID="&uid&" ; PWD ="&pwd&"; Initial Catalog =db_OA;Data Source="& Server &""这句话总是出错，不知道错在哪，急！
部分代码如下：
Public Sub main()
'读取数据库文件
Open (App.Path & "\DataBase.ini") For Input As #1
Line Input #1, Intext
Server = Mid(Intext, 10, Len(Trim(Intext)) - 9)
Line Input #1, Intext
pwd = Mid(Intext, 7, Len(Trim(Intext)) - 6)
Close #1
'附加数据库
On Error Resume Next
con.ConnectionString = "Provider=SQLOLEDB.1;Persist Secutity Info= False; User ID="&uid&" ; Password ="&pwd&"; Initial Catalog =db_OA;Data Source="& Server &""
con.Open '打开数据库连接
Set rs = New ADODB.Recordset
'开始附加数据库
Str = "EXEC sp_attach_db @dbname=N'db_SSS',@filename1=N'" + App.Path + "
部分代码如下：
Public Sub main()
'读取数据库文件
Open (App.Path & "\DataBase.ini") For Input As #1
Line Input #1, Intext
Server = Mid(Intext, 10, Len(Trim(Intext)) - 9)
Line Input #1, Intext
pwd = Mid(Intext, 7, Len(Trim(Intext)) - 6)
Close #1
'附加数据库
On Error Resume Next
con.ConnectionString = "Provider=SQLOLEDB.1;Persist Secutity Info= False; User ID="&uid&" ; Password ="&pwd&"; Initial Catalog =db_OA;Data Source="& Server &""
con.Open '打开数据库连接
Set rs = New ADODB.Recordset
'开始附加数据库
Str = "EXEC sp_attach_db @dbname=N'db_SSS',@filename1=N'" + App.Path + "
注意引用变量时 & 前后都要加空格
con.ConnectionString ="Provider=SQLOLEDB.1;Persist Secutity Info= False; User ID=" & uid & " ; Password =" & pwd & "; Initial Catalog =db_OA;Data Source=" & Server & ""
conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=sa;Initial Catalog=libreay;Data Source=WINNIP"
这是我以前做的，你参考下。