Bonjour à tous,
J'ai un petit soucis de connection de vb6 vers une base de données Foxpro :
en fait la connection se passe bien mais n'est pas "exclusive" malgré ce code :
Public FoxND As New ADODB.Connection
Public srtConnect As String
Public RSFox As New ADODB.Recordset
srtConnect = "Provider=MSDASQL; Driver={Microsoft Visual FoxPro Driver};
Extended Properties=""SourceDB= " & txtPathND.Text & ";SourceType=DBF;
Deleted=Yes; Exclusive=Yes;""; "
FoxND.Mode = adModeReadWrite
FoxND.Open (srtConnect)
RSFox.Open "Select * from b_local", FoxND, adOpenKeyset, adLockOptimistic,
adCmdText
'jusque là tout va bien mais :
Set cmd1 = New ADODB.Command
cmd1.CommandType = adCmdText
cmd1.ActiveConnection = FoxND
cmd1.CommandText = "Set Exclusive On"
cmd1.Execute
cmd1.CommandText = "Alter table b_local add column recnum integer" => refus!
cmd1.Execute
'là il rouspète et me dit que la connection n'est pas exclusive! Or, dans le
strConnect, je précise bien "Exclusive=yes".
Quelqu'un pourrait-il m'aider? Comme vous avez sans doute pu le constater, je
suis novice en vb6 et encore plus en bd Foxpro.
Merci à tous,
Syb.