كود الحفظ لايعمل بعد تحويل الجداول الى SQL

اليك هذا الملف لشرح الربط

fsLinkingToSQLServer.pdf

بارك الله فيك وجزاك الله خير اخي الفاضل ابو يوسف

اخي المشكله عندي ماهي في ربط الجداول بالسيرفر

المشكله عندي في الكود اللي في النموذج في رز الامر حفظ

Dim db As Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("TablLogin")
rs.AddNew
rs!AotID = Me.AotID
rs!DateLogin = Me.DateLogin
rs!TimeLogin = Me.TimeLogin
rs!Set = Me.Set
rs.Update
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
MsgBox "لقد تم الحفظ"

هذا الكود كان يعمل معي قبل تحويل الجداول الى اس كيو ال كان يعمل بدون مشاكل

اما لما حولت الجداول الى SQL الكود لايعمل ولايستجيب لما انقر على زر حفظ مايحفظ البيانات في الجدول

هذي هي المشكله عندي

ارجو التعديل هذا الكود

او فيه طريق اخرى تنفع

ارجو ان يكون تعبيري واضح

حفظك الله ورعاك

شكرا لك

اخى العزيز الكود ليس به مشكلة

المشكلة بالربط

فقد اتبع الخطوات بالمرفق حتى تقوم بعمل ربط للجداول و عنها سيعمل معك الكود بكل سلاسة

او اذا كنت لا تريد عمل الربط

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

و لكن يجب ان تعرف المرجع الاتى لديك فى قائمة المراجع

Microsoft ActiveX Data Objects 2.x Library

' **** Create Connection and Recordset Objects ****
Dim cnConn As ADODB.Connection
Dim rs As ADODB.Recordset

' **** Instantiate the new objects ****
Set cnConn = New ADODB.Connection
Set rs = New ADODB.Recordset

' **** Set up connection String    ****
With cnConn
    .Provider = "SQLOLEDB.1"
    .Properties("Data Source").Value = "SQLServerName"
    .Properties("User ID").Value = "UserName"
    .Properties("Password").Value = "Password"
    .Properties("Initial Catalog").Value = "DatabaseName"
    .CursorLocation = adUseClient
    .ConnectionTimeout = 0

    .Open

End With

' **** String to pass to the connection to get records back ****
strSQL = "SELECT * FROM TableName"

' **** Open Records for readonly ****
rs.Open strSQL, cnConn, adOpenStatic, adLockReadOnly



'Do what you need to with the recordset.
rs.AddNew
rs!AotID = Me.AotID
rs!DateLogin = Me.DateLogin
rs!TimeLogin = Me.TimeLogin
rs!Set = Me.Set
rs.Update

'When you are finished with it:


' **** Close Objects ****
rs.Close
cnConn.Close



'If you are completely finished with them:


' **** Destroy objects ****
Set rs = Nothing
Set cnConn = Nothing
MsgBox "تم الحفظ"

بارك الله فيك وجزاك الله خير اخي الفاضل ابا يوسف

الله يعطيك الصحة والعافيه

اخي المعذره ماعرفت كيف استخدم الكود

اذا تكرمت لو تشرحه لي او تضعه في المثال المرفق في المشاركة الاولى

وفقك الله ورعاك

شكرا لك

UP

اليك اخى هذا الرابط

وضعت به شرح مفصل

/index.php?showtopic=231115

الأخ العزيز at_aziz ، هل وصلت إلى حل لمشكلتك ؟ افيدونا بارك الله فيك ...