Login
Templates, Tools and Utilities
for Clarion Developers
Templates, Tools and Utilities
|
||
|
|
|
Add a comment to an Icetips ArticlePlease add your comments to this article.
Please note that you must provide both a name and a valid email address in order
for us to publish your comment. Comments are moderated and are not visible until they have been approved. Spam is never approved!
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 January 30, 2025, 5:09 am This article has been viewed 35276 times. Google search has resulted in 137 hits on this article since January 25, 2004.
|
|