اذهب الي المحتوي
أوفيسنا

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


alsihran

الردود الموصى بها

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

 

 

للاضافة 

 



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

 

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

وانا اطلب Ado

 

رابط هذا التعليق
شارك

منذ ساعه, alsihran said:

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

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

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

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

وانا اطلب Ado

 

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

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

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم ,, مبدأياً يجب اضافة المكتبة الخاصة بال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 لذلك خبرتى هنا محدودة , بالتوفيق

      

 

تم تعديل بواسطه Amr Ashraf
  • Like 1
رابط هذا التعليق
شارك

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

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

 

شاكر ومقدر لك 

رابط هذا التعليق
شارك

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

 

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

 

 

 

 

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

 

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

المعذرة منك 

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

شكرا لك 

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information