 |
| |
ขอความช่วยเหลือหน่อยครับ 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 Sub
Tag : .NET, VB.NET
|
|
|
 |
 |
 |
 |
| Date :
2010-12-25 01:21:44 |
By :
neungcr |
View :
1117 |
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 |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
