vb登陆连接程序,vb程序如何连接数据库

求上帝给一个用户vb-1/Access数据库和一个注册用户程序？如何将VB登陆Interface程序与设计好的D8网站连接、vb 连接数据库做登陆 程序只需写一个数据连接字符串保存如果要配置，我建议连接。

private subcommand 1 _ click()提交按钮if text 1vband text 21234 then msgbox(登录成功)ElseMsgBox(您的输入不正确，请重新输入)endifendssubprivatesubcommand 2 _ click()退出按钮EndEndSub。

有一个webbrowser控件可以轻松满足你的要求。【以下是我给你的假想登陆界面】1。添加两个表单，即form1和form22，在form1中添加一个文本框text1作为密码框，一个命令按钮command13，在form2中添加一个控件WebBrowser1。

默认情况下，一台XP机器一次只能有一个活动用户，后一个用户会把前一个用户踢倒。所以tyq1.tyq2不能同时进入tyq3。远程桌面的名称是:mstsc.exe。可以用VB调用这个程序。同时，mstsc.exe也支持默认参数。当你打开远程桌面时，你可以看到一个[选项]，然后你可能会得到用户名和密码。您可以通过单击“另存为”将此链接保存为文件。

dimaaaaaaastringprivatesubcommand 1 _ click()dimaa，bbaadmin 账号bbadmin888 密码aaval (AAA) 1 记录登录次数IfVal(AAA)>3Then 等于3次以上，提示并退出程序MsgBox。你已经三次输入错误了。endendifext 1和text2bbbthen 如果输入正确，MsgBox登录成功！我。Hideform2 .如果输入错误的MsgBox账号或密码，显示‘登录成功后，进入form2界面Else’！endifendsubprivatesubform _ load()label 1欢迎！

optionexplicitPublicLoginSucceEdasBoolean Exit form privatescumbexit _ Click()loginsucceedoutloadmeendsub 检查数据privatescumbdok _ Click()setrsnewadodb . recordsetrscn . execute(select * from user)Ifrs。如果数据库中没有用户，你可以输入RS。closesetrsnownthingunload melody frmmaineitsu bendifrs。movefilestdofirs。字段(用户名)txtuser。发短信。字段(密码)。txt密码。TextThenLoginSucceededTruers . closeunloadmeloadfrmmmainfrmmain . showexitsubexitdoendifrs . movenextl .

(1)创建一个新的数据库，并将其命名为邓璐。在数据库中新建一个表User1，表中的列为“ID，username，pwd”。(2)设计登录成功后显示的登录界面Frmlogin和界面Form2，以及连接到数据库，使数据库中包含的合法用户可以成功登录程序，而非法用户无法进入程序。

DimDLCSAsInteger 度变量PrivateSubcmdOK _ Click()登录按钮如果用户名和密码是AdminiFTXtu。TextAdminandXTP TXTU是用户名，txtP是登录密码，注意FRMmain的大小写。显示登陆成功的我。隐藏短信。

Code source:引用MicrosoftActiveXDataObject2.6或更高版本DimdbAsNewADODB。“Connection”声明了类似DimrsAsNewADODB的数据库对象。“Recordset”声明类似DimmstreamAsADODB的表对象。“Stream”声明流对象(它似乎也称为二进制。make a object)private sub log in database _ Click() open database on errorgotoerrhandle 错误处理db . openprovidermicrosoft . jet . oledb . 4.0；DataSourceF:\巨浪网络\数据库练习3\Data.mdb 无密码访问 db . openprovidermicrosoft . jet . oledb . 4.0；DataSourceF:\巨浪网络\数据库练习3 \ data 2 . MDB；JetOLEDB:databasepassword 密码访问是数据库密码rs。OpenSelect *从学生列表中，

只需写一个数据连接 string保存即可。如果要配置的话，我建议把所有的连接字符串保存在配置文件中，然后构建一个表单来更改字符串，请尝试将其更改为以下内容:adodc 1 . refresh adodc 1 . record source select * from username text 1。 Text 和password text2.text 如果adodc 1 . recordset . record count 0然后msgbox用户名或密码不正确。