Foxtable(狐表)用户栏目专家坐堂 → 连接的代码怎么写,高手帮一下


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

主题:连接的代码怎么写,高手帮一下

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


加好友 发短信
等级:三尾狐 帖子:705 积分:5411 威望:0 精华:0 注册:2014/3/15 23:14:00
连接的代码怎么写,高手帮一下  发帖心情 Post By:2014/3/28 9:22:00 [只看该作者]

用户已被锁定

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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2014/3/28 9:36:00 [只看该作者]


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


加好友 发短信
等级:三尾狐 帖子:705 积分:5411 威望:0 精华:0 注册:2014/3/15 23:14:00
  发帖心情 Post By:2014/3/28 9:43:00 [只看该作者]

用户已被锁定

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/3/28 10:00:00 [只看该作者]

以下是引用liming730323在2014-3-28 9:43:00的发言:

Dim cn As Connection
Dim server As String
Dim mima As String
server=Forms("系统连接").Controls("TextBox1").text
mima=Forms("系统连接").Controls("TextBox2").text
Connections.Add("mf","SQLOLEDB.1;Password=" & mima & ";Persist Security Info=True;User ID=sa;Initial Catalog=mf;Data Source=" & server)
cn = Connections("mf")

这个语句有什么问题?测试出错呢

 

提示什么错?你直接把这个字符串粘贴到【添加外部数据源】那里是否成功?


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


加好友 发短信
等级:三尾狐 帖子:705 积分:5411 威望:0 精华:0 注册:2014/3/15 23:14:00
  发帖心情 Post By:2014/3/28 10:21:00 [只看该作者]

用户已被锁定

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/3/28 10:36:00 [只看该作者]

以下是引用liming730323在2014-3-28 10:21:00的发言:
里面有参数也能在添加数据源中测试吗?

 

不能,你可以把生成的字符串放到数据源那里测试。你那提示出错,应该就是你的字符串写错了,特别是server。

 

用代码之前,最好先在数据源那边实际测试一次。

 

http://www.foxtable.com/help/topics/2642.htm

 

[此贴子已经被作者于2014-3-28 10:37:17编辑过]

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


加好友 发短信
等级:三尾狐 帖子:705 积分:5411 威望:0 精华:0 注册:2014/3/15 23:14:00
  发帖心情 Post By:2014/3/28 10:37:00 [只看该作者]

用户已被锁定

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/3/28 10:43:00 [只看该作者]

 那不可能,提示什么错?直接把红色替换成你测试成功的字符串也报错?提示什么

 

Connections.Add("mf","SQLOLEDB.1;Password=" & mima & ";Persist Security Info=True;User ID=sa;Initial Catalog=mf;Data Source=" & server)


 回到顶部
帅哥哟,离线,有人找我吗?
菲舍尔
  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:504 积分:3492 威望:0 精华:3 注册:2012/11/13 15:49:00
  发帖心情 Post By:2014/3/28 11:02:00 [只看该作者]

Dim cn As Connection
Dim server As String
Dim mima As String
server=Forms("系统连接").Controls("TextBox1").text
mima=Forms("系统连接").Controls("TextBox2").text
Connections.Add("mf","SQLOLEDB.1;Password=" & mima & ";Persist Security Info=True;User ID=sa;Initial Catalog=mf;Data Source=" & server)
cn = Connections("mf")

 

这个代码运行出问题的几种情况无非就是以下几种:

 

1. 服务器地址是否正确

2. 服务器的密码是否正确

3. 服务器上是否有mf这个数据库

4. 网络连接是否通畅

 

你对照检查一下就好了

[此贴子已经被作者于2014-3-28 11:04:02编辑过]

 回到顶部