[分享]创建sql数据库的dll文件。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [分享]创建sql数据库的dll文件。

共有5547人关注过本帖树形打印复制链接主题：[分享]创建sql数据库的dll文件。

baicaocao

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：497 积分：4892 威望：0 精华：0 注册：2012/4/20 8:42:00

[分享]创建sql数据库的dll文件。 发帖心情

Post By：2013/9/8 12:45:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:crbase.zip

调用方法：先把这个dll文件放到foxtable安装目录.

然后在引用中引用为

命名空间

图片点击可在新窗口打开查看此主题相关图片如下：y1.png

引用

图片点击可在新窗口打开查看此主题相关图片如下：yyong.png

在窗口中调用为：

dim cr as new cr.class1

调用函数为：

cr.CreateDatabase(1,2,3,4,5,6)

1:连接master数据库字符串，类型为string；例子:"Data Source=" & 服务器地址 & "; Initial Catalog=master; user id=" & _
数据库登录名 & "; password=" & 数据库密码 & ";"

2:需要创建的数据库的名称,类型为string;

3:数据库存在磁盘的名称.

4:数据库存在磁盘的（路径+名称.mdf）。

5：数据库日志文件存在磁盘的名称.

6：数据库日志存在磁盘的（路径+名称.log)

'不好意思，第一个参数是现在修改过的例子，使用的sqlclient。不是sqlolede

[此贴子已经被作者于2013-9-8 17:58:59编辑过]

lsy

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：2013/9/8 14:45:00 [只看该作者]

顶帖支持。

land089

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：451 积分：3045 威望：0 精华：1 注册：2012/7/17 22:08:00

Post By：2014/7/11 0:34:00 [只看该作者]

亲有没有示例呀！

cnsjroom

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00

Post By：2021/1/18 15:13:00 [只看该作者]

组合运行提示错误有没有老师可以帮忙解答呢？

Dim cr As new cr.class1

Dim a1 As String = """" & "Data Source= " & e.Form.Controls("TextBox1").Value & ";"

Dim a2 As String = "Initial Catalog= " & e.Form.Controls("TextBox2").Value & ";"

Dim a3 As String = "user id= " & e.Form.Controls("TextBox3").Value & ";"

Dim a4 As String = "Password= " & e.Form.Controls("TextBox4").Value & ""","

Dim a5 As String = """" & e.Form.Controls("TextBox5").Value & ""","

Dim a6 As String = """" & e.Form.Controls("TextBox6").Value & ""","

Dim a7 As String = """" & e.Form.Controls("TextBox7").Value & ""","

Dim a8 As String = """" & e.Form.Controls("TextBox8").Value & ""","

Dim a9 As String = """" & e.Form.Controls("TextBox9").Value & """"

Dim str As String = a1 & a2 & a3 & a4 & a5 & a6 & a7 & a8 & a9

e.Form.Controls("TextBox10").text=str

cr.CreateDatabase(str)

此主题相关图片如下：11111.png

下一主题 >> << 上一主题

主题：[分享]创建sql数据库的dll文件。