Results 1 to 2 of 2

Thread: coding prob

  1. Feb 13th, 2004, 05:32 PM #1
    azrina
    azrina is offline

    Thread Starter
    Lively Member
    Join Date
    Jan 2004
    Posts
    100

    coding prob

    my system will do this operations -->
    add new, save, edit and delete data.

    my prob is everytime i want to save data, this error msg appears which is

    "either BOF or EOF, or the current record has been deleted, requested operation requires a current record"

    im new in vb programming.
    i cant figure out whts the meaning of the error.
    anyone here can help me??
    tq in advance

    VB Code:
    1. Private Sub tbrPekerja_ButtonClick(ByVal Button As MSComctlLib.Button)

    2. Set conn = GetConnection

    3. Set rs = New ADODB.Recordset

    4. 'rs.Open "SELECT * FROM pekerja WHERE id_pekerja = '" & txtSearch.Text & "'", conn, adOpenStatic, adLockOptimistic

    5.  
    6. Select Case Button.index

    7. 'add new record

    8.     Case Is = 5

    9.         txtID.Locked = False

    10.         txtNamaPekerja.Locked = False

    11.         txtNoIC.Locked = False

    12.         txtAlamatPekerja.Locked = False

    13.         txtNoTel.Locked = False

    14.         txtSearch.Text = ""

    15.         txtID.Text = ""

    16.         txtNamaPekerja.Text = ""

    17.         txtNoIC.Text = ""

    18.         txtAlamatPekerja.Text = ""

    19.         txtNoTel.Text = ""

    20.         

    21.         tbrPekerja.Buttons.Item(6).Enabled = True

    22.         txtID.SetFocus

    23.         rs.AddNew

    24.       

    25.     'save data

    26.     Case Is = 6

    27.     

    28.         'Set Conn = GetConnection

    29.         '[b]error[/b]

    30.       

    31.         rs!id_pekerja = UCase(txtID.Text)

    32.         rs!nama = txtNamaPekerja.Text

    33.         rs!ic = txtNoIC.Text

    34.         rs!alamat = txtAlamatPekerja.Text

    35.         rs!telefon = txtNoTel.Text

    36.         rs.Update

    37.         MsgBox "Data telah di simpan", vbInformation, "Simpan Data"

    38.         tbrPekerja.Buttons.Item(6).Enabled = False

    39.         

    40.         txtID.Locked = True

    41.         txtNamaPekerja.Locked = True

    42.         txtNoIC.Locked = True

    43.         txtAlamatPekerja.Locked = True

    44.         txtNoTel.Locked = True

    45.         

    46.     'edit data

    47.     Case Is = 7

    48.     

    49.         txtSearch.Locked = False

    50.         txtID.Locked = False

    51.         txtNamaPekerja.Locked = False

    52.         txtNoIC.Locked = False

    53.         txtAlamatPekerja.Locked = False

    54.         txtNoTel.Locked = False

    55.         tbrPekerja.Buttons.Item(6).Enabled = True

    56.     'delete data

    57.     Case Is = 8

    58.     

    59.             If MsgBox("Adakah anda pasti?", vbQuestion + vbYesNo) = vbYes Then

    60.             rs.Delete

    61.             MsgBox "Data telah dihapus", vbOKOnly, "Hapus Data"

    62.             txtSearch = ""

    63.             txtID = ""

    64.             txtNamaPekerja = ""

    65.             txtNoIC = ""

    66.             txtAlamatPekerja = ""

    67.             txtNoTel = ""

    68.             

    69.         End If

    70.     rs.Close

    71. Set rs = Nothing

    72.     End Select

    73. end sub
    Reply With Quote Reply With Quote
  2. Feb 13th, 2004, 07:07 PM #2
    eimroda
    eimroda is offline
    Fanatic Member eimroda's Avatar
    Join Date
    Jul 2000
    Location
    Philippines
    Posts
    642
    Try this:
    VB Code:
    1. Private Sub tbrPekerja_ButtonClick(ByVal Button As MSComctlLib.Button)

    2. Set conn = GetConnection

    3. Set rs = New ADODB.Recordset

    4. 'uncomment this line (or better just open your rs when u need it...)

    5. rs.Open "SELECT * FROM pekerja WHERE id_pekerja = '" & txtSearch.Text & "'", conn, adOpenStatic, adLockOptimistic

    6.  
    7. Select Case Button.index

    8. 'add new record

    9.     Case Is = 5

    10.         txtID.Locked = False

    11.         txtNamaPekerja.Locked = False

    12.         txtNoIC.Locked = False

    13.         txtAlamatPekerja.Locked = False

    14.         txtNoTel.Locked = False

    15.         txtSearch.Text = ""

    16.         txtID.Text = ""

    17.         txtNamaPekerja.Text = ""

    18.         txtNoIC.Text = ""

    19.         txtAlamatPekerja.Text = ""

    20.         txtNoTel.Text = ""

    21.         

    22.         tbrPekerja.Buttons.Item(6).Enabled = True

    23.         txtID.SetFocus

    24.         'Transfer this line to CAse Is 6

    25.         'rs.AddNew

    26.       

    27.     'save data

    28.     Case Is = 6

    29.     

    30.         'Set Conn = GetConnection

    31.         'error

    32.         

    33.         If rs.EOF Then rs.AddNew 

    34.         rs!id_pekerja = UCase(txtID.Text)

    35.         rs!nama = txtNamaPekerja.Text

    36.         rs!ic = txtNoIC.Text

    37.         rs!alamat = txtAlamatPekerja.Text

    38.         rs!telefon = txtNoTel.Text

    39.         rs.Update

    40.         MsgBox "Data telah di simpan", vbInformation, "Simpan Data"

    41.         tbrPekerja.Buttons.Item(6).Enabled = False

    42.         

    43.         txtID.Locked = True

    44.         txtNamaPekerja.Locked = True

    45.         txtNoIC.Locked = True

    46.         txtAlamatPekerja.Locked = True

    47.         txtNoTel.Locked = True

    48.         

    49.     'edit data

    50.     Case Is = 7

    51.     

    52.         txtSearch.Locked = False

    53.         txtID.Locked = False

    54.         txtNamaPekerja.Locked = False

    55.         txtNoIC.Locked = False

    56.         txtAlamatPekerja.Locked = False

    57.         txtNoTel.Locked = False

    58.         tbrPekerja.Buttons.Item(6).Enabled = True

    59.     'delete data

    60.     Case Is = 8

    61.     

    62.             If MsgBox("Adakah anda pasti?", vbQuestion + vbYesNo) = vbYes Then

    63.             rs.Delete

    64.             MsgBox "Data telah dihapus", vbOKOnly, "Hapus Data"

    65.             txtSearch = ""

    66.             txtID = ""

    67.             txtNamaPekerja = ""

    68.             txtNoIC = ""

    69.             txtAlamatPekerja = ""

    70.             txtNoTel = ""

    71.             

    72.         End If

    73.     rs.Close

    74. Set rs = Nothing

    75.     End Select

    76. end sub
    Last edited by eimroda; Feb 13th, 2004 at 07:10 PM.
    On Error GoTo Hell

    Hell:
    Kill Me


    Food For Thought:

    - Do not judge a book... if you're not a judge!

    Reply With Quote Reply With Quote
« Previous Thread | Next Thread »

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Forum Rules


Click Here to Expand Forum to Full Width