السلام عليكم
اخي هذا مثال بالضبط يعبر عما اريد بالتحديد _ هذا المثال من خلال برنامج vb ويقوم بالإتصال بقاعدة بيانات sql
كنت أريد تطبيق هذا المثال داخل الأكسس ولكن لم أفلح لأني لا أتعامل هنا مع قاعدة بيانات sql ولكن اتعامل مع قاعدة بيانات أكسس
وهو كالتالي :
-----------
dim Connect As Connection
dim RecSet_Common As Recordset
-------------------
Set Connect = New Connection
Connect.Open "driver={Sql server};server=" & X_ServerName & ";uid=" & X_ConnicionUserName & ";;database=" & X_DataBaseName & ""
----------------
Set RecSet_Common = New Recordset
RecSet_Common.Open "SELECT T_ItemsDetails_M.* FROM T_ItemsDetails_M WHERE (ItemsID = " & List_Items & " ) ", Connect_EastAsia, adOpenStatic, adLockOptimistic
---------------
هنا يمكن أن اتعامل مع ناتج جملة SELECT بأي طريقة أريدها
Text_ItemsID = RecSet_Common.Fields("ItemsID")
--------------
__
والمختصر اني اريد ان أجلب مجموعة من البيانات ناتج جملة SELECT وأضعها في Recordset بدون إستخدام form
والتعامل مع هذه البيانات بأي طريقة أريدها من خلال الكود
أتمني ان أكون قد وضحت المطلوب
مع تحياتي