Dim strProvider As String Dim strDataBaseName As String Dim strConnectionString As String strProvider = "Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;" strDataBaseName = "SourceDB=" & oAppPathToData & "\" & oAppDataBaseName strConnectionString = strProvider & strDataBaseName & ";" & "Exclusive = No;" If Len(Dir(oAppPathToData & "\" & oAppDataBaseName)) <> 0 Then Set DB = New ADODB.Connection DB.Open strConnectionString DB.CursorLocation = adUseServer If DB.State = adStateOpen Then openDB = True Else openDB = False End If Else openDB = False End Ifthis is the function we use to get a recordset
Public Function getRSRW(rsGetName As ADODB.Recordset, strSQL As String) As ADODB.Recordset Set rsGetName = New ADODB.Recordset rsGetName.Open strSQL, DB, adOpenStatic, adLockOptimistic, adCmdText Set getRSRW = rsGetName End Functionwe pass it this..
Call getRSRW(rsDelete, "select * from youthgroups where yg_primary = " & intDelete)and the update occurs here
rsContacts.Updateand the delete error occurrs here...
rsDelete.DeleteAny ideas greatly appreciated - we are desparate!!!