- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]access数据源链接 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=71000)
-- 发布时间：2015/7/3 7:52:00
-- [求助]access数据源链接
老师，
自定义的数据源，但是总是有问题，请老师帮忙看下：
Dim str As DataRow = DataTables("配置").DataRows(0)
Dim s As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & str("attch") & ";Persist Security Info=False & "
\'GetConfigValue("DataSource","")
Dim form As String = Args(0)
try
Dim conn As ADODB.Connection
conn = New ADODB.Connection
conn.ConnectionString = s
conn.Open
Forms(Form).Text = Forms(Form).Name
Return "True"
conn.close
Catch ex As Exception
Forms(Form).Text = Err.Description
MessageBox.Show("数据库" & Err.Description & "请联系管理员!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
Return "False"
End try
Access 数据源链接字符串是这个：
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\Documents and Settings\\Administrator\\桌面\\111.mdb;Persist Security Info=False
-- 发布时间：2015/7/3 7:59:00
--
提示,老师这个字符串没有问题呀，怎么会是
此主题相关图片如下：qq图片20150703075915.png
[此贴子已经被作者于2015/7/3 9:06:49编辑过]
-- 发布时间：2015/7/3 9:24:00
--
用messagebox.show(s)显示一下合成的字符串是什么。
-- 发布时间：2015/7/3 9:41:00
--
测试了一下，代码没问题
Dim conn As New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\\test.mdb;Persist Security Info=False"
conn.Open
[此贴子已经被作者于2015/7/3 9:40:44编辑过]
-- 发布时间：2015/7/3 10:02:00
--
哦 老师找到了 马虎了
测试 可以连接了
那怎么使用命令 使下次 登陆 就不在提示这个窗口 直接使用这个数据源
-- 发布时间：2015/7/3 10:09:00
--
看这里，用ip.txt存储字符串
http://www.foxtable.com/help/topics/0682.htm
-- 发布时间：2015/7/3 17:04:00
--
老师‘
提示错误
.NET Framework 版本：2.0.50727.3053
Foxtable 版本：2014.11.11.1
错误所在事件：
详细错误信息：
在 ConnectionString 中未指定 OLE DB 提供程序。示例为:“Provider=SQLOLEDB;”。
-- 发布时间：2015/7/3 17:07:00
--
1、你保存到ip.txt的字符串是什么；
2、你代码怎么写
-- 发布时间：2015/7/3 17:16:00
--
例子 麻烦您给看看 整了好几天了
-- 发布时间：2015/7/3 17:24:00
--
代码
Dim ipFile As String = e.ProjectPath & "Attachments\\ip.txt"
If e.Name = "User" Then
If Filesys.FileExists(ipFile) Then
Dim ip As String = FileSys.ReadAllText(ipFile)
e.ConnectionString =ip \'已配置好的数据源连接字符串
End If
End If