MoveNext

[kitt]

Hi everyone,
I am kind of new in VB programming. I am using SQL as my database. The fields are 1.serial 2.datestring 3.Job 4.Achievement 5.Remarks
I wanted to go from one record to the next but I just couldn't get to it. I tried using rs.MoveNext, but it didn't work. I think I am unable to get to some things.

Your help would be highly appreciated.
Kitt

[sashi]

Hi Kitt,

post your current code segment and we will try to debug the code.. it's kind of impossible to guide you without seeing your code.. good luck my fren.. :)

[kitt]

Following is my code. I look forward for your help.

Dim con As ADODB.Connection
Dim rs As ADODB.Recordset

Private Sub cmdNext_Click()
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
rs.Open
rs.MoveNext
End Sub


Private Sub CmdSave_Click()
Dim save As String
Set rs = New ADODB.Recordset
save = "insert into Evaluation values('" & serial.Text & "', '" & DateString.Text & "','" & Job.Text & "', '" & Achievement.Text & "', '" & Remarks.Text & "')"
rs.Open save, con, adOpenDynamic, adLockOptimistic
serial.Text = ""
DateString.Text = ""
Job.Text = ""
Achievement.Text = ""
Remarks.Text = ""
End Sub


Private Sub CmdSearch_Click()
Dim search As String
Set rs = New ADODB.Recordset
search = "select * from Evaluation where SlNo = '" & serial.Text & "' or Date = '" & DateString.Text & "' or JobResponsibilities = '" & Job.Text & "' or Achievement = '" & Achievement.Text & "'"
rs.Open search, con, adLockOptimistic, adOpenDynamic
serial.Text = rs!SlNo
DateString.Text = rs!Date
Job.Text = rs!JobResponsibilities
Achievement.Text = rs!Achievement
Remarks.Text = rs!Remarks
End Sub

Private Sub Form_Load()
Dim constr As String
Set con = New ADODB.Connection
constr = " Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;PWD=sa;Initial Catalog=Library;Data Source=PENJOR"
con.Open constr
End Sub

[sashi]

Hi Kitt,

i have made some changes to your Sub cmdNext.. pls take note..

Private Sub cmdNext_Click()
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
rs.Open
  While Not rs.EOF   
    rs.MoveNext
  Wend
End Sub
 

[kitt]

I tried the code you suggested but I get the following error:
Run-time error '3709'
The connection cannot be used to perform this operation. It is either closed or invalid in this context.

I look forward for your help again.

[sashi]

Hi Kitt,

there is nothing wrong in the code segment.. i have found the reason for the error message.. check it out.

"Run-Time Error '3709'" error message when you enter a large amount of text in a Memo field that contains an index

exactly when and where does this error occur? i assume it's when you tried saving record.. rite?? check your coding.. good luck my fren.. :)

http://www.support.microsoft.com/?sc...d=2509&sid=665

[kitt]

Dear Sasi,
I am sorry for bothering you time and again. But then, I really need your help and I am grateful that you do help. The error occurs when I click the 'next' button. I can save the record but I cannot go to the next record.

The error occurs on 'rs.open'.

Kitt