ขอความช่วยเหลือหน่อยครับ Object reference not set to an instance of an object
ขึ้น error Object reference not set to an instance of an object ตรงเหลืองๆอะครับไม่ทราบว่าผิดตรงไหน
Private Sub txtSearch_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtSearch.KeyDown
If txtSearch.Text <> "" Then
If (e.KeyCode = Keys.Enter) Then
Dim sqlMember As String = ""
sqlMember = "SELECT * FROM Member"
If cboSearch.SelectedIndex = 0 Then
sqlMember &= "WHERE (MemberID ='" & txtSearch.Text & "')"
ElseIf cboSearch.SelectedIndex = 1 Then
sqlMember &= "WHERE (IDCard ='" & txtSearch.Text & "')"
End If
sqlMember &= "ORDER BY MemberID"
With conn
If .State = ConnectionState.Open Then .Close()
.ConnectionString = conStr
.Open()
End With
If IsFind = True Then
ds.Tables("Member").Clear()
End If
da.SelectCommand.CommandText = sqlMember
da.Fill(ds, "Member")
If ds.Tables("Member").Rows.Count <> 0 Then
IsFind = True
ClearBinding()
txtMem_id.DataBindings.Add("Text", ds, "Member.MemberID")
txtPass.DataBindings.Add("Text", ds, "Member.MemberPass")
txtFname.DataBindings.Add("Text", ds, "Member.Firstname")
txtLname.DataBindings.Add("Text", ds, "Member.Lastname")
txtIDCard.DataBindings.Add("Text", ds, "Member.IDCard")
txtAddress.DataBindings.Add("Text", ds, "Member.Address")
txtEmail.DataBindings.Add("Text", ds, "Member.Email")
txtPhone.DataBindings.Add("Text", ds, "Member.Phone")
dtpAdmitDate.DataBindings.Add("Text", ds, "Member.AdmitDate")
txtBalance.DataBindings.Add("Text", ds, "Member.Balance")
txtPoint.DataBindings.Add("Text", ds, "Member.Point")
dt = ds.Tables("Member")
ShowPosition()
btnAdd.Enabled = False
btnEdit.Enabled = True
btnDel.Enabled = True
btnMoveFirst.Enabled = True
btnMovePrevious.Enabled = True
btnMoveNext.Enabled = True
btnMoveLast.Enabled = True
btnEdit.Focus()
Else
IsFind = False
MessageBox.Show("รายชื่อสมาชิกที่คุณระบุไม่มี !!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
txtShowPosition.Text = ""
btnAdd.Enabled = True
btnEdit.Enabled = False
btnDel.Enabled = False
btnMoveFirst.Enabled = False
btnMovePrevious.Enabled = False
btnMoveNext.Enabled = False
btnMoveLast.Enabled = False
txtSearch.Focus()
txtSearch.SelectAll()
Exit Sub
End If
End If
End If
btnAdd.Enabled = False
btnEdit.Enabled = True
btnDel.Enabled = True
End SubTag : .NET, VB.NET
Date :
2010-12-25 01:21:44
By :
neungcr
View :
1094
Reply :
3
มีการเรียกใช้ object โดยที่ยังไม่ได้ประกาศตัวแปรครับ
da ท่านเรียกใช้ประกาศหรือยังครับ ในเพจหรือฟอร์มนี้ได้
da =new sqldataadapter(connection,...parameter,..)
Date :
2010-12-25 10:51:50
By :
wad
Dim cmd As OleDbCommand
cmd = New OleDbCommand(sqlMember, conn)
da = New OleDbDataAdapter(cmd)
ที่นี่ตรง
da.Fill(ds, "Member")
แจ้งว่า
Syntax error in FROM clause.
ช่วยชี้แนะหน่อยครับ ผมมือใหม่หัดทำ *-*
Date :
2010-12-25 12:05:33
By :
neungcr
ได้ละคับ เว้นวรรคผิดนี่เอง -*-
Date :
2010-12-25 14:08:16
By :
neungcr
Load balance : Server 00