Login
`
Templates, Tools and Utilities
|
||
Icetips Article
Back to article list
Search Articles
Add Comment
Printer friendly
Direct link
SQL Related Articles: Create a MSDE database from Clarion 2003-01-20 -- Greg Berthume Newsgroups: comp.lang.clarion
I used PowerRUN to execute the following after MSDE is installed:
!Button Code
BEEP(BEEP:SystemExclamation) ; YIELD()
Btn#=MESSAGE('WARNING: MS SQL Server 7 or MSDE must first be running on '&|
' the PC.'&|
'||Do you really want to Create the Database and User Logins?', |
'Create SQL Database and User Logins', ICON:Exclamation, |
BUTTON:Yes+BUTTON:No, BUTTON:Yes, 0)
IF Btn# = BUTTON:Yes
GetServer ! Prompt for Server Name
IF GLO:ServerName
CreateDB
End
End
!CreateDB Procedure's PowerRUN Extension setting
!'c:\mssql7\binn\osql.exe -S' & GLO:ServerName & ' -Usa -P -i qde30.sql'
I embedded the following code to install MSDE:
! Button Code
BEEP(BEEP:SystemQuestion) ; YIELD()
Btn#=MESSAGE('Do you really want to install MSDE?', |
'MS Data Engine Installation', ICON:Question, |
BUTTON:Yes+BUTTON:No, BUTTON:Yes, 0)
IF Btn# = BUTTON:Yes
BEEP(BEEP:SystemAsterisk) ; YIELD()
MESSAGE('A status bar is displayed during part of the installation, but '&|
'the setup will continue for several minutes after the status bar '&|
'is no longer displayed.'&|
'||To verify MSDE has been completely installed, \MSSQL7 should have '&|
'been created, there should be a new group on the Start\Programs menu '&|
'called MSDE and \windows\setup.log should contain a ResultCode setting '&|
'of 0 and a Completed Status of 1 indicating a successfull installation.'&|
'||Please reboot the computer after the installation is complete so '&|
'that the \MSSQL7 folder is added to the PATH.', |
'MS Data Engine Installation Message', ICON:Asterisk)
TIPath=path()
P#=LEN(TIPath)
IF P#>3
IPath=TIPath & '\'
ELSE
IPath=TIPath
End
LOC:MSDECMD = 'msdex86.exe -a -f1 "' & IPath & 'unattend.iss"' ! prefix -s for silent install
RUN(LOC:MSDECMD)
End
Here's some code for "SQL Server Client Connectivity":
BEEP(BEEP:SystemQuestion) ; YIELD()
Btn#=MESSAGE('Do you wish to install silently (no interface) ?', |
'MS SQL Server 7 Client Connectivity Installation', ICON:Question, |
BUTTON:Yes+BUTTON:No+BUTTON:Cancel, BUTTON:Yes, 0)
IF Btn# = BUTTON:Yes
BEEP(BEEP:SystemAsterisk) ; YIELD()
MESSAGE('Please wait while the installation occurs.', |
'MS SQL Client Install', ICON:Asterisk)
SETCURSOR(CURSOR:Wait)
RUN('mdac_typ.exe /q:a /c:"setup.exe /qt"',1)
SETCURSOR()
BEEP(BEEP:SystemAsterisk) ; YIELD()
MESSAGE('Installation Completed!', |
'MS SQL Client Install', ICON:Asterisk)
ELSIF Btn# = BUTTON:No
?Window{PROP:Hide}=True
RUN('mdac_typ.exe')
?Window{PROP:Hide}=False
ELSIF Btn# = BUTTON:Cancel
End
Greg Berthume
Berthume Software
www.berthume.com
Coming Soon: cpTracker 2003 (Software Project Management System)
"KEVIN PLUMMER"
Today is November 21, 2024, 3:30 am This article has been viewed 35240 times. Google search has resulted in 137 hits on this article since January 25, 2004.
|
|