Hi Centin,

Appreciate your help.

How can you enforce a record lock from within VB on a Visual Foxpro table that both a Visual Basic & Visual Foxpro Application will understand. Can we do this via a common stored procedure on the Database ?

Visual Foxpro app seems to dictate over others since it's native.... we need to have something that will inform Visual Foxpro App that a record in a disconnected recordset (VB Side) is being edited.



thanks,

Don







>>Hey Cetin,
>>
>>No offence intended. I was only making sure I wasn't stepping on any toes. What I need is to see some examples (lot's I hope) so I can immerse myself in this stuff and get up to speed... so I hope you can direct me to some examples of ADO access on VFP data from Visual Basic 6.
>>
>>To be more specific I'm just trying to update a single table's field and I keep getting an error -2147217842 everytime I call the update method on bound text fields. I tried optimistic/pessimistic client & server cursors and it keeps failing..... kinda feel like an idiot.
>>
>>Appreciate any help.
>>
>>
>>thanks,
>>
>>Don
>
>Don,
>I'd say check version - KB: Q257790
>Here is a code sample (with my perfect VB < vbg > ):
>

>Private Sub Command1_Click()
>    Const ForReading = 1, ForWriting = 2, ForAppending = 3
>    Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
>Dim oCon As New ADODB.Connection
>Dim oRS As New ADODB.Recordset
>Dim oCommand As New ADODB.Command
>Dim oParm As ADODB.Parameter
>Dim myMemo As Variant
>Dim fs, f
>Set fs = CreateObject("Scripting.FileSystemObject")
>Set f = fs.OpenTextFile("c:\temp\sometext.txt", 1, 0)
>myMemo = f.ReadAll
>f.Close
>
>oCon.ConnectionString = "Provider=VFPOLEDB;Data Source=d:\cetin\ddrive\temp\testdata.dbc"
>
>' Alternative one at a time
>'oCommand.CommandText = "insert into employee (emp_id,first_name,last_name,birth_date,notes)" & _
>'  " values ('test3','First3','Last3',{^1961/1/19},?)"
>'oCommand.CommandType = adCmdText
>'Set oParm = oCommand.CreateParameter("Notes", adVarChar, adParamInput, Len(myMemo), myMemo)
>'oCommand.Parameters.Append oParm
>'oCon.Open
>'oCon.Execute ("set null off")
>'oCommand.ActiveConnection = oCon
>'oCommand.Execute
>'oCon.Close
>
>oCon.Mode = adModeShareDenyNone
>oCon.Open
>oCon.CursorLocation = adUseClient
>oCon.Execute ("set null off")
>oRS.Open "employee", oCon, adOpenKeyset, adLockBatchOptimistic, adCmdTable
>oRS.AddNew
>oRS.Fields("emp_id").Value = "test1"
>oRS.Fields("First_Name").Value = "First1"
>oRS.Fields("Last_Name").Value = "Last1"
>oRS.Fields("hire_date").Value = #1/13/2004#
>oRS.AddNew
>oRS.Fields("emp_id").Value = "test2"
>oRS.Fields("First_Name").Value = "First2"
>oRS.Fields("Last_Name").Value = "Last2"
>oRS.Fields("hire_date").Value = #2/29/2000#
>oRS.Fields("Notes").Value = myMemo
>oRS.UpdateBatch
>oRS.Close
>oCon.Close
>
>End Sub
>

Cetin