Dim mysql As String
mysql = "SELECT COUNT(*) FROM 表3 UserID='" & Form1.TextBox1.Text() & "'"
Dim da1 As New OleDb.OleDbDataAdapter(mysql, myconn)
Dim ds1 As New DataSet
da1.Fill(ds1, "[表3]")
If ds1.Tables(0).Rows.Count = Form1.TextBox1.Text Then
MsgBox("重复登入")
Else
表3是一个空表,数据登入时候会把数据写进去。。。
------解决思路----------------------
debug一下你的查询语句 。是不是漏了 'where '?
------解决思路----------------------
是的,没数据也返回1
因为你取的是
ds1.Tables(0).Rows.Count
而不是
ds1.Tables(0).Rows[0][0]
如果没有数据,查询出来是0,而不是空行