VB.NET疑问

Kinni

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

请问下是不是有别的名称？因为我只找到ASP.Net

suki89

Kinni 发表于 2013-3-26 01:40 PM
谢谢你当我的指路明灯！！这个帮助很大
Dim DBCon As OleDbConnection = New OleD ...

要先close reader才可以execute新query。

ElseIf (sdr.Read() = True) Then
                sdr.Close()
                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()
                valid6 = True
            End If

suki89

Kinni 发表于 2013-3-26 01:46 PM
请问下是不是有别的名称？因为我只找到ASP.Net

也是可以，只是要看他的code是VB.NET的还是C#的。如果是C#的有些网站是可以帮你convert去VB.NET的。

Kinni

suki89 发表于 2013-3-26 02:01 PM
要先close reader才可以execute新query。

ElseIf (sdr.Read() = True) Then

还是不行~它没有任何的Error...只是如果是False它就会出现
MessageBox.Show("Record not found!", "System Information")
但是True的话就不能进入Command...就是没有任何的动作~

Kinni

suki89 发表于 2013-3-26 02:05 PM
也是可以，只是要看他的code是VB.NET的还是C#的。如果是C#的有些网站是可以帮你convert去VB.NET的。

谢谢你哦！

suki89

Kinni 发表于 2013-3-26 02:07 PM
还是不行~它没有任何的Error...只是如果是False它就会出现
MessageBox.Show("Record not found!", "Sys ...

因为你delete record过后没有message任何东西，database里的record被delete了是吗？

Kinni

suki89 发表于 2013-3-26 02:15 PM
因为你delete record过后没有message任何东西，database里的record被delete了是吗？

其实Full Code是这样的！对不起。。。一开始没有写完
Dim DBCon As OleDbConnection = New OleDbConnection("Provider=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
                sdr.Close()
                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()
                valid6 = True
            End If
        End If
        If valid6 = True Then
            MessageBox.Show("Record has been deleted!", "System Information")
            txtStaffID.Text = ""
            txtPass.Text = ""
            txtFN.Text = ""
            txtLN.Text = ""
        Else
            MessageBox.Show("Delete record has been rejected", "System Information")
        End If

我开了Database...并没有被删除~其实If statement应该没有什么问题吧？为什么进入不到True Statement but False 可以？

suki89

Kinni 发表于 2013-3-26 02:42 PM
其实Full Code是这样的！对不起。。。一开始没有写完
Dim DBCon As OleDbConnection = New OleDbConn ...

你把ElseIf (sdr.Read() = True) Then换成else试试看。
还有你的delete statement是DELETE FROM，没有*的。

Kinni

suki89 发表于 2013-3-26 02:51 PM
你把ElseIf (sdr.Read() = True) Then换成else试试看。
还有你的delete statement是DELETE FROM，没有*的 ...

谢谢你！看来我要多点了解了...不停的出错

suki89

Kinni 发表于 2013-3-26 05:52 PM
谢谢你！看来我要多点了解了...不停的出错

不客气。加油哦