| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 784 人关注过本帖
标题:ACCESS 数据库的连接。
只看楼主 加入收藏
诗斌
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2005-11-22
收藏
 问题点数:0 回复次数:4 
ACCESS 数据库的连接。
题目:连接ACCESS 2000数据库,并相比较。
操作系统:Win2000 Pre ACCESSS 2000

要求说明:
E盘下的FILE文件夹有一个宿舍管理系统,FrmLogin 窗体,FrmMain窗体,FrmLogin窗体里面有TxtUser,TxtPwd,cmdOK等几个对象。

一个ACCESS2000数据库文件,ACCESS2000数据库里面有一个BOOK表,BOOK里面有"ID","AdminUser","AdminPwd"三个字段,ID=1,AdminUser=admin,AdminPwd=admin888

我想请教各位高手,怎么可以连接到我的数据库(相对连接),并与FrmLogin窗体的TxtUser,TxtPwd对象的值相比较。如果ACCESS里面的AdminUser,AdminPwd和FrmLogin窗体里面的TxtUser,TxtPwd相同则关闭FrmLogin,并打开FrmMain窗体。如果不相符则退出系统。谢谢各位高手了。

如果还有不知道的,我可以再详细的说一下。
搜索更多相关主题的帖子: 数据库 ACCESS 
2006-05-12 16:48
hyhhd
Rank: 2
等 级:论坛游民
威 望:1
帖 子:502
专家分:44
注 册:2006-5-12
收藏
得分:0 
可以用控件或DAO、ADO来连接指定的数据库并返回记录集,同时再将输入的姓名和密码用DO和LOOP进行比较,如果有则退出循环并打开主程序。在这之前需声明一个标志,FORM初始化时为假,在DO循环中如果有则为真,然后再判断是否打开主画面。

2006-05-12 22:57
kd10wp
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2006-5-13
收藏
得分:0 
这样的回答也太简单了,可不可以说清楚一点呀
2006-05-13 00:59
jackboy
Rank: 2
等 级:论坛游民
帖 子:163
专家分:27
注 册:2005-10-9
收藏
得分:0 
其实二楼说的已经差不多了,只是没讲到数据库里循环还需要使用到记录指针,比如EOF来判断记录是否已经到最未尾

2006-05-13 08:49
wjh20041985
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2006-5-13
收藏
得分:0 
[求助]

大家好啊,我是VB的初学者!最近没事照着教材做了几个小小的系统!但运行时总出错!而且错误多数是-"变量没定义"代码我基本是是安书上写的.不知怎么硬是出错!我反凝是没连接到数据库......
真是急死我了,那位知道的大哥帮个忙啊,帮我解决一下这个问题.
登录窗体代码如下:
Option Explicit
Dim loginsucceeded As Boolean
Private Sub cmdcance1_click()
Unload Frmlogin
Introfrm.Show
End Sub
Private Sub cmdOK_Click()
If txtusername.Text = "administrator" Then
loginsuccessded = verify(txtusername, txtpassword)
If (loginsuccessded = ture) Then
id = textusenrname
admin = True
Unload Frmlogin0
MDIMainfrm.Show
End If
Else
loginsuccessded = verify(txtusername, txtpassword)
If (loginsuccessded = True) Then
id = textusername
admin = False
Unload Frmlogin
MDIMainfrm.Show
End If
End If
End Sub
Function verify(userid As String, txtpwd As String) As Boolean
Dim idinfo As Recordset
Dim sqlstr As String
sqlstr = "select 学号,密码 from 密码 where 学号= '" & userid & "'"
Set idinfo = coursedb.OpenRecordset(sql, dbOpenSnapshot, dbReadOnly)
If (idinfo.recorcount = 0) Then
MsgBox
verify = False
Else
If (idinfo.Fields("密码").Value = txtpwd) Then
verifr = True
Else
MsgBox
verify = False
End If
idifo.Close
End Function

End Function

Private Sub Label3_Click()

End Sub

Private Sub Label4_Click()

End Sub

标准模块代码为:

Public id As String
Public username As String
Public coursedb As Database
Public admin As Boolean
Sub commitform(courseid, cuorsename)
With Fillfrm
.nametext.Text = username
.nametext.Locked = True
.idtxt.Text = id
.idtxt.Locked = True
.coursenametxt = coursename
.courseidtxt = xourseid
End With
Fillfrm.Show vbModal
End Sub
Sub opendb()
DBEngine.DefaultType = dbUseJet
Set coursedb = DBEngine.OpenDatabase("course.mdb", False, False)
End Sub
那位知道是怎么回事的大哥望速给我回话.

2006-05-13 13:52
快速回复:ACCESS 数据库的连接。
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.025867 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved