名称 未声明是怎么回事啊???
名称 未声明是怎么回事啊??? 写的一段登陆界面
代码中,好几处都是
名称未声明。 求解。 (adUseClient,txtUserID,adOpenStatic,adLockReadOnly,txtPwd)这些
代码都是
名称未声明,哪位高手可以告诉我怎么改么??最好是详细一点,本人菜鸟。 把
修改好的发上也行。 谢谢!!!! Private Sub _Command1_0_Click(ByVal sender As Sy
stem.Object,ByVal e As Sy
stem.EventArgs) Handles _Command1_0.Click Dim str
sql As String Dim cn As New adodb.connection Dim rs As New ADODB.Recordset cn.ConnectionString = Provider=
sqloledb;Data Source=pmserver;Initial Catalog=
northwind;User Id=sa;Password=sa; cn.
open() rs.CursorLocation = adUseClient str
sql = select 密码 from 表 where
登录名= & txtUserID.Text & rs.Open(str
sql,cn,adOpenStatic,adLockReadOnly) If rs.recordcount = 0 Then Msg
Box(
用户名不正确 ) Else If rs.Fields(0).Value = txtPwd.text Then Msg
Box(
登录成功 ) Else Msg
Box( 密码
错误 ) End If End If End Sub __________________________________________________________________________ 给你一段偶运行通过的
代码,对照着
修改吧,应该没什么问题的 Imports Sy
stem.Data.
sqlClient Private Sub OK_Click(ByVal sender As Sy
stem.Object,ByVal e As Sy
stem.EventArgs) Handles OK.Click If Trim(UsernameText
Box.Text) = Or Trim(PasswordText
Box.Text) = Then LoginError() //这是自己写的
函数 Exit Sub Else End If Dim queryString As String = SELECT u_name,u_password FROM usermanage where u_name= & UsernameText
Box.Text & and u_password= & PasswordText
Box.Text & ; Dim Sconnect As New
sqlConnection( server=服务器名;user id=登陆
数据库的
用户名;password=登陆
数据库的密码;database=
sql数据库名 ) Dim command As New
sqlCommand(queryString,Sconnect) Sconnect.
open() Dim reader As
sqlDataReader = command.ExecuteReader() If reader.HasRows = True Then reader.Read() username = UsernameText
Box.Text Me.Hide() frmMain.Show() Else LoginError() End If Sconnect.Close() End Sub __________________________________________________________________________ 换上你的这个比我的还未声明的还多啊 __________________________________________________________________________ 不过还是非常感谢 __________________________________________________________________________ 你要在 引用哪里 右键
添加 引用 然后在 .net 下找到 adodb这个组件.->
添加 然后在使用 这个. Imports ADODB Imports ADODB.CursorLocationEnum 这个为了声明这个CursorLocation 的 Imports ADODB.CursorTypeEnum 为了声明adOpenStatic Imports ADODB.LockTypeEnum adLockReadOnly 昨天我回答过你的. __________________________________________________________________________ If rs.Fields(0).Value = txtPwd.text Then 这个txtpwd.txt的
一个文本框 __________________________________________________________________________ 我按你说的
添加了adodb这个组件,但还是不行, Imports 语句前面必须是声明 这个
错误提示 __________________________________________________________________________ 那发你的
页面代码出来看看... __________________________________________________________________________
原文地址:https://www.jb51.cc/vb/263480.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。