mostafaalizadeh
یک شنبه 30 اردیبهشت 1386, 00:03 صبح
PROCEDURE AddVfpODBC
LPARAMETERS lhkey
k = "HKEY_CURRENT_USER\SOFTWARE\ODBC\ODBC.INI\"+lhkey+"\"
dsscom.writeregistry( k ,"Driver","C:\Windows\System32\vfpodbc.dll")
dsscom.writeregistry( k ,"SourceDB","c:\tempdata")
dsscom.writeregistry( k ,"Description","")
dsscom.writeregistry( k ,"SourceType","DBF")
dsscom.writeregistry( k ,"BackgroundFetch","Yes")
dsscom.writeregistry( k ,"Exclusive","No")
dsscom.writeregistry( k ,"Null","Yes")
dsscom.writeregistry( k ,"Deleted","Yes")
dsscom.writeregistry( k ,"Collate","Machine")
dsscom.writeregistry( k ,"SetNoCountOn","No")
ENDPROC
LPARAMETERS lhkey
k = "HKEY_CURRENT_USER\SOFTWARE\ODBC\ODBC.INI\"+lhkey+"\"
dsscom.writeregistry( k ,"Driver","C:\Windows\System32\vfpodbc.dll")
dsscom.writeregistry( k ,"SourceDB","c:\tempdata")
dsscom.writeregistry( k ,"Description","")
dsscom.writeregistry( k ,"SourceType","DBF")
dsscom.writeregistry( k ,"BackgroundFetch","Yes")
dsscom.writeregistry( k ,"Exclusive","No")
dsscom.writeregistry( k ,"Null","Yes")
dsscom.writeregistry( k ,"Deleted","Yes")
dsscom.writeregistry( k ,"Collate","Machine")
dsscom.writeregistry( k ,"SetNoCountOn","No")
ENDPROC