Foxtable(狐表)用户栏目专家坐堂 → 求助!求助!


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

主题:求助!求助!

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


加好友 发短信
等级:幼狐 帖子:159 积分:1283 威望:0 精华:0 注册:2013/5/15 14:11:00
求助!求助!  发帖心情 Post By: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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/12/19 14:11:00 [只看该作者]

你想实现什么效果? 

 回到顶部
帅哥哟,离线,有人找我吗?
myzzip
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:159 积分:1283 威望:0 精华:0 注册:2013/5/15 14:11:00
  发帖心情 Post By:2013/12/19 14:16:00 [只看该作者]

就是想实现 打开项目之前判断sql2000数据库中是否有“Tckj”这个库 如果没有就创建 并向这个库中追加数据表,若果有就不用创建库也不用追加表


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By: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


 回到顶部