Ad:

Visual Basic 4 / 5 / 6 Discussion Thread
Unsolved
Views: 1043

Dec 30th, 2008

Editing a record!

Expand Post »

help theres nothing happen everytime i search a record

heres my code

Dim a
a = InputBox("Input Product Code :", "Find", "")
If a = "" Then
Exit Sub
End If
Set rs = New ADODB.Recordset
rs.Open "Select * from Product where pcode='" & a & "'", cn, adOpenStatic, adLockPessimistic
Set MSHFlexGrid1.DataSource = rs
If rs.RecordCount > 0 Then
rs.Fields("pcode") = Text1.Text
rs.Fields("brandname") = Text2.Text
rs.Fields("genericname") = Text3.Text
rs.Fields("price") = Text4.Text
Command1.Enabled = False
Command2.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
End If

nothing happen to my text fields

Similar Threads

Populating form with existing MySQL data in PHP
edit data problem in Visual Basic 4 / 5 / 6
Audio signal capturing & editing in VB.NET
Can Access update the currnet record or multiple records using a macro? in MS Access and FileMaker Pro
Receiving closed filehandle warning in Perl

ryan311

Reputation Points: 3

Solved Threads: 5

Posting Whiz in Training

Offline

254 posts
since Jul 2008

Permalink

Dec 31st, 2008

Re: Editing a record!

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Dim a , strsql as string 
 
'pls check your inputbox forget using it
'idont have any vb6 installed in my pc , now using csharp2005
a = InputBox("Input Product Code :", "Find", "")
If a = "" Then Exit Sub
 
'think this would help 
 
strsql = " select * from Product " 
strsql = strsql & " where " 
strsql = strsql & " pcode='" & trim(a) & "'"
 
Set rs = New ADODB.Recordset
rs.CursorLocation = AdUseClient
 
rs.open strsql, cn, AdOpenForwardonly, AdLockReadonly
'exit if no record 
if rs.Recordcount = 0 then exit sub
if rs.Recordcount > 0 Then 
          'display record in textbox
          'hope it helps 
          Text1.text = rs.Fields("pcode") 
          Text2.Text= rs.Fields("brandname") 
          etc....
 
         Set MSHFlexGrid1.DataSource = rs
end if
Command1.Enabled = False
Command2.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Dim a , strsql as string 

'pls check your inputbox forget using it
'idont have any vb6 installed in my pc , now using csharp2005
a = InputBox("Input Product Code :", "Find", "")
If a = "" Then Exit Sub

'think this would help 

strsql = " select * from Product " 
strsql = strsql & " where " 
strsql = strsql & " pcode='" & trim(a) & "'"

Set rs = New ADODB.Recordset
rs.CursorLocation = AdUseClient

rs.open strsql, cn, AdOpenForwardonly, AdLockReadonly
'exit if no record 
if rs.Recordcount = 0 then exit sub
if rs.Recordcount > 0 Then 
          'display record in textbox
          'hope it helps 
          Text1.text = rs.Fields("pcode") 
          Text2.Text= rs.Fields("brandname") 
          etc....
          
         Set MSHFlexGrid1.DataSource = rs
end if
Command1.Enabled = False
Command2.Enabled = False
Command4.Enabled = False
Command5.Enabled = False

Last edited by Ancient Dragon; Jan 5th, 2009 at 3:17 pm. Reason: add code tags

Joel Salvo

Reputation Points: 10

Solved Threads: 1

Newbie Poster

Offline

3 posts
since Mar 2008

Permalink

Jan 1st, 2009

Re: Editing a record!

thanks its work but i have problem in saving a data

Set rs = New ADODB.Recordset
rs.Open "Select * from Product", cn, adOpenKeyset, adLockPessimistic
If Not rs.EOF Then
rs.Fields("pcode").Value = Text1.Text
rs.Fields("brandname").Value = Text2.Text
rs.Fields("genericname").Value = Text3.Text
rs.Fields("price").Value = Text4.Text
rs.Update
End If

i hope you can help me

ryan311

Reputation Points: 3

Solved Threads: 5

Posting Whiz in Training

Offline

254 posts
since Jul 2008

Permalink

Jan 2nd, 2009

Re: Editing a record!

bump

ryan311

Reputation Points: 3

Solved Threads: 5

Posting Whiz in Training

Offline

254 posts
since Jul 2008

Permalink

Jan 2nd, 2009

Re: Editing a record!

I'm a little confused.... you are trying to save data? If so, you wouldn't open a connection to the database with a Select... Select is used to retrieve rows and columns from the database table.... I think you want something like with like
UPDATE table SET field = 'whatever' WHERE column = 'something'

Last edited by Comatose; Jan 2nd, 2009 at 11:16 am.

Comatose

Team Colleague

Reputation Points: 361

Solved Threads: 214

Taboo Programmer

Offline

2,413 posts
since Dec 2004

Permalink

Jan 2nd, 2009

Re: Editing a record!

yes i want to update what he edited from my database record. .

ryan311

Reputation Points: 3

Solved Threads: 5

Posting Whiz in Training

Offline

254 posts
since Jul 2008

Permalink

Jan 2nd, 2009

Re: Editing a record!

Right... So a select statement isn't meant for updating/editing... it's only meant for retrieval. You need the update sql query.

Comatose

Team Colleague

Reputation Points: 361

Solved Threads: 214

Taboo Programmer

Offline

2,413 posts
since Dec 2004

Permalink

Jan 2nd, 2009

Re: Editing a record!

ok i try

ryan311

Reputation Points: 3

Solved Threads: 5

Posting Whiz in Training

Offline

254 posts
since Jul 2008

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Visual Basic 4 / 5 / 6 Forum Timeline: changing the backcolor

Next Thread in Visual Basic 4 / 5 / 6 Forum Timeline: Audio volume control on vb6 form

DaniWeb Message

Cancel Changes

User Name
Password