elena
شنبه 23 دی 1391, 12:45 عصر
مشکل کدمن چیه که صفحه اصلی رو نشون نمیده وپیغام نام کاربری و رمز عبور اشتباه است رو نشونمیده
Dim ds As New DataSet()
d = "select id from login where user='" + txtuser.Text + "' and id='" + txtid.Text + "' "
Dim da As New SqlDataAdapter(s, con)
da.Fill(ds, "t1")
If ds.Tables("t1").Rows.Count > 0 Then
Me.Hide()
Dim fm As New main()
fm.ShowDialog()
Else
MessageBox.Show("رمز عبور یا نام کاربری اشتباه می باشد", "اخطار")
End If
Dim ds As New DataSet()
d = "select id from login where user='" + txtuser.Text + "' and id='" + txtid.Text + "' "
Dim da As New SqlDataAdapter(s, con)
da.Fill(ds, "t1")
If ds.Tables("t1").Rows.Count > 0 Then
Me.Hide()
Dim fm As New main()
fm.ShowDialog()
Else
MessageBox.Show("رمز عبور یا نام کاربری اشتباه می باشد", "اخطار")
End If