Foxtable(狐表)用户栏目专家坐堂 → [求助]"Imports "语句前必须是声明?


  共有4468人关注过本帖树形打印复制链接

主题:[求助]"Imports "语句前必须是声明?

帅哥哟,离线,有人找我吗?
狐狸爸爸
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/12/31 16:48:00 [显示全部帖子]

不需要引用这个文件的哦,System.Data.SqlClient对应的dll文件在system.data.dll,foxtable已经引用了,删除引用。

代码改为:

 

Public  Sub btnAttach_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
' 利用 SqlConnectionStringBuilder 对象来构建连接字符串.
Dim connectStringBuilder As New System.Data.SqlClient.SqlConnectionStringBuilder()
connectStringBuilder.DataSource = "WIN7-PC"
' 使用相对路径的手法来指定所要附加的 SQL Server 数据库文件.
'connectStringBuilder.AttachDBFilename = "|DataDirectory|\附加数据库\乐博网.mdf"
connectStringBuilder.AttachDBFilename = "D:\GSql\Data\练习附加2.mdf"
connectStringBuilder.IntegratedSecurity = True
' 附加数据库.
connectStringBuilder.UserInstance = False
' 将附加至 SQL Server 实例的数据库名称设定成"乐博网".
connectStringBuilder.InitialCatalog = "练习附加2"


Try
    Using cn As New System.Data.SqlClient.SqlConnection(connectStringBuilder.ConnectionString)
    cn.Open()
   
    MessageBox.Show("已成功附加(练习附加2)数据库,可以开始执行数据库的存取操作.")
   
    ' 您可以接着撰写存取所附加之数据库的程序代码.
   
End Using

Catch ex As Exception
    MessageBox.Show(ex.Message)
End Try
End Sub


 回到顶部