اريد الكود الخاص بالتعرف على SQL server

sorry for writing in English, but the PC That I am writing from it has some problems in Arabic support

You can do the connection function , if SQL services was stopped, the connection operation will fail, and it will return you the error number.

with using the VB6's on error goto

you can know if the service was stopped or running

عزيزي walcom

شكرا لك على المساعده

ولكن احتاج الى كود مع اداة الشرط if لكي اتجنب ضهور شاشة الاخطاء امام المستخدم

فاذا كان السيرفر يعمل يتم الاتصال به واذا كان ساكن اقوم انا بعرض رساله للمستخدم تفيده بما حدث مع بيان الحل .

بإفتراض انك تستعمل الفيجوال بيسك اللغه المحببه لدى المطورين للاتصال مع قواعد البيانات ستجد انه بإمكانك إضافة مرجع لل microsoft SQL DMO ومنها يمكنك ان تولف هذا الكود بما يتناسب معك

Dim myconn As New SQLDMO.SQLServer

هذا تعريف متغير من نوع SQLDMO

للاتصال بقاعدة البيانات من خلال ال DMO إن كنت تستخدم ال WINDOWS AUTHENTICATION فيجب عليك ان تجعل ال LOGINSECURE=TRUE

myconn.LoginSecure = True

الاتصال يتم من خلال الامر CONNECT

myconn.Connect (www), "sa", ""

حيث www هى اسم السيرفر .... يمكنك الاطلاع حول CONNECT من خلال ال MSDN

لمعرفة حالة ال SQL SERVER

Select Case myconn.status
Case 0:
MsgBox ("unknown state")
Case 1:
MsgBox ("server is running")
Case 2:
MsgBox ("server is paused")
Case 3:
MsgBox ("server is stopped")
Case 4:
MsgBox ("server is starting")
Case 5:
MsgBox ("server is stopping")
Case 6:
MsgBox ("server is continuing")
Case 7:
MsgBox ("server is pausing")
End Select

عدل الكود بما يناسبك

الاخ طارق ابراهيم

الف شكر وتقدير سوف اقوم بتشغيل الكود بعد تعديله

تقبل تحياتي واحترامي

بعد إذن أستاذنا طارق ..

هذه طريقة اتصال من داخل مشاريع آكسس adp :

بعد أن تضيف المرجع Microsoft SQLDMO Object Library

وعلى افتراض ان اسم السيرفر ah

Dim rsv As Object
Dim str As String
Dim DataSource As String
str = CurrentProject.BaseConnectionString
If str = "" Then
    DataSource = "(ah)"
Else
    Dim cn As New ADODB.Connection
    cn.ConnectionString = str
    DataSource = cn.Properties("data source")
    Set srv = CreateObject("sqldmo.sqlserver")
    srv.Name = DataSource
        If srv.Status = 1 Then
MsgBox "السيرفر قيد العمل"
Else
MsgBox "السيرفر لا يعمل"
End If

لا تسأذن المهم ان نفيد البعض وانا ارى انك استخدمت ايضاً ال DMO

بالمناسبه فى نسخة ال SQL SERVER 2005 اصبح اسمها SMO