مطلوب : جملة Insert Edit Delete ADO Rrecored

[alsihran]

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

احتاج جملة اضافة  سجل وحذف سجل وتعديل سجل Insert   Edit  Delete ADO Rrecored

من الاكسس الى سكيول سيرفر 

[عمر ضاحى]

معرفش اذا كانت هذه الاكواد تعمل معك ام لا لكن يمكن ان تجرب

 

 

للاضافة 

 

Dim db As DAO.Database
Dim rst As DAO.Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("TablName", dbOpenDynaset)
With rst
    .AddNew
    ![Name1] = me.txt1
    ![Name2] = me.txt2
    .Update
    .Close
End With
Set rst = Nothing
db.Close
Set db = Nothing

 

للتعديل

 

Dim db As DAO.Database
Dim rst As DAO.Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("TablName", dbOpenDynaset)
With rst
    .FindFirst Criteria:="[ID]="&me.txtID
    If Not .NoMatch Then
        .Edit
        ![Name1] = me.txt1
        ![Name2] = me.txt2
        .Update
    End If
    .Close
End With
Set rst = Nothing
db.Close
Set db = Nothing

 

[alsihran]

12 دقائق مضت, عمر ضاحى said:

معرفش اذا كانت هذه الاكواد تعمل معك ام لا لكن يمكن ان تجرب

الله يعطيك العافية أخ عمر 

لا أخفيك اني لم اتعامل سابقا مع السيرفرات 

الجمل التي وضعتها DAO

وتنقصها جملة الاتصال بالسيرفر 

وانا اطلب Ado

 

[عمر ضاحى]

منذ ساعه, alsihran said:

الله يعطيك العافية أخ عمر 

لا أخفيك اني لم اتعامل سابقا مع السيرفرات 

الجمل التي وضعتها DAO

وتنقصها جملة الاتصال بالسيرفر 

وانا اطلب Ado

 

باعتذر لك عن عدم قدرتى على تقديم المساعده بسبب ضعف قدرتى وعلمي فى هذا الجانب

لك ان تنتظر احد اساتذتى الكرام فى تقديم المساعده لك

[Amr Ashraf]

السلام عليكم ,, مبدأياً يجب اضافة المكتبة الخاصة بالAdo , ثانيا يمكن استخدام الكود التالى للاتصال بالسيرفر

 

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strConnString As String
  
  
strConnString = "Provider=SQLOLEDB;Data Source="اسم السيرفر";" _
                        & "Initial Catalog="اسم قاعدة البيانات";Integrated Security=SSPI;"
        
        Set conn = New ADODB.Connection
        conn.Open strConnString

بالنسبة للاستعلامات يمكن استخدام

 

 Set rs = conn.Execute(" جملة استعلام Sql",conn)

ملاحظة : جملة الاتصال بالسيرفر للاتصالات الآمنة يعنى اذا كان الدخول للسيرفر Mixed او Windows Authentication اما اذا كان الاتصال خارجى يمكن استخدام

 

strConnString = "Provider=SQLOLEDB;Data Source="اسم السيرفر";" _
                        & "Initial Catalog="اسم قاعدة البيانات";Integrated Security= No ; ID = "username"; Password = "Password" "
       

ملاحظة اخرى : لم استخدم الاكسس للاتصال بالSQL من قبل استخدامى للSQL فى لغات .Net لذلك خبرتى هنا محدودة , بالتوفيق

      

 

تم تعديل مايو 1, 2022 بواسطه Amr Ashraf

[alsihran]

29 دقائق مضت, Amr Ashraf said:

السلام عليكم ,, مبدأياً يجب اضافة المكتبة الخاصة بالAdo , ثانيا يمكن استخدام الكود التالى للاتصال بالسيرفر

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

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

ما عليه استحملني شوي لو سمحت 

الفكرة ما وصلتني بشكل كامل 

لو افترضنا ان النموذج يحتوي على الحقزل التالية 

Text_id
Text_Name
Combobox_City

واردنا اضافتهم الى الجدول ويحتوي على الحقول

id
Name
City

كيف سيكون وضعهم في هذه الجملة 

 

36 دقائق مضت, Amr Ashraf said:

 Set rs = conn.Execute(" جملة استعلام Sql")

 

وأين ستوضع الجملة بالكامل في هذا الكود

37 دقائق مضت, Amr Ashraf said:

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strConnString As String
  
  
strConnString = "Provider=SQLOLEDB;Data Source="اسم السيرفر";" _
                        & "Initial Catalog="اسم قاعدة البيانات";Integrated Security=SSPI;"
        
        Set conn = New ADODB.Connection
        conn.Open strConnString

انا وجدت كود في احد المنتديات الاجنبية 

لكن عجزت عن تطبيقة لاني ما فهمته وانا ضعيق في مجال اضافة السجلات وحذفها وتعديلها عن طريق Ado

   Dim Con_Dest As New ADODB.Connection
    Dim Con_Sour As New ADODB.Connection
    Dim Rs_Sour As New ADODB.Recordset
    Dim Rs_Dest As New ADODB.Recordset

    Dim Str_SqlSour As String
    Dim Str_SqlDest As String

    Dim Str_Sql As String

    Con_Sour.Open "dsn=xxxx;uid=xxxx;pwd=xxxxx"
    Con_Dest.Open "dsn=yyyyy;uid=yyyyy;pwd=yyyyyy"

    Str_SqlSour = "select * from Table_Sour"

    Rs_Sour.Open Str_SqlSour, Con_Sour
    Rs_Dest.Open "Table_Dest", Con_Dest, adOpenDynamic, adLockOptimistic

    Rs_Sour.MoveFirst
    Do Until Rs_Sour.EOF

        With Rs_Dest
            .AddNew

            .Fields("AAA").Value = Rs_Sour.Fields("id")
            .Fields("AAB").Value = Rs_Sour.Fields("target_id")
            .Fields("AAC").Value = Rs_Sour.Fields("group_code")
            .....

            .Update
        End With

        Rs_Sour.MoveNext
    Loop

اعتقد هذا الكود لجدولين وانا احتاج الاضافة بجدول واحد لو أمكن تنقيح هذا الكود والتعديل عليه 

 

شاكر ومقدر لك 

[Amr Ashraf]

ماذا عن قوتك فى مجال استعلامات الاكسس العادية ؟ يمكنك عمل استعلام الحاق او حذف او تعديل فى الاكسس ثم نسخ جملة ال sql الخاصة به ووضعها فى المكان الذى كتبته لك . اذا لم تكن تستطيع عمل استعلام بالاكسس انصحك بالبحث عن دروس اولا ثم البحث عن كل ما يخص Recordset فى المنتدى هنا وستجد جميع انواع الاستعلامات طبق عليها ما تعلمته , ثم اخيراً الدخول الى المستوى المتقدم والاتصال بالSql

 

اعذرنى لضيق الوقت وصلاة العيد صباحاً .. كل عام وانتم بخير .. واتمنى لك التوفيق

 

 

 

 

[alsihran]

6 دقائق مضت, Amr Ashraf said:

اعذرنى لضيق الوقت وصلاة العيد صباحاً .. كل عام وانتم بخير .. واتمنى لك التوفيق

شكرا لك استاذ 

[Eng.Qassim]

حسب معطياتك والكود السابق ...يكون الكود بالشكل التالي

بصراحة لم اعمل على السيرفر سابقا ولا يمكنني التاكد

اهم شي كود الاتصال تبعك

Dim Con_Dest As New ADODB.Connection
    Dim Rs_Dest As New ADODB.Recordset

    Dim Str_SqlDest As String

    Dim Str_Sql As String

    Con_Dest.Open "dsn=yyyyy;uid=yyyyy;pwd=yyyyyy"

    Str_SqlDest = "select * from MyTable"

   Rs_Dest.Open Str_SqlDest, Con_Dest

    Rs_Dest.MoveFirst
    Do Until Rs_Dest.EOF

        With Rs_Dest
            .AddNew

            Rs_Dest(0) = Text_id.Value
            Rs_Dest(1) = Text_Name.Value
            Rs_Dest(2) = Combobox_City.Value
            .....

            .Update
        End With

        Rs_Dest.MoveNext
    Loop

 

[alsihran]

9 ساعات مضت, Eng.Qassim said:

حسب معطياتك والكود السابق ...يكون الكود بالشكل التالي

بصراحة لم اعمل على السيرفر سابقا ولا يمكنني التاكد

اهم شي كود الاتصال تبعك

المعذرة منك 

بعد مراجعة الموقع اتضح أن الكود خاص بالاكسل 

شكرا لك 

[Eng.Qassim]

8 ساعات مضت, alsihran said:

عد مراجعة الموقع اتضح أن الكود خاص بالاكسل

كلامك صحيح ..ولهذا غيرت برقم الحقل لانه من الواضح تابع لشيت اكسل

الكثير من الاكواد حسب علمي فيها تشابه بين الاكسل والاكسس