类型：转载 责任编辑：asp.net 日期：2007/05/23
热门软件下载：
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim y As String
Dim frm As New test_two
y = "select * from dep where dname=" & Trim(TextBox1.Text) & " and deptno=" & Trim(TextBox2.Text) & ""
OleDbConnection1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=E:\Downloads\vb2003\源程序\第七章 人员管理系统开发\人员管理系统\db1.mdb"
OleDbConnection1.Open()
mycmd.Connection = OleDbConnection1
mycmd.CommandText() = y
mycmd.ExecuteNonQuery()
OleDbDataAdapter1.Fill(DataSet11, "dep")
If DataSet11.Tables("dname").Rows.Count > 0 Then
frm.ShowDialog()
Else
MsgBox("no succcess", MsgBoxStyle.Exclamation, Me.Text)
TextBox1.Text = ""
TextBox1.Focus()
End If
以上是登录源代码，指示： If DataSet11.Tables("dname").Rows.Count > 0 Then有错！
网友回答：