Dim a As New SqlCommand
a.CommandText = "select * from User where ID=" & TextID.Text & "And PassWord = "& TextPassWord.Text
a.Connection = Me.SqlConnection1
Dim cmd As SqlDataReader
Me.SqlConnection1.Open()
cmd = a.ExecuteReader
If (cmd.Read) Then
MsgBox("有这条数据", , "")

Else
MsgBox("没有这条数据", , "")
End If
Me.SqlConnection1.Close()

程序运行带绿色处无法响应

[此贴子已经被作者于2007-7-8 23:42:06编辑过]

没有看懂这句： cont = Convert.ToInt32(a.ExecuteScalar())
还有就是数据类型我设置的是　text　的类型

运行之后~出错~
数据类型 text 和 varchar 在 equal to 运算符中不兼容。

如果设置了text的话应该怎么接受从数据库中返回的信息

[此贴子已经被作者于2007-7-11 14:35:44编辑过]

Dim a As New SqlCommand
a.CommandText = "select count(*) from ID='" & TextBox1.Text & "'and PassWord ='" & TextBox2.Text & "'"
a.Connection = Me.SqlConnection1
Me.SqlConnection1.Open()
Dim b As Integer
b = Convert.ToInt32(a.ExecuteScalar())
If b > 0 Then
MsgBox("有", , "")
Else
MsgBox("无", , "")
End If

Me.SqlConnection1.Close()

提示"="语法有错误~

thank you 各位大虾

小弟再问一下:
a.CommandText = "select count(*) from User where ID='" & TextBox1.Text & "'and PassWord ='" & TextBox2.Text & "'"

中的count(*) 代表社么意思呀

如何我把类型设置成其他的 如: text int 等这的类型

在vb 中应该什么接受返回的数据

如果返回的值既有int，又有varchar类型的应该怎么办～～如何接收～

dim a as new sqlcomman
a.commandtext="select a,b from table1 where a=xxx"
a.connction=me.sqlconnction1
me.sqlconnction1.open
dim id as integer '用于接受a的值
dim user as integer '用于接受b的值
<请问应该怎么进行,如何将a,b值给id和user>
me.sqlconnction1.close