以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助！求助！  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=43950)
--  作者：myzzip
--  发布时间：2013/12/19 14:10:00
--  求助！求助！

在BeforeConnectOuterDataSource中写如下代码

If Connections.Contains("Tckj") = False Then
    Connections.Add("Tckj","Provider=SQLOLEDB.1;Password=2664166;Persist Security Info=True;User ID=sa;Initial Catalog=Tckj;Data Source=myzzip.gnway.net,1433")
End If
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "CREATE TABLE [dbo].[MINE] ([_Identify] [int] IDENTITY (1, 1) NOT NULL ,[_Locked] [bit] NULL ,[_SortKey] [numeric](28, 0) NULL ,[MINE] [nvarchar] (16) COLLATE Chinese_PRC_CI_AS NULL) ON [PRIMARY] GO CREATE Table [dbo].[取气明细] ([_Identify] [int] IDENTITY (1, 1) NOT NULL ,[_Locked] [bit] NULL ,[_SortKey] [numeric](28, 0) NULL ,[类型] [nvarchar] (32) COLLATE Chinese_PRC_CI_AS NULL ,[日期] [datetime] NULL ,[客户] [nvarchar] (32) COLLATE Chinese_PRC_CI_AS NULL ,[数量] [float] NULL ,[单价] [float] NULL ,[单位] [nvarchar] (5) COLLATE Chinese_PRC_CI_AS NULL ,[金额] [float] NULL ,[编号] [nvarchar] (32) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY]"
cmd.ExecuteReader()

 

为什么不执行？？？
--  作者：Bin
--  发布时间：2013/12/19 14:11:00
--  
你想实现什么效果? 
--  作者：myzzip
--  发布时间：2013/12/19 14:16:00
--  

就是想实现 打开项目之前判断sql2000数据库中是否有“Tckj”这个库 如果没有就创建 并向这个库中追加数据表，若果有就不用创建库也不用追加表
--  作者：Bin
--  发布时间：2013/12/19 14:23:00
--  
首先  If Connections.Contains("Tckj") = False Then
你这个是判断狐表中是否有这个外部数据源,和数据库中有没数据库毫无关系.

数据库是必须要手动创建的,然后手动设置外部数据源.

然后可以根据外部数据源,判断是否有数据表,没有的情况下,使用SQLCOMMAND执行创建表的SQL语句



例如
Dim lst As List(Of String)
lst = Connections("nwnd").GetTableNames
if lst.Contains("表名") =false then  \'判断没有包含这个表
   执行创建表
end if