13,825
社区成员
发帖
与我相关
我的任务
分享续：关于BCB5+ADO+ACCESS，高手HELP ME。
用ADO数据库编程，ConnectionString中的数据库路径可否在程序中动态生成？
...全文
请发表友善的回复…
发表回复
zfming 2001-08-06
- 打赏
- 举报
呵，这么老的帐都让孙老大发现了，我实在是忘了，请大家原谅，现在给分：）
Wingsun 2001-07-08
- 打赏
- 举报
古老的问题，应该给分了！
bruce_zhao 2000-09-29
- 打赏
- 举报
To Wingsun:
具体的参数是什么意思？如果我用ADO访问一个DBF文件，该怎么设置？
具体的参数是什么意思？如果我用ADO访问一个DBF文件，该怎么设置？
bruce_zhao 2000-09-29
- 打赏
- 举报
To Wingsun:
具体的参数是什么意思？如果我用ADO访问一个DBF文件，该怎么设置？
具体的参数是什么意思？如果我用ADO访问一个DBF文件，该怎么设置？
wu_xin 2000-09-26
- 打赏
- 举报
同意wingsun,ACCESS比这简单!
duhorse 2000-09-24
- 打赏
- 举报
ConnectionString是一个字串类型，其中的数据库路径，你只要根据实际运行的情况取得正确的数据库文件路径，然后组合为一个正确的ConnectionString字符串，再连接就可以了，主要是知道ConnectionString的组合格式，再取得正确路径就OK。
Wingsun 2000-09-24
- 打赏
- 举报
当然可以啊，如下：
AnsiString Con="Provider=SQLOLEDB.1;Persist Security "
"Info=False;Initial Catalog=WLJK;"
"Locale Identifier=2052;"
"Connect Timeout=15;"
"Use Procedure for Prepare=1;"
"Auto Translate=True;"
"Packet Size=4096;";
AnsiString ConnectionString;
ConnectionString=Con;
ConnectionString+="User ID="+User+";";
ConnectionString+="Data Source="+Server+";";
ConnectionString+="Password="+Password+";";
cnCIQDatabase->ConnectionString=ConnectionString;
cnCIQDatabase->Connectted=true;
这是连接SQL Server的。可变的参数是Server Name、Password和User Name.
你可以根据你的需要改变它。
AnsiString Con="Provider=SQLOLEDB.1;Persist Security "
"Info=False;Initial Catalog=WLJK;"
"Locale Identifier=2052;"
"Connect Timeout=15;"
"Use Procedure for Prepare=1;"
"Auto Translate=True;"
"Packet Size=4096;";
AnsiString ConnectionString;
ConnectionString=Con;
ConnectionString+="User ID="+User+";";
ConnectionString+="Data Source="+Server+";";
ConnectionString+="Password="+Password+";";
cnCIQDatabase->ConnectionString=ConnectionString;
cnCIQDatabase->Connectted=true;
这是连接SQL Server的。可变的参数是Server Name、Password和User Name.
你可以根据你的需要改变它。
nononono 2000-09-23
- 打赏
- 举报
哦哦,是VB.
nononono 2000-09-23
- 打赏
- 举报
这回答也不是BCB, 是Delphi. 呵呵
知行职场-雷曼 2000-08-23
- 打赏
- 举报
不好意思，我是用VB实现的，我初学BCB，还不能用BCB来回答，SORRY
知行职场-雷曼 2000-08-23
- 打赏
- 举报
可以动态生成是不是弹出一个DATALINK的对话框？
你可以试试
Public Function GetConnectDSN(ByVal DSN As String) As String
Dim c As DataLinks
Dim d As ADODB.Connection
Set c = New DataLinks
Set d = New ADODB.Connection
d.ConnectionString = DSN
If c.PromptEdit(d) = True Then
GetConnectDSN = d.ConnectionString
mvarLastDSN = d.ConnectionString
mvarConnectResult = True
Else
mvarConnectResult = False
GetConnectDSN = ""
End If
Set d = Nothing
End Function
你可以试试
Public Function GetConnectDSN(ByVal DSN As String) As String
Dim c As DataLinks
Dim d As ADODB.Connection
Set c = New DataLinks
Set d = New ADODB.Connection
d.ConnectionString = DSN
If c.PromptEdit(d) = True Then
GetConnectDSN = d.ConnectionString
mvarLastDSN = d.ConnectionString
mvarConnectResult = True
Else
mvarConnectResult = False
GetConnectDSN = ""
End If
Set d = Nothing
End Function
Tyro 2000-08-23
- 打赏
- 举报
不懂什么意思！
