以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教前辈.动态创建数据源的代码如何写?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=24243)
--  作者：kevin
--  发布时间：2012/10/9 3:37:00
--  请教前辈.动态创建数据源的代码如何写?


此主题相关图片如下：qq截图20121009032325.png
按此在新窗口浏览图片

 

希望将这个代码修改为动态的:

 

Connections.Add("test","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\abc.mdb;Persist Security Info=False")

 

数据源名称能根据TextBox1的字符而定.也就是说,用TextBox1的字符代替上面代码的"text"

数据库文件的路径则根据ComboBox1的字符而定,就是说:用ComboBox1的字符代替数据库文件的路径:C:\\abc.mdb

 

麻烦各位前辈帮忙!
--  作者：zoomify
--  发布时间：2012/10/9 6:31:00
--  

一直问问题，受惠于foxtable,也来反馈服务下大家：

Dim str1 As String
Dim str2 As String


Dim 变量名1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim 变量名2 As WinForm.ComboBox = e.Form.Controls("ComboBox1")

str1 =变量名1.Text
str2 =变量名2.Text


Connections.Add(str1,"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & str2  & ";Persist Security Info=False")

For Each item As String In Connections(str1).GetTableNames
    msgbox(item)
Next

 

测试有效