Private Sub lianjieSQL()
On Error Resume Next
'Dim DBconnect As New ADODB.Connection
Dim conn As New ADODB.Connection
' Set conn = New ADODB.Connection
'建立无源数据库连接
conn.ConnectionString = "server=.;integrated security=SSPI;Database=tupian"
conn.Open
MsgBox conn.State
End Sub
代码如上，我觉得我的代码写的没问题啊，但是conn.state=0;为啥啊采购流程 ？tupian是我的数据库名称
这个也能用？驱动都没有声明？用户名 密码呢？
是没问题，如果打不开数据库连接会有错的
经测vb.net中是正常的,状态为ConnectionState.Open即为1
把.改为计算机名或IP地址试试
添加一个adodc控件, 然后使用这个控件连接数据库, 连完之后就可以得到正确的ConnectionString了