VB.NET疑问

suki89

Kinni 发表于 2013-3-25 11:50 PM
原来如此！！要怎么做我才可以让System如果有任何一个相同就不进入Insert command呢？因为我是刚学不久的 ...

把你的select statement改去OR而不是AND。
那么如果有任何一个相同的话，就会"The data entered already exist!"。

Kinni

suki89 发表于 2013-3-25 11:59 PM
把你的select statement改去OR而不是AND。
那么如果有任何一个相同的话，就会"The data entered already ...

我都忘记还有or 这个东西！！感谢感谢！！！
可以教多我一样东西吗？比如我要show出一个lable是login过后会出现User's First and LastName的Lable~但是Login时候是用ID and Password的~应该要怎样弄呢？

suki89

Kinni 发表于 2013-3-26 11:37 AM
我都忘记还有or 这个东西！！感谢感谢！！！
可以教多我一样东西吗？比如我要show出一个lable ...

可以知道你的table有什么field吗？（login和password的table，firstname和lastname的table）

Kinni

suki89 发表于 2013-3-26 11:45 AM
可以知道你的table有什么field吗？（login和password的table，firstname和lastname的table）

StaffID
Password
UserFirstName
UserLastName
谢谢你的教导

suki89

Kinni 发表于 2013-3-26 11:55 AM
StaffID
Password
UserFirstName

你可以用reader。
如果sdr.Read() = true，
label.Text = sdr.GetValue(0).ToString() + sdr.GetValue(1).ToString()。

0和1或者是1和2，看你的select statement怎样写。

Kinni

suki89 发表于 2013-3-26 12:30 PM
你可以用reader。
如果sdr.Read() = true，
label.Text = sdr.GetValue(0).ToString() + sdr.GetValue( ...

但是要在不同的Page哦~
这个只能是同一个Page吧？？

suki89

Kinni 发表于 2013-3-26 12:49 PM
但是要在不同的Page哦~
这个只能是同一个Page吧？？

你有学过Response.Redirect或是Session吗?

Kinni

suki89 发表于 2013-3-26 12:57 PM
你有学过Response.Redirect或是Session吗?

没有呢！因为这个是Assignment...使我自己要先学然后先做~老师还没有教到这么多
因为有些学生一直学不会，所以教到普通Insert一样东西的时候就没有再教新的了~一直重复给他们听咯 ~
是不是打Response.redirect就能在Youtube找到？


请问下有什么情况下会进不到IF EelseIF statement 的Command...
我在做Delete...但是进不到 Else If 里面的东西

Dim cmd As OleDbCommand = New OleDbCommand("SELECT * FROM Staff WHERE StaffID ='" & txtStaffID.Text & "' and Password = '" & txtPass.Text & "' and  UserFirstName= '" & txtFN.Text & "' and UserLastName= '" & txtLN.Text & "'", DBCon)
            Dim sdr As OleDbDataReader = cmd.ExecuteReader()
            If (sdr.Read() = False) Then
                MessageBox.Show("Record not found!", "System Information")
                DBCon.Close()
                sdr.Close()
            ElseIf (sdr.Read() = True) Then
就是True了过后还是进不到
Dim cmd2 As New OleDbCommand
                cmd2.CommandText = "DELETE * FROM Staff WHERE StaffID='" & txtStaffID.Text & "'and Password='" & txtPass.Text & "'and UserFirstName='" & txtFN.Text & "'and UserLastname='" & txtLN.Text & "'"
                cmd2.CommandText = CommandType.Text
                cmd2.ExecuteNonQuery()
检查了几次~都没有问题啊！之前我试过没有问题。。。今天就不行了

suki89

Kinni 发表于 2013-3-26 01:04 PM
没有呢！因为这个是Assignment...使我自己要先学然后先做~老师还没有教到这么多
因为有些学生 ...

你打VB.NET Response.Redirect咯，因为别的language也是有Response.Redirect。
是不是没close reader所以有问题？

Kinni

suki89 发表于 2013-3-26 01:25 PM
你打VB.NET Response.Redirect咯，因为别的language也是有Response.Redirect。
是不是没close reader所以 ...

谢谢你当我的指路明灯！！这个帮助很大
Dim DBCon As OleDbConnection = New OleDbConnection("rovider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Kini\Documents\Visual Studio 2010\Projects\WindowsApplication1\WindowsApplication1\bin\Debug\VB.accdb")
            DBCon.Open()
            Dim cmd As OleDbCommand = New OleDbCommand("SELECT * FROM Staff WHERE StaffID ='" & txtStaffID.Text & "' and Password = '" & txtPass.Text & "' and  UserFirstName= '" & txtFN.Text & "' and UserLastName= '" & txtLN.Text & "'", DBCon)
            Dim sdr As OleDbDataReader = cmd.ExecuteReader()
            If (sdr.Read() = False) Then
                MessageBox.Show("Record not found!", "System Information")
                DBCon.Close()
                sdr.Close()
            ElseIf (sdr.Read() = True) Then
                Dim cmd2 As New OleDbCommand
                cmd2.CommandText = "DELETE * FROM Staff WHERE StaffID='" & txtStaffID.Text & "'and Password='" & txtPass.Text & "'and UserFirstName='" & txtFN.Text & "'and UserLastname='" & txtLN.Text & "'"
                cmd2.CommandText = CommandType.Text
                cmd2.ExecuteNonQuery()
                DBCon.Close()
                sdr.Close()
                valid6 = True
            End If
已经关了@@