View previous topic :: View next topic |
Author |
Message |
mistux Site Admin
![](images/avatars/gallery/Miscellaneous/pc_user.gif)
Joined: 25 Jun 2004 Posts: 1042 Location: South Bend, Indiana USA
|
Posted: Fri May 02, 2008 10:34 am Post subject: Modify the ODBC Default Value When Reading Text Files |
|
|
' Modify the ODBC Default Value to Comma-Delimited When Reading Text Files
Const HKEY_LOCAL_MACHINE = &;H80000002
strComputer = "."
Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &; _
strComputer &; "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Jet\4.0\Engines\Text"
strValueName = "Format"
strValue = "CSVDelimited"
objReg.SetStringValue _
HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
Last edited by mistux on Fri May 02, 2008 10:35 am; edited 1 time in total |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
mistux Site Admin
![](images/avatars/gallery/Miscellaneous/pc_user.gif)
Joined: 25 Jun 2004 Posts: 1042 Location: South Bend, Indiana USA
|
Posted: Fri May 02, 2008 10:34 am Post subject: |
|
|
' Modify the ODBC Default Value to Tab-Delimited When Reading Text Files
Const HKEY_LOCAL_MACHINE = &;H80000002
strComputer = "."
Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &; _
strComputer &; "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Jet\4.0\Engines\Text"
strValueName = "Format"
strValue = "TabDelimited"
objReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
|