vb application to oracle connection

[shreshta]

this is the code i wrote for my application to retrieve values,delete values,update values and insert values...

i am havin doubt in delete and retrieve snippets whether it works right. and deletion should ask for the primarykey which is traderid over here and on getting it,it retrieves all details for the particular user and deletes it. i couldnt check out right now as i dont have connection.

'adodc control

Private Sub Adodc1_WillMove (ByVal adReason As ADODB.EventReas onEnum, adStatus As ADODB.EventStat usEnum, ByVal pRecordset As ADODB.Recordset )

End Sub

'reset all values/clear the values

Private Sub Command9_Click( )

firstname.Text = ""
middlename.Text = ""
lastname.Text = ""
sex.Text = ""
city.Text = ""
state.Text = ""
country.Text = ""
mailid.Text = ""
userid.Text = ""
password.Text = ""
traderid.Text = ""

End Sub


'retrieve contents
Private Sub Command1_Click( )

Dim sql As String
sql = "select * from trader;"
'specify format of SQL result and assisgn to ADODC
Adodc1.CommandT ype = adCmdText
Adodc1.RecordSo urce = sql
Adodc1.Refresh

End Sub


'insert records

Private Sub Command3_Click( )

Adodc1.Recordse t.AddNew

Adodc1.Recordse t.Fields("first name") = firstname.Text
Adodc1.Recordse t.Fields("middl ename") = middlename.Text
Adodc1.Recordse t.Fields("lastn ame") = lastname.Text
Adodc1.Recordse t.Fields("sex") = sex.Text
Adodc1.Recordse t.Fields("city" ) = city.Text
Adodc1.Recordse t.Fields("state ") = state.Text
Adodc1.Recordse t.Fields("count ry") = country.Text
Adodc1.Recordse t.Fields("maili d") = mailid.Text
Adodc1.Recordse t.Fields("useri d") = userid.Text
Adodc1.Recordse t.Fields("passw ord") = password.Text
Adodc1.Recordse t.Fields("trade rid") = traderid.Text

Adodc1.Recordse t.Update

MsgBox "Data inserted and updated"
End Sub

'delete records by retriving the details using traderid details and deleting.

sql = "select firstname,middl ename,lastname, sex,city,state, country,mailid, panno,userid,pa ssword,traderid from trader where traderid=&trade rid;"
If Adodc1.Recordse t.EditMode = adEditDel Then
If MsgBox("Do you really want to delete ?", vbYesNo) = vbYes Then
Adodc.Recordset .Delete
End If
End If
Unload Me

End Sub

[KevinADC]

Wrong forum, hopefully a moderator will move your thread shortly.

[shreshta]

Wrong forum, hopefully a moderator will move your thread shortly.

hello mr.kevin, i asked whether anyone cud help me out in viewing the records and also deletion and updation..i asked to verify and help me out not tell anythin like your thread will be moved. please help me out people

[hariharanmca]

Invert this code

firstname.Text = Adodc1.Recordset.Fields("firstname") 
middlename.Text = Adodc1.Recordset.Fields("middlename") 
lastname.Text = Adodc1.Recordset.Fields("lastname") 
--------------------
-------------
---------
--

use four command button and write code for
Move Next
Move Previous
Move First
Move Last

Now, by clicking the commands you can view record in text box

To delete

ADODC1.RecordSe t.Delete (which is the text boxes)

Adodc1.Recordset.Edit
 
Adodc1.Recordset.Fields("firstname") = firstname.Text
Adodc1.Recordset.Fields("middlename") = middlename.Text
Adodc1.Recordset.Fields("lastname") = lastname.Text
Adodc1.Recordset.Fields("sex") = sex.Text
Adodc1.Recordset.Fields("city") = city.Text
Adodc1.Recordset.Fields("state") = state.Text
Adodc1.Recordset.Fields("country") = country.Text
Adodc1.Recordset.Fields("mailid") = mailid.Text
Adodc1.Recordset.Fields("userid") = userid.Text
Adodc1.Recordset.Fields("password") = password.Text
Adodc1.Recordset.Fields("traderid") = traderid.Text
 
Adodc1.Recordset.Update

This is the concept. Try your best.

[QVeen72]

Hi,

After reading the TradeID, u have to find it in the ADODC, if found, then Delete, and then Refresh.. Something like this :

 ADODC1.RecordSet.MoveFirst
 ADODC1.RecordSet.Find "tradeID=" & TradeID
 If Not ADODC1.RecordSet.EOF Then
   ADODC1.RecordSet.Delete
   ADODC1.RecordSet.Refresh
  ADODC1.RecordSet.MoveFirst
 Else
   Msgbox "Trade ID Not Found"
 End If
 

REgards
Veena