w VB.NET疑问 - 第4页 - 电脑语言编程讨论区 JBTALKS.CC -->
Facebook Sharer
选择您要替换的背景颜色：
【农历新年】背景图片：
个性化设定
 注册  找回密码

JBTALKS.CC


-->
1234
返回列表 发新帖
楼主: Kinni
打印 上一主题 下一主题

VB.NET疑问

[复制链接]
Kinni

2

主题

0

好友

188

积分

高级会员

Rank: 3Rank: 3Rank: 3
31#
发表于 2013-3-26 01:46 PM |只看该作者
suki89 发表于 2013-3-26 01:25 PM
你打VB.NET Response.Redirect咯，因为别的language也是有Response.Redirect。
是不是没close reader所以 ...

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


回复

使用道具 举报

suki89

2

主题

0

好友

542

积分

青铜长老

Rank: 7Rank: 7Rank: 7Rank: 7Rank: 7Rank: 7Rank: 7
32#
发表于 2013-3-26 02:01 PM |只看该作者
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

2

主题

0

好友

542

积分

青铜长老

Rank: 7Rank: 7Rank: 7Rank: 7Rank: 7Rank: 7Rank: 7
33#
发表于 2013-3-26 02:05 PM |只看该作者
Kinni 发表于 2013-3-26 01:46 PM
请问下是不是有别的名称？因为我只找到ASP.Net

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

使用道具 举报

Kinni

2

主题

0

好友

188

积分

高级会员

Rank: 3Rank: 3Rank: 3
34#
发表于 2013-3-26 02:07 PM |只看该作者
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

2

主题

0

好友

188

积分

高级会员

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

谢谢你哦！
回复

使用道具 举报

suki89

2

主题

0

好友

542

积分

青铜长老

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

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

使用道具 举报

Kinni

2

主题

0

好友

188

积分

高级会员

Rank: 3Rank: 3Rank: 3
37#
发表于 2013-3-26 02:42 PM |只看该作者
本帖最后由 Kinni 于 2013-3-26 02:43 PM 编辑
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

2

主题

0

好友

542

积分

青铜长老

Rank: 7Rank: 7Rank: 7Rank: 7Rank: 7Rank: 7Rank: 7
38#
发表于 2013-3-26 02:51 PM |只看该作者
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

2

主题

0

好友

188

积分

高级会员

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

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

使用道具 举报

suki89

2

主题

0

好友

542

积分

青铜长老

Rank: 7Rank: 7Rank: 7Rank: 7Rank: 7Rank: 7Rank: 7
40#
发表于 2013-3-26 09:53 PM |只看该作者
Kinni 发表于 2013-3-26 05:52 PM
谢谢你！看来我要多点了解了...不停的出错

不客气。加油哦


回复

使用道具 举报

1234
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

JBTALKS.CC |联系我们 |隐私政策 |Share

GMT+8, 2026-5-10 03:26 AM , Processed in 0.131380 second(s), 18 queries .

Powered by Discuz! X2.5

© 2001-2012 Comsenz Inc.

Ultra High-performance Dedicated Server powered by iCore Technology Sdn. Bhd.
Domain Registration | Web Hosting | Email Hosting | Forum Hosting | ECShop Hosting | Dedicated Server | Colocation Services
本论坛言论纯属发表者个人意见，与本论坛立场无关
Copyright © 2003-2012 JBTALKS.CC All Rights Reserved
合作联盟网站:
JBTALKS 马来西亚中文论坛 | JBTALKS我的空间 | ICORE TECHNOLOGY SDN. BHD.
回顶部