求助关于在前台中用代码创建与后台的带密码的链接表

小魏　发表于：2008-05-10 17:31:32 　

刚在网上看到大虾的文章,即"在前台中用代码创建与后台的链接表"的问题,我试了一下,这段代码,如果链接无密码的数据源时则没有问题,当链接有密码的数据源时,则出现一个窗口要求输入密码,这个是否也可以在代码中解决,即直接用代码来提供数据库密码而不需再出现一个窗口求我输入链接密码?

是否有办法,希望各位大虾帮助帮助我啊.

这段代码如下:

Private Sub Command3_Click()
Dim Backstr As String
Backstr = "D:\proe2\db-id-pw.mdb"
DoCmd.TransferDatabase acLink, "Microsoft Access", Backstr, acTable, "AllClasspw", "AllClasspw"
End Sub

另外,如果ODBC则就有直接在代码中输入密码的案例,如下代码,

'DoCmd.TransferDatabase acLink, "ODBC Database", "ODBC;DSN=DataSource1;UID=User2;PWD=www;LANGUAGE=us_english;" & "DATABASE=pubs", acTable, "Authors", "dboAuthors"

不知在现有状态是否也有类是于ODBC的解决之法,

先谢谢了.

Top

萧朋发表于：2008-05-12 09:16:43

你看一下下面对你有帮助吗？

这样的话是可以实现你那种功能的。

<%@ Language=VBScript %>
<%
'判断用户是否提交表单
if isempty(Request.Form("Login")) then
Session.abandon
Session("NumAttempts") = 1
TheMessage = "登录"
'<1> 校验用户提交的登录信息
else
set conn=server.createobject ("adodb.connection")
strconn="driver={microsoft access Driver (*.mdb)};dbq="& server.mappath("./Datasource/Datasource.mdb")
conn.open strconn
TheUsername=Request.Form("Username")
ThePassword=Request.Form("Password")
'<2> 连接数据库进行身份验证
If Instr(TheUsername, "'")=0 and Instr(ThePassword, "'")=0 and Instr(TheUsername, "'")=0 _
and Instr(ThePassword, "'")=0 then
set RSLogin = conn.Execute("select * from UserInfo where " & "LoginID = '" _
& TheUsername & "' and " & "Password = '" & ThePassword & "'")

Top

萧朋发表于：2008-05-12 09:16:56

你看一下下面对你有帮助吗？

这样的话是可以实现你那种功能的。

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

求助关于在前台中用代码创建与后台的带密码的链接表