标题:vb+Access可选择数据库的登录窗体
只看楼主
chenliu
Rank: 1
等 级:新手上路
帖 子:34
专家分:0
注 册:2007-7-15
 问题点数:0 回复次数:15 
vb+Access可选择数据库的登录窗体

自学VB半年,做个东东请高手指点

in6bm19p.rar (56.34 KB) vb+Access可选择数据库的登录窗体


搜索更多相关主题的帖子: 数据库 Access 窗体 选择 登录 
2007-09-01 19:44
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
得分:0 
[QUOTE]001.ini
[CODE]F:\学习\登录\mybb2007.mdb[/CODE]
mybb2007.mdb
mybb2008.mdb
登录1.vbp
登录1.vbw[/QUOTE]

难道你学VB半年还不知道你给的文件不完整?
2007-09-01 21:16
coachard
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:1251
专家分:0
注 册:2007-8-12
得分:0 
话说十年磨一剑~他才半年,雏形都还没出来呢。勿怪,勿怪~~

偶学编程,也许本身就是一个错。。。
2007-09-01 21:19
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
得分:0 
我也不比楼主多多少时间……
2007-09-01 21:26
chenliu
Rank: 1
等 级:新手上路
帖 子:34
专家分:0
注 册:2007-7-15
得分:0 
第一次上传东东,不好意思弄砸了
CVMQDqQA.rar (79.63 KB) vb+Access可选择数据库的登录窗体


2007-09-01 21:34
chenliu
Rank: 1
等 级:新手上路
帖 子:34
专家分:0
注 册:2007-7-15
得分:0 
我是学财会的,业余时间自学一下VB。
希望版主多多指点!
2007-09-01 21:40
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
得分:0 
[QUOTE]---------------------------
Microsoft Visual Basic
---------------------------
未找到路径: 'C:\Documents and Settings\multiple1902\木材结算\frm_main.frm'--继续加载工程吗?
---------------------------
是(Y) 否(N) 帮助
---------------------------[/QUOTE]

启动时:
[QUOTE]---------------------------
登录1
---------------------------
'F:\学习\登录\mybb2007.mdb'不是一个有效的路径。 确定路径名称拼写是否正确,以及是否连接到文件存放的服务器。
---------------------------
确定
---------------------------[/QUOTE]
2007-09-01 22:09
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
得分:0 
我是学中考和高考的,业余时间自学一下VB。
希望大家多多指点
2007-09-01 22:10
chenliu
Rank: 1
等 级:新手上路
帖 子:34
专家分:0
注 册:2007-7-15
得分:0 
重新整理了一下,
aYF5Fwra.rar (98.12 KB) vb+Access可选择数据库的登录窗体


第一次运行要重新选择数据库路径,
密码:1
辛苦版主再看一下!
2007-09-01 22:34
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
得分:0 
[CODE]Private Sub Combo1_GotFocus()
On Error GoTo onn
Dim ix, iy, iz As String
sjk = Text2.Text
Call conn
ix = "select*from 密码"
rs.Open ix, GG, 2, 3
Combo1.Clear
While rs.EOF = False
iy = rs.Fields("id").Value
Combo1.AddItem (iy)
rs.MoveNext
Wend
rs.Close
Exit Sub
onn:
rs.Close
MsgBox Err.Description
End Sub[/CODE]

你忽略了一点。
Form加载过后Combo1得到焦点,即连接数据库了,还没来得及设置数据库路径。
2007-09-02 11:32



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-167057-1-1.html




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

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