start /stop کردن sql server از طریق برنامه

[m_zi]

سلام
خسته نباشید
من با ویژوال بیسک و sqlserver2000 برنامه می نویسم می خوام از طریق برنامه sql server را start /stop کنم . ممنون میشم راهنماییم کنید .

مرسی

[Touska]

Net Start "SQL SERVICE NAME"
برای مثال :


Net Start Mostafa

OR


Net Stop Mostafa

شما از طریق اجرای دستورات ویندوز می توانید Service مورد نظر خودتونو start نمایید.

موفق باشید :)

[ABERTINO]

آقا اینو کجا باید نوشت من تو یه باتون توی vb6 نوشتم ولی کار نکرد
یه توضیح در موردش بدین که اصلا این دستور از کجا اومده و چطور کار می کنه چون من تو MSDN پیداش نکردم

[Touska]

strFile = "cmd.exe /c Net Start Mostafa"
lngHandle = ShellExecute(frmMain.hWnd, "open", strFile, vbNull, vbNull, SW_HIDE)

[m_zi]

strFile = "cmd.exe /c Net Start Mostafa"
lngHandle = ShellExecute(frmMain.hWnd, "open", strFile, vbNull, vbNull, SW_HIDE)


سلام
خسته نباشید
من دستور فوق را اجرا کردم ولی shellexecute را نمی شناسد.
؟؟؟؟؟؟؟؟؟؟؟؟

[Touska]

یکم از Google هم کمک بگیرید :

http://support.microsoft.com/kb/170918
http://www.imt.net/~joe/matt/program/vb/HOWTOs/ShellExecuteAPI/index.html

موفق باشید :)

[m_zi]

یکم از Google هم کمک بگیرید :

http://support.microsoft.com/kb/170918
http://www.imt.net/~joe/matt/program/vb/HOWTOs/ShellExecuteAPI/index.html

موفق باشید :)

کى من ده مشکلی داره که اجرا نمی شه .

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd _
As Long) As Long

Private Sub Command1_Click()
Dim strfile As String
Dim lngHandle As Long
strfile = "cmd.exe /c Net start MSSQLSERVER"
lngHandle = ShellExecute(Form1.hwnd, "open", strfile, vbNull, vbNull, SW_HIDE)

End Sub