VB用ADODC制作登陆界面
adodc的属性里记录源选择1-adcmdtext Adodc1.RecordSource = "SELECT * FROM 系统用户 WHERE 用户名='" & text1.Text & "'"后面加一句 Adodc1.Refresh
怎样用VB编写一个登陆系统,可以注册账号的那种
1）1）首先需要用数据库软件（如ACCESS软件）建立一个数据库，新建几个表，用以记录帐号密码的表、登录日志表和其他与此有关的所需要的表等。2）VB新建数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。3）然后在FORM1窗体中添加ADO数据控件，右键-ADODC1控件属性页-使用...
想用VB做一个登陆界面如何和access相连接?
1、首先在部件-控件里找到MicrosoftADODataControl6.0，打勾，然后在窗体上添加Adodc1。2.添加两个文本输入框text1,text2，分别用来接收用户输入用户名和密码。3、在Adodc1控件的属性窗口中单击Connectionstring右侧的…按钮，打开ADO的属性页，选择“使用连接字符串”，单击“生成”按钮，打开数据链接属性...
用vb实现登录界面,写了代码,但运行不出来,很是郁闷,请大家帮帮我,新手...
这个 连接不要那么弄 Adodc1.RecordSource = "select * from enter "adodc1.Recordset.findfirst "username=" & text1.text if adodc1.Recordset!password=text2.text then ...else ...endif
用vb,access做一个登陆界面。
Private Sub Cmd_ok()On Error Resume Next Dim Psw As String If txtuser = "" Or txtpwd = "" Then MsgBox "用户名密码不能为空,请重新输入!", 64, "提示"Else Adodc1.RecordSource = "select * from 登录表 where admin ='" & txtuser.Text & "'"Adodc1.Refresh If Adodc1....
VB登陆界面 本人VB小白,请大虾帮忙看看,最好能给份 我复制后 我的登陆...
"Text1.SetFocusText1.Text = ""Exit SubEnd IfIf Trim(Text2.Text) = "" ThenMsgBox "密码不能为空，请重新输入！"Text2.SetFocusText2.Text = ""Exit SubEnd IfAdodc1.RecordSource = "select * from user"Adodc1.RefreshIf Adodc1.Recordset.Fields("Username") = Text1.Text Then ...
vb使用ADODC连接数据库,登录用户名密码验证问题
使用SQL语句select * from 你的数据库名称 where 用户名或密码='"+登陆时的用户或密码+"'Adodc.Refresh(这句一定要，用来刷新用的)判断Adodc.Recordset.RecordCount的值是否为0，不为零说明正确，否则错误。这里只提供了思路，用户和密码的方法是一样的。
vb怎么制作一个登录班级选举系统
2）VB新建数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。3）然后在FORM1窗体中添加ADO数据控件，右键-ADODC1控件属性页-使用连接字符串，选生成，在提供者选项中选合适的OLE DB连接数据库等。在ADODC1控件属性页使用连接字符串空白文本窗口中就有一长串字符串，注意该字符...
我编了一个vb的登陆界面,代码如下,不管我输入什么,总显示“用户名不存在...
MsgBox "用户名不能为空！", vbOKOnly + vbExclamation, "警告"Text1.SetFocus ElseIf Trim(Text2.Text) = "" Then MsgBox "密码不能为空！", vbOKOnly + vbExclamation, "警告"Text2.SetFocus Else Adodc1.RecordSource = "select * from 地址 where 姓名='" & Trim(Text1.Text) & "' ...
谁知道用VB做一个登陆框,要求用datacombo,选择用户,单击后显示登陆框...
Private Sub Combo1_Click()If Combo1.Text = "" Then MsgBox "没有选择用户，请选择！", 16, "选择用户！"Exit Sub End If Frame1.Visible = True '使登录框可见 Frame1.Caption = Combo1.Text & "用户登录"End Sub Private Sub Command1_Click()If Text1.Text = "" Then MsgBox ...
