读书人

小弟我的有关问题集关于一个搞不懂的s

发布时间: 2012-02-07 17:45:36 作者: rapoo

我的问题集关于一个搞不懂的sql语句查询
我的代码先给大家看看
Try
If myconnection.State = ConnectionState.Closed Then
myconnection.ConnectionString = sqlstr
myconnection.Open()
Dim sqlselect = "select count(*) from denglu where zhanghao= ' " & Trim(Me.TextBox1.Text) & " ' And pwd= ' " & Trim(Me.TextBox2.Text) & " ' "
Dim sqlselect1 = "select able from denglu where zhanghao= ' " & Trim(Me.TextBox1.Text) & " ' And pwd= ' " & Trim(Me.TextBox2.Text) & " ' " ------------
Dim sqlstr2 = "select * from denglu " ==========
Dim mycommand As New SqlCommand(sqlselect, myconnection)
If mycommand.ExecuteScalar > 0 Then
Me.Close()
myconnection.Close()
If myconnection.State = ConnectionState.Closed Then
myconnection.ConnectionString = sqlstr
myconnection.Open()

Dim mydataset As New DataSet
Dim mydataadapter As New SqlDataAdapter(sqlselect1, myconnection) **********


mydataset.Clear()
mydataadapter.Fill(mydataset, "denglu ")
MsgBox(mydataset.Tables( "denglu ").Rows.Count)
……………………………………
TemPower = mydataset.Tables( "denglu ").Rows(0)( "power ") %%%%%%%%%%%
End If
Dim form2 As New Form2
form2.Show()

form2.Text = "主窗体 "
Else
MsgBox( "用户名不正确,请重新填写! ")
TextBox1.Text = " "
TextBox2.Text = " "
TextBox1.Focus()
End If

End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
请大家注意一下我标注的地方
首先第一个
是正确的
第二个也是正确的
第三个也是正确的
到第四个


给的提示是0(就是没有值)
但我把
********处的sqlselect1改为==========处的sqlstr2
在运行下去
提示8 (有值)
在%%%%处设段点看一下也有相应的值
是为什么呢
我的 ------------处的sqlselect1有错吗
able字段的意思是权限
其实我这个代码就是取正确的帐号和密码的权限的
帮我看看好吗
谢谢了


[解决办法]
原因是回帖了总是没人给分
[解决办法]
Trim(Me.TextBox1.Text)\ Trim(Me.TextBox2.Text)
输入正确吗?

读书人网 >VB Dotnet

热点推荐