名称""未声明是怎么回事啊？？？
名称 " "未声明是怎么回事啊？？？
写的一段登陆界面代码中，好几处都是名称未声明。 求解。
（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
昨天我回答过你的.
