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,038

HOME > .NET Framework > Forum > ทำไมทำการ ค้นหาไม่ได้อะครับ ช่วยดู code หน่อยครับ VB ครับ error :: object reference not sett to an instance of an object


 

[.NET] ทำไมทำการ ค้นหาไม่ได้อะครับ ช่วยดู code หน่อยครับ VB ครับ error :: object reference not sett to an instance of an object

 
Topic : 050938

Guest



Code (VB.NET)
001.Option Explicit On
002.Option Strict On
003.Imports System.IO
004.Imports System.Text
005.Imports System.Data
006.Imports System.Data.SqlClient
007.Imports System.Drawing.Drawing2D
008. 
009.Public Class Fitemdetail
010.    Dim Conn As SqlConnection
011.    Dim com As SqlCommand
012.    Dim dr As SqlDataReader
013.    Dim dtCustomer As DataTable
014.    Dim bs As BindingSource = New BindingSource()
015.    Dim sb As StringBuilder
016.    Dim Today As DateTime
017. 
018. 
019. 
020.    Private Sub Fitem_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
021.        GroupBox1.BackColor = Color.FromArgb(0, 0, 0, 0)
022.        GroupBox2.BackColor = Color.FromArgb(0, 0, 0, 0)
023.        
024.        Dim strConn As String
025.        strConn = DBConnString.strConn
026. 
027.        Conn = New SqlConnection()
028.        With Conn
029.            If .State = ConnectionState.Open Then .Close()
030.            .ConnectionString = strConn
031.            .Open()
032.        End With
033. 
034.        tsSearch.Focus()
035.    End Sub
036.    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
037.        Dim lgb As New LinearGradientBrush(ClientRectangle, Color.FloralWhite, Color.Moccasin, LinearGradientMode.Vertical)
038.        e.Graphics.FillRectangle(lgb, ClientRectangle)
039. 
040.        lgb.Dispose()
041.    End Sub
042. 
043.    Private Sub bnMoveFirst_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bnMoveFirst.MouseUp
044.        ShowPosition()
045.    End Sub
046. 
047.    Private Sub bnMovePrevious_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bnMovePrevious.MouseUp
048.        ShowPosition()
049.    End Sub
050. 
051.    Private Sub bnMoveNext_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bnMoveNext.MouseUp
052.        ShowPosition()
053.    End Sub
054. 
055.    Private Sub bnMoveLast_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bnMoveLast.MouseUp
056.        ShowPosition()
057.    End Sub
058.    Private Sub ShowPosition()
059.        Dim CurrentRecord As Integer
060.        If bs.Count > 0 Then
061.            CurrentRecord = bs.Position + 1
062.            bnRecord.Text = CStr(CurrentRecord)
063.        Else
064.            CurrentRecord = 0
065.            bnRecord.Text = "0"
066.            bnCount.Text = "0"
067.        End If
068.    End Sub
069. 
070.    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
071.        Dim bs = New BindingSource()
072.        If tsSearch.Text.Trim() = "" Then Exit Sub
073. 
074.            sb.Append("SELECT * FROM Item")
075.            sb.Append(" WHERE item_code=@item_code")
076. 
077.            Dim sqlSearch As String
078.            sqlSearch = sb.ToString()
079. 
080.            dtCustomer = New DataTable()
081.            With com
082.                .Parameters.Clear()
083.                .Parameters.Add("@item_code", SqlDbType.NVarChar).Value = tsSearch.Text.Trim()
084.                .CommandText = sqlSearch
085.                .CommandType = CommandType.Text
086.                .Connection = Conn
087.                dr = .ExecuteReader()
088. 
089.                If dr.HasRows Then
090.                dtCustomer.Load(dr)
091.                bs.DataSource = dtCustomer
092.              
093.                item_code.DataBindings.Add("Text", bs, "item_code")
094. 
095.                    'txtFullName.DataBindings.Add("Text", bs, "FullName")
096.                    'mskIDCard.DataBindings.Add("Text", bs, "IDCard")
097.                    'txtAddress.DataBindings.Add("Text", bs, "Address")
098.                    'txtTelephone.DataBindings.Add("Text", bs, "Telephone")
099. 
100.                Else
101. 
102.                    bnRecord.Text = "0"
103.                    bnCount.Text = "0"
104.                    MessageBox.Show("เงื่อนไขที่คุณป้อน ไม่มี !!!", "ผลการค้นหา", MessageBoxButtons.OK, MessageBoxIcon.Information)
105.                    tsSearch.Focus()
106.                    tsSearch.SelectAll()
107.                End If
108.            End With
109.            dr.Close()
110. 
111.    End Sub
112.End Class




Tag : .NET, Ms SQL Server 2005, VS 2003 (.NET 1.1), VS 2005 (.NET 2.x), VS 2008 (.NET 3.x), VS 2010 (.NET 4.x)

Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2010-10-29 17:21:39 By : sp_be@hotmail.com View : 1188 Reply : 2
 

 

No. 1



โพสกระทู้ ( 74,059 )
บทความ ( 838 )

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

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

บรรทัดไหนครับที่ Error ครับ หรือไม่ลองใช้การ Debug ที่ล่ะ Step น่ะครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-10-29 17:58:20 By : webmaster
 

 

No. 2

Guest


error บันทัดนี้ครับ

074. sb.Append("SELECT * FROM Item")
075. sb.Append(" WHERE item_code=@item_code")
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-10-29 22:11:27 By : sp_be@hotmail.com
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : ทำไมทำการ ค้นหาไม่ได้อะครับ ช่วยดู code หน่อยครับ VB ครับ error :: object reference not sett to an instance of an object
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ 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 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)





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