[VB.NET]名称
发布时间：2020-12-16 23:38:31 所属栏目：大数据 来源：网络整理
导读：名称 未声明是怎么回事啊？？？ 名称 未声明是怎么回事啊？？？ 写的一段登陆界面代码中，好几处都是名称未声明。 求解。 （adUseClient，txtUserID，adOpenStatic,adLockReadOnly，txtPwd）这些代码都是名称未声明，哪位高手可以告诉我怎么改么？？最好是详
|
名称 未声明是怎么回事啊？？？ 名称 未声明是怎么回事啊？？？ 写的一段登陆界面代码中，好几处都是名称未声明。 求解。 （adUseClient，txtUserID，adOpenStatic,adLockReadOnly，txtPwd）这些代码都是名称未声明，哪位高手可以告诉我怎么改么？？最好是详细一点，本人菜鸟。 把修改好的发上也行。 谢谢！！！！ Private Sub _Command1_0_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles _Command1_0.Click Dim strSQL 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 strSQL = select 密码 from 表 where 登录名= & txtUserID.Text & rs.Open(strSQL,cn,adOpenStatic,adLockReadOnly) If rs.recordcount = 0 Then MsgBox( 用户名不正确 ) Else If rs.Fields(0).Value = txtPwd.text Then MsgBox( 登录成功 ) Else MsgBox( 密码错误 ) End If End If End Sub __________________________________________________________________________ 给你一段偶运行通过的代码，对照着修改吧，应该没什么问题的 Imports System.Data.SqlClient Private Sub OK_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles OK.Click If Trim(UsernameTextBox.Text) = Or Trim(PasswordTextBox.Text) = Then LoginError() //这是自己写的函数 Exit Sub Else End If Dim queryString As String = SELECT u_name,u_password FROM usermanage where u_name= & UsernameTextBox.Text & and u_password= & PasswordTextBox.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 = UsernameTextBox.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 语句前面必须是声明 这个错误提示 __________________________________________________________________________ 那发你的页面代码出来看看... __________________________________________________________________________ （编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |