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

JBTALKS.CC


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

VB.NET疑问

[复制链接]
suki89

2

主题

0

好友

542

积分

青铜长老

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

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


回复

使用道具 举报

Kinni

2

主题

0

好友

188

积分

高级会员

Rank: 3Rank: 3Rank: 3
22#
发表于 2013-3-26 11:37 AM |只看该作者
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

2

主题

0

好友

542

积分

青铜长老

Rank: 7Rank: 7Rank: 7Rank: 7Rank: 7Rank: 7Rank: 7
23#
发表于 2013-3-26 11:45 AM |只看该作者
Kinni 发表于 2013-3-26 11:37 AM
我都忘记还有or 这个东西！！感谢感谢！！！
可以教多我一样东西吗？比如我要show出一个lable ...

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

使用道具 举报

Kinni

2

主题

0

好友

188

积分

高级会员

Rank: 3Rank: 3Rank: 3
24#
发表于 2013-3-26 11:55 AM |只看该作者
suki89 发表于 2013-3-26 11:45 AM
可以知道你的table有什么field吗？（login和password的table，firstname和lastname的table）

StaffID
Password
UserFirstName
UserLastName
谢谢你的教导
回复

使用道具 举报

suki89

2

主题

0

好友

542

积分

青铜长老

Rank: 7Rank: 7Rank: 7Rank: 7Rank: 7Rank: 7Rank: 7
25#
发表于 2013-3-26 12:30 PM |只看该作者
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

2

主题

0

好友

188

积分

高级会员

Rank: 3Rank: 3Rank: 3
26#
发表于 2013-3-26 12:49 PM |只看该作者
suki89 发表于 2013-3-26 12:30 PM
你可以用reader。
如果sdr.Read() = true，
label.Text = sdr.GetValue(0).ToString() + sdr.GetValue( ...

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


回复

使用道具 举报

suki89

2

主题

0

好友

542

积分

青铜长老

Rank: 7Rank: 7Rank: 7Rank: 7Rank: 7Rank: 7Rank: 7
27#
发表于 2013-3-26 12:57 PM |只看该作者
Kinni 发表于 2013-3-26 12:49 PM
但是要在不同的Page哦~
这个只能是同一个Page吧？？

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


回复

使用道具 举报

Kinni

2

主题

0

好友

188

积分

高级会员

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

2

主题

0

好友

542

积分

青铜长老

Rank: 7Rank: 7Rank: 7Rank: 7Rank: 7Rank: 7Rank: 7
29#
发表于 2013-3-26 01:25 PM |只看该作者
Kinni 发表于 2013-3-26 01:04 PM
没有呢！因为这个是Assignment...使我自己要先学然后先做~老师还没有教到这么多
因为有些学生 ...

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

使用道具 举报

Kinni

2

主题

0

好友

188

积分

高级会员

Rank: 3Rank: 3Rank: 3
30#
发表于 2013-3-26 01:40 PM |只看该作者
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
已经关了@@
回复

使用道具 举报

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

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

GMT+8, 2026-5-10 07:20 AM , Processed in 0.093772 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.
回顶部