- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]"Imports "语句前必须是声明？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=44449)
-- 发布时间：2013/12/31 15:14:00
-- [求助]"Imports "语句前必须是声明？
网上找到到一段代码，放在全局代码里，有这个提示
Imports System.Data.SqlClient
Public Sub btnAttach_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
\' 利用 SqlConnectionStringBuilder 对象来构建连接字符串。
Dim connectStringBuilder As New 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 SqlConnection(connectStringBuilder.ConnectionString)
cn.Open()
MessageBox.Show("已成功附加（练习附加2）数据库，可以开始执行数据库的存取操作。")
\' 您可以接着撰写存取所附加之数据库的程序代码。
End Using
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
6666666
-- 发布时间：2013/12/31 15:15:00
--
这是原代码全文
Imports System.Data.SqlClient
Public Class LOB
Private Sub btnAttach_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAttach.Click
\' 利用 SqlConnectionStringBuilder 对象来构建连接字符串。
Dim connectStringBuilder As New 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 SqlConnection(connectStringBuilder.ConnectionString)
cn.Open()
MessageBox.Show("已成功附加（练习附加2）数据库，可以开始执行数据库的存取操作。")
\' 您可以接着撰写存取所附加之数据库的程序代码。
End Using
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub LOB_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
-- 发布时间：2013/12/31 15:19:00
--
http://www.foxtable.com/help/topics/1936.htm
-- 发布时间：2013/12/31 15:24:00
--
这个【System.Data.SqlClient 】 foxtable不自带吗，我看里面有个 System.Data.DLL
-- 发布时间：2013/12/31 15:27:00
--
少了一级必须要引用
-- 发布时间：2013/12/31 15:53:00
--
Bin 老师，给做个示例 吧，命名空间我添加了，
-- 发布时间：2013/12/31 16:12:00
--
-- 发布时间：2013/12/31 16:48:00
--
刚才把代码放入 按钮click事件，
此主题相关图片如下：360软件小助手截图20131231164621.jpg
去掉红色部分，不报错，不过 代码没有真正运行，也就是没有附加上，也没有提示
-- 发布时间：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
-- 发布时间：2013/12/31 16:52:00
--
狐爸您终于来了，我等的好苦！
Bin 老师，你要请我吃饭，我被您带沟去了  |