如何判断库中是否存在该记录。
具体代码如下：
－－－－－－－－－－－
Me.SqlConnection1_login.Open()
SqlDataAdapter1_login.SelectCommand.CommandText = "select * from 登入用户 where 姓名='" & Trim(Me.TextBox1_用户.Text) & "'"
If ……………… Then
form主窗口.ShowDialog()
Else
MsgBox("该用户不存在", MsgBoxStyle.OKOnly, "警告")
End If
－－－－－－－－－－－－－
引号部份就是问题，先用SqlDataAdapter1_login.SelectCommand.CommandText做了查询后，接着IF后面用什么方法或函数来判断select后的结果。换句说：找查SQL的登入用户表中是否有输入的Text用户姓名值，如果判断存在或不存在，这点不懂，请哪位朋友指点一下，十分感谢。
问题点数：20、回复次数：12Top
1 楼hamadou（闵峰--为了理想而奋斗）回复于 2005-06-02 14:01:41 得分 3
如果按照你的这种做法继续下去的话，就要fill，然后看看返回值Top
2 楼yistudio（阳光灿烂的日子）回复于 2005-06-02 14:02:25 得分 3
DataSet ds;
SqlDataAdapter1_login.Fill(ds);
if(ds.Table[0].Row[0][0]==null)
//...
else
//...Top
3 楼hamadou（闵峰--为了理想而奋斗）回复于 2005-06-02 14:08:10 得分 0
dim i as integer = SqlDataAdapter1_login.Fill(ds)
if i>0 then
'存在
end ifTop
4 楼ferrari1231（）回复于 2005-06-02 14:17:25 得分 3
dim i as integer = SqlDataAdapter1_login.Fill(ds)
if i>0 then
'存在
end if
Top
5 楼qgqchile（qgq）回复于 2005-06-02 14:25:26 得分 3
其实如果用 ＳＴＲＯＲＥ ＰＲＯＣＥＤＵＲＥ 的话比较方便
在ＳＱＬ里最后一句加上 ＳＥＬＥＣＴ ＣＯＮＴＥＭＰ=@@ROWCOUNT
如果返回值不是０ 的话就是存在的
在 vb里写上 ＩＦ ＭＹＤＡＴＡＳＥＴ．ＴＡＢＬＥＳ(0).ROWS(0).ITEM(0)<>"0"THEN
...........................
END IFTop
6 楼andy_lsh（andy）回复于 2005-06-02 14:48:02 得分 0
用在dt.rows.count判断是否有返回行，如果为零就表示没有这个用户Top
7 楼Snrmnm_sx（Ψ 踏雪无痕 Ω）回复于 2005-06-02 15:27:31 得分 0
IF TRIM(Me.TextBox1_用户.Text)<>"" THEN
Me.SqlConnection1_login.Open()
SqlDataAdapter1_login.SelectCommand.CommandText = "select * from 登入用户 where 姓名="+ Trim(Me.TextBox1_用户.Text)
Dim Ds As New DataSet
SqlDataAdapter1_login.Fill(Ds,"dlyh")
If ds.tables("dlyh").row<>0 Then
form 主窗口.ShowDialog()
Else
MsgBox("该用户不存在", MsgBoxStyle.OKOnly, "警告")
End If
ELSE
MsgBox("用户名不能为空", MsgBoxStyle.OKOnly, "警告")
END IFTop
8 楼Snrmnm_sx（Ψ 踏雪无痕 Ω）回复于 2005-06-02 15:29:04 得分 4
IF TRIM(Me.TextBox1_用户.Text)<>"" THEN
Me.SqlConnection1_login.Open()
SqlDataAdapter1_login.SelectCommand.CommandText = "select * from 登入用户 where 姓名="+ Trim(Me.TextBox1_用户.Text)
Dim Ds As New DataSet
SqlDataAdapter1_login.Fill(Ds,"dlyh")
If ds.tables("dlyh").rows.Count<>0 Then
form 主窗口.ShowDialog()
Else
MsgBox("该用户不存在", MsgBoxStyle.OKOnly, "警告")
End If
ELSE
MsgBox("用户名不能为空", MsgBoxStyle.OKOnly, "警告")
END IF
Top
9 楼gjmcg（Jimmy）回复于 2005-06-02 15:37:49 得分 4
f MessageBox.Show("确定要保存吗?", "什么-确定", MessageBoxButtons.OKCancel) = DialogResult.OK Then
If Trim(txt_Part.Text) = "" Then
MessageBox.Show("什么不能为空!")
sqlcnn.Close()
Return
Else
sqlcmd.CommandText = "Select * From 你的表名 Where 字段='" & 你写进去的字段 & "'"
Dim sqlr As SqlDataReader = sqlcmd.ExecuteReader()
If sqlr.Read Then
MessageBox.Show("什么什么已经存在")
sqlr.Close()
Return
写进去的字段要是唯一性的，这样应该可以检查出是不是存在相同的了
Top
10 楼xiaomatian（趴趴熊◎％＃……※×）回复于 2005-06-02 15:45:50 得分 0
用datareader不是很方便而且速度也快的吧？
Top
11 楼haoztao（.NET一族）回复于 2005-06-02 16:24:24 得分 0
根据SQL语句从数据库中读数据，然后弄到SqlDataReader或者dataset中，然后判断是不是存在。。Top
12 楼xymsgw（想在广阔的草原飙车，痛快）回复于 2005-06-02 18:21:58 得分 0
十分感谢楼上几位朋友的指点。Top
