求助！VB+SQL2000编程中，如何保证对电子邮件的格式等输入进行限制（即***@**)

Question

小弟向诸位大侠求助，
SQL中如何保证输入正确的电子邮件地址。
SQL中如何保证输入数据在某一范围内（如x>15 and x<20)
再次谢谢诸位大侠！

Answer 1

'简单写一下，当然你可以根据你的要求写的更正规Private Sub Command1_Click()
   Dim i As Long
   If Len(Text1.Text) < 15 Or Len(Text1.Text) > 20 Then
     MsgBox "邮件地址长度不正确"
     Text1.SetFocus
     Exit Sub
   End If
   i = InStr(1, Text1.Text, "@")
   If i < 2 Then
     MsgBox "邮件格式不正确"
     Exit Sub
     Text1.SetFocus
   End If
End Sub

Answer 2

在SQL SERVER中创建一个rule就行了。CREATE RULE email_rule 
AS
emailaddr LIKE '%@%'

Answer 3

写错一点点CREATE RULE email_rule 
AS
@emailaddr LIKE '%@%'用sp_bindrule可以将规则应用到特定表的特定列。exec sp_bindrule 'email_rule','mytable.emailaddr'

Answer 4

范围的规则这样写：CREATE RULE range_rule
AS 
@range >= 15 AND @range < 20

Answer 5

谢谢eports(飘零风) 兄的帮助!
真的非常谢谢!