VB.NET连接数据库失败

[mhxy123tt]

以下是连接的代码：
Imports System.Data.SqlClient

Public Class Form1
Dim conn As SqlConnection = New SqlConnection("Data Source=CONAN-PC\SQLExpress; AttachDbFilename=D:\Program Files\Microsoft SQL Server\MSSQL10_50.MSSQLSERVER\MSSQL\DATA\libry.mdf; Integrated Security= True; Initial Catalog=libry; Connect Timeout=30; User Instance= True")
Dim adapter As SqlDataAdapter
Dim dataset As New DataSet
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub

可是显示连接不上数据库，请问是什么问题呀？

[宝_爸]

请贴详细异常信息。这样不好猜啊。

[eaqpi]

Public Class Form1
  
  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim conn As SqlConnection = New SqlConnection("Data Source=CONAN-PC\SQLExpress; AttachDbFilename=D:\Program Files\Microsoft SQL Server\MSSQL10_50.MSSQLSERVER\MSSQL\DATA\libry.mdf; Integrated Security= True; Initial Catalog=libry; Connect Timeout=30; User Instance= True")
  Dim adapter As SqlDataAdapter
  Dim ds As New DataSet
  try
   conn.open
   adapter = new sqldataAdapter("select * from xxx",conn)
   adapter.fill(ds)
  catch ex
   msgbox ex.message.tostring
  end try
  End Sub

[mhxy123tt]

错误 1 语句不能出现在方法体/多行 lambda 之外。 C:\Users\Conan\Documents\Visual Studio 2010\Projects\library\library\Form1.vb 7 5 library
eaqpi大哥，，加入了你的代码后，出现以上错误诶，怎么回事呢？

[mhxy123tt]

问题补充：
我通过vs2010直接连接数据库，显示没有权限打开.mdf文件。请问是不是这个的原因？要怎么解决呢？

[mhxy123tt]

这是在调试的时候，出现的错误：

[leiyangge]

因为你没有通过sqlserver，直接访问它的数据库文件，这一般式不允许的。
但是我试过用sqlserver2000导出mdf，然后用你上述的方法访问没有问题。
但是通过sqlserver2008还没有找到导出的菜单在哪。
直接访问目录下面的mdf文件一般是不行的。

[xianjin_chen]

用UDL文件来连接数据库吧，驱动可以随便手动选择的，这样子操作多方便啊。

[wyxwenyaxing]

sqlserver2000和sqlserver2008是不同的 你在2000里的mdf是导不进2008的 因为2008不兼并的

[jiantheone]

Public datbin As BindingSource
Public datad As OleDbDataAdapter
Public builder As OleDbCommandBuilder
Public myConn As New OleDbConnection
Public datSet As New DataSet
Dim strCon As String = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & "数据库文件地址"
myConn.ConnectionString = strCon
Dim strCom As String = "SELECT * FROM 表名"

myConn.Open()

'用 OleDbDataAdapter 得到一个数据集
datad = New OleDbDataAdapter(strCom, myConn)
builder = New OleDbCommandBuilder(datad)
'把Dataset绑定数据表
datad.Fill(datSet, "表名")
'关闭此OleDbConnection
myConn.Close()
'新建BindingSource
datbin = New BindingSource(datSet, "表名")