以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  连接的代码怎么写，高手帮一下  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=48392)
--  作者：狐狸爸爸
--  发布时间：2014/3/28 9:36:00
--  

动态增加数据源：

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

 

动态增加表：

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

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

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

 

在窗口显示：

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

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

 
--  作者：有点甜
--  发布时间：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")

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

 

提示什么错？你直接把这个字符串粘贴到【添加外部数据源】那里是否成功？
--  作者：有点甜
--  发布时间：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编辑过]
--  作者：有点甜
--  发布时间：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)
--  作者：菲舍尔
--  发布时间：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编辑过]