Adodc 连接SQL 数据库问题

来源：百度知道编辑：UC知道时间：2024/05/28 08:01:04

我在模块中声明如下：
Public PublicStr As String
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim str As String

Public Sub Main()
'附加数据库
On Error Resume Next
con.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa"
con.Open '打开数据库连接
Set rs = New ADODB.Recordset
'开始附加数据库
str = "EXEC sp_attach_db @dbname = N'ss_SSS', @filename1 = N'" + App.Path + "\DataSource\ss_SSS_Data.MDF" + "', @filename2 = N'" + App.Path + "\DataSource\ss_SSS_Log.LDF" + "'"
rs.Open str, con, 1, adLockOptimistic
Set rs = con.Execute(str)
con.Close '关闭数据库连接

PublicStr = "Provider=SQLOLEDB.1;Persist Security Info=False;UserID=sa;Initial Catalog=ss_SSS"
frm_star.Show
End Sub

我在使用ADODC控件连接数据库ss_SSS时使用以下代码
Private Sub Form_L

con.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa
这个地方没有指定服务器IP
con.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Data Source=(local)"

如果仍不行的话可以把
rs.Open str, con, 1, adLockOptimistic
Set rs = con.Execute(str)
这两句替换为
con.execute(str)
试下

Refresh这个应该是相同的情况，是
PublicStr = "Provider=SQLOLEDB.1;Persist Security Info=False;UserID=sa;Initial Catalog=ss_SSS"
中没有指定Datasource，参考上面的自己改一下就行

不要用数据源驱动有缺陷的。。。

错误提示是没有找到驱动。

Adodc 连接SQL 数据库问题 vb使用adodc连接数据库的SQL语句问题如何用adodc和datagird连接数据库用vb连接sql数据库时总是提示:ADODC:没有指定记录源[ADO]:没有为命令对象设置命令 VB 中Adodc 连接mdb数据库的问题 VB中ADODC控件怎样连接加密ACCESS数据库? SQL 如何连接数据库？？？ php连接sql数据库怎么连接SQL数据库。 vb连接SQL数据库