كود اضافة - تعديل - حذف sql server

[ابو فتحى]

السلام عليكم و رحمه وبركاته 

كل عام و انتم بخير ( رمضان كريم )

ممكن كود اضافة - تعديل - حذف  الى قاعدة بيانات sql server على موقع somee

بدون ربط بيانات ( استيراد جدوال من الموقع الى اكسيس ) بكود مباشر الى قاعدة بيانات الموقع 

 

[د.كاف يار]

تفضل هذا الكود 

Sub RunQurey()
    Dim conn As ADODB.Connection, rs As ADODB.Recordset, Sql As String
    Dim strConnString As String, ServerAddress As String, ServerUserName As String, ServerPassword As String
        '============================= معلومات الدخول للسيرفر =======================
        ServerAddress = "xxxx.mssql.somee.com"
        ServerUserName = ""
        ServerPassword = ""
        '============================= الاتصال بالسيرفر =======================
        strConnString = "Provider=SQLOLEDB;Data Source=" & ServerAddress & _
        ";Persist Security Info=True;User ID=" & ServerUserName & ";Password=" & ServerPassword
        Set conn = New ADODB.Connection
        conn.Open strConnString
        '============================= تنفيذ جملة الاستعلام الحذف او الاضافة او التحديث  =======================
        Sql = "" ' ضع هنا جملة الاستعلام
        Set rs = conn.Execute(Sql)
        rs.Close
        Set rs = Nothing
End Sub

 

[ابو فتحى]

اخى العزيز د.كاف يار

السلام عليكم و رحمه الله و بركاته 

و كل عام و انت بخير 

ممكن مثل لاستعلام اضافة او حذف ام تعديل 

و هل الاستعلام اسرع من الاكواد الاضافة او التعديل او الحذف 

انا اسفى اعذر جهلى

[د.كاف يار]

تفضل هذا المثال

 

DataForServer.zip