Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 109,037

HOME > .NET Framework > Forum > ขอความช่วยเหลือคับ ในการดัก Exception (VB 2008 + Ms sql server 2005)



 

ขอความช่วยเหลือคับ ในการดัก Exception (VB 2008 + Ms sql server 2005)

 



Topic : 046982

Guest




พอดีอยากได้โค๊ต การดักจับ หมายเลขทะเบียนรถ คับ

1. ถ้ากรอกเป็นตัวเลขอย่างเดียวให้ MessageBox.Show("หมายเลขทะเบียนรถเป็นตัวเลขไม่ได้")
2.หมายเขลทะเบียนรถต้องขึ้นต้นด้วย ท กับ ม เท่านั้น ประมาณว่า ถ้ากรอก หมายเลขทะเบียนรถ ขึ้นต้นด้วยตัวอื่น ให้มัน
MessageBox.Show("หมายเลขทะเบียนรถต้องขึ้นต้นด้วย ท กับ ม เท่านั้น")

ขอโค๊ตสองข้อนี้หน่อยน่ะคับ ขอความช่วยเหลือหน่อยน่ะคับ

นี้คือตัวโค๊ตที่ผมเขียนคับ แล้วยังขาด 2 ข้อข้างบนช่ว่ยทีคับ

Private Sub btnFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFind.Click
Dim conStr As String = "Data Source=.\SQLEXPRESS;Initial Catalog=TblUser;Integrated Security=True"
Dim conn As New SqlConnection(conStr)
Dim Sql As String
Dim cmd As SqlCommand
Dim reader As SqlDataReader
Sql = "select * from Car where license='" & txtFind.Text & "'"


Try
conn.Open()
cmd = New SqlCommand(Sql, conn)
reader = cmd.ExecuteReader()
reader.Read()

txtLicen.Text = reader.Item("license")
cboBrand.SelectedItem = reader.Item("brand")
cboColor.SelectedItem = reader.Item("color")
cboModel.SelectedItem = reader.Item("model")
txtCust.Text = reader.Item("name")
cboSex.SelectedItem = reader.Item("sex")
txtPhone.Text = reader.Item("phone")
txtdate.Text = reader.Item("date")


reader.Close()
cmd.Dispose()
conn.Close()

Catch ex As Exception

If txtFind.Text = "" Then
MessageBox.Show("กรุณกรอกหมาเลขทะเบียนรถที่ต้องการค้นหา")

Else
MsgBox("ไม่พบหมายเลขทะเบียนรถที่ต้องการ ! ")
End If
End Try


End Sub



Tag : .NET, Ms SQL Server 2005, VS 2008 (.NET 3.x)







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2010-08-13 08:30:34 By : 404Not Found View : 1707 Reply : 9
 

 

No. 1



โพสกระทู้ ( 3,144 )
บทความ ( 1 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์


ใช้ regular expresstion

Code (VB.NET)
Dim RegPatterm As String = "^[ท|ม]{1}+\w{1}+\s+\d{1,}"







แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-08-13 10:35:51 By : tungman
 


 

No. 2

Guest


ขอบคุณคับ แต่ งง คับ พี่ช่วย ละเอียดกว่านี้ได้ป่าวคับ ขอบคุณคับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-08-13 11:35:54 By : 404Not Found
 

 

No. 3



โพสกระทู้ ( 3,144 )
บทความ ( 1 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์


Code (VB.NET)
Protected Function TungmanCheck(strCheck As String) As Boolean
	Dim RegPatterm As String = "^[ท|ม]{1}+\w{1}+\s+\d{1,4}"
	Dim Rgx As New System.Text.RegularExpressions.Regex(PokedexStartPattern)

	Return If((Rgx.Match(strCheck) IsNot Nothing), True, False)
End Function

เวลาใช้

Code (VB.NET)
If TungmanCheck(txtLicen.Text) Then
    MessageBox.Show("OK")
Else
    MessageBox.Show("Incorrent format.")
End If

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-08-13 15:15:24 By : tungman
 


 

No. 4

Guest


โค๊ตผมเป้นแบบนี้คับ

Private Sub bntCheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bntCheck.Click
Dim licen As String = txtLicen.Text
Dim objCmd As New SqlCommand
Dim strConn As String
Dim objReader As SqlDataReader



strConn = "Data Source=.\SQLEXPRESS;Initial Catalog=TblUser;Integrated Security=True"

Dim Conn As New SqlConnection(strConn)
Conn.Open()

objCmd.CommandType = CommandType.Text
objCmd.CommandText = "select * from [dbo].[Car] where license='" & licen & "'"
objCmd.Connection = Conn
objCmd.CommandTimeout = 0

objReader = objCmd.ExecuteReader





If licen = "" Then
MessageBox.Show("กรุณากรอก หมายเลขทะเบียนรถ")

ElseIf objReader.HasRows Then
MessageBox.Show("หมายเลขทะเบียนนี้ไม่สามารถใช้ได้")
Else
MessageBox.Show("หมายเลขทะเบียนนี้สามารถใช้ได้")
btnSave.Visible = True
End If

Conn.Close()




End Sub


ตรงที่พี่บอกมันก็ Error คับ








แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-08-13 15:54:10 By : 404Not Found
 


 

No. 5

Guest


2233
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-08-13 15:54:42 By : 404Not Found
 


 

No. 6



โพสกระทู้ ( 3,144 )
บทความ ( 1 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์


โทดๆ พอดีหลับตาเขียน

Code (VB.NET)
Protected Function TungmanCheck(strCheck As String) As Boolean
	Dim RegPatterm As String = "^[ท|ม]{1}+\w{1}+\s+\d{1,4}"
	Dim Rgx As New System.Text.RegularExpressions.Regex(RegPatterm)

	Return If((Rgx.Match(strCheck) IsNot Nothing), True, False)
End Function


ว่าแต่เรียกใช้ function ไม่เป็นรึเปล่า แล้วก็ไม่ต้อง spam นะมันรกตา เห็นตั้งไป 3 กระทู้แล้ว
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-08-13 16:40:41 By : tungman
 


 

No. 7

Guest


"^[ท|ม]{1}+\w{1}+\s+\d{1,4}"

อธิบาย เพิ่มเติมได้ไหมครับว่า สัญลักษณ์อะไรคือะไร

ขอบคุณครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-08-13 22:36:03 By : Knight
 


 

No. 8



โพสกระทู้ ( 3,144 )
บทความ ( 1 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์


จับ pattern ของทะเบียนรถ

กำหนดให้ตัวแรกต้องเริ่มต้นด้วย ท หรือ ม เท่านั้น

จากนั้นตามด้วยตัวอักษรหรือตัวเลขอะไรก็ได้ 1 ตัว

ตามด้วย space 1 ตัว

จากนั้นก็เป็นตัวเลขอย่างน้อย 1-4 ตัว
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-08-13 22:38:37 By : tungman
 


 

No. 9

Guest


Dim fileName As String = dirquiz + "\Program Files\QuizP4"

MessageBox.Show(fileName)


Dim Rights As FileSystemRights

Dim Account As String = "Users"

Rights = FileSystemRights.FullControl

'set on dir itself
Dim AccessRule As New FileSystemAccessRule(Account, Rights, AccessControlType.Allow, PropagationFlags.NoPropagateInherit, AccessControlType.Allow)


Dim dInfo As New DirectoryInfo(fileName)
Dim dSecurity As DirectorySecurity = dInfo.GetAccessControl()
dSecurity.ModifyAccessRule(AccessControlModification.Set, AccessRule, True)
'Always allow objects to inherit on a directory

Dim iFlags As New InheritanceFlags()
iFlags = InheritanceFlags.ContainerInherit + InheritanceFlags.ObjectInherit

'Add Access rule for the inheritance
Dim AccessRule2 As New FileSystemAccessRule(Account, Rights, iFlags, PropagationFlags.InheritOnly, AccessControlType.Allow)
dSecurity.ModifyAccessRule(AccessControlModification.Add, AccessRule2, True)

dInfo.SetAccessControl(dSecurity)
เมื่อ รัน บน windows7 แล้วผิดพลาดตรงคำสั่งนี้ สุดท้ายนี้ dInfo.SetAccessControl(dSecurity)
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-11-09 17:38:35 By : สุพจน์
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : ขอความช่วยเหลือคับ ในการดัก Exception (VB 2008 + Ms sql server 2005)
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 01
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2024 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่