جلب القيم من الجداول أو الاستعلامات فى sql server

[ابو فتحى]

اعضاء المنتدى 

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

هل جلب القيم من الجداول أو الاستعلامات فى sql server غير اكسيس

هى 

'Y = DLookup("[userpasword]", "users", "[username] = [txtname]")

يتم رفض هذا الكود فى sql server

تم تعديل يناير 5, 2022 بواسطه jjafferr
عند وضع كود في المشاركة، وحتى يظهر تنسيق الكود بالطريقة الصحيحة، يرجى: إستخدام زر القائمة <> ووضع الكود في النافذة المنبثقة

[ابو فتحى]

up

[محب العقيدة]

لا تغيير لكن ارى العبارة التي كتبتها ناقصة.

ثم هل يعطيك رسالة خطا ؟

[ابو فتحى]

اخى العزيز محب 

اولا شكرا على الرد و الاهتمام 

ثانيا : هذا الكود يعمل بشكل صحيح فى الاكسيس ام sql لا يعمل 

ثالثا : هل يوجد كود تانى يعمل مع sql لجلب بيانات من الجدوال الى مربع نص غير منضم 

[محب العقيدة]

منذ ساعه, ابو فتحى said:

اخى العزيز محب 

اولا شكرا على الرد و الاهتمام 

ثانيا : هذا الكود يعمل بشكل صحيح فى الاكسيس ام sql لا يعمل 

ثالثا : هل يوجد كود تانى يعمل مع sql لجلب بيانات من الجدوال الى مربع نص غير منضم 

يجب مراعاة & ' ما اذا كان الشرط حقل اليوزر نيم نصي او رقمي او تاريخ افتح جوجل وانظر الى الاشكال الثلاث للشروط لصيغة 

Dlookup

 

[ابو جودي]

ومساهمة منى مع اخوانى الكرام

فى الكود المرفق الاشكال الثلاث للشروط لصيغة  Dlookup ,  DCount

Dim myWhere As String
myWhere = "[FirstName] ='" & [txtFirstName] & "'"
myWhere = myWhere & " And"
myWhere = myWhere & "[LastName] ='" & [txtLastName] & "'"
myWhere = myWhere & " And"
myWhere = myWhere & "[DateOfBirth] =#" & Format([txtDateOfBirth], "dd/mm/yyyy") & "#"
myWhere = myWhere & " And"
myWhere = myWhere & "[SIR]= " & [ChckSIR]
Debug.Print myWhere

Me.txtCount = DCount("*", "[tblTestCount]", myWhere)

وهذا تفصيلها

نستخدم ذلك مع الارقام'
stLinkCriteria = "[PersonalNumber]=" & Me.PersonalNumber

نستخدم ذلك مع النصوص'
stLinkCriteria = "[PersonalName] ='" & [txtLastName] & "'"

نستخدم ذلك مع التواريخ'
stLinkCriteria ="[DateOfBirth] =#" & [txtDateOfBirth] & "#"

 

[ابو فتحى]

اخى العزيز ابو جودى 

انت استاذ بسم الله ما شاء الله 

و انا مبتدى بعد اذنك ممكن شرح هذا الكود 

و فين اسم الحقل و اسم الجدول 

[ابو جودي]

انا اقل طويلب علم 

واليكم الشرح داخل الكود الذى يخص مشاركتكم

'Y = DLookup("[userpasword]", "users", "[username] = [txtname]")

نستخدم ذلك مع الارقام'
Dim stLinkCriteria As Integer
stLinkCriteria = "[username]=" & Me.txtname

نستخدم ذلك مع النصوص'
Dim stLinkCriteria As String
stLinkCriteria = "[username] ='" & Me.txtname & "'"

نستخدم ذلك مع التواريخ'
Dim stLinkCriteria As Date
stLinkCriteria ="[username] =#" & Me.txtname & "#"

y = DCount([userpasword], "[users]", stLinkCriteria)

 

تم تعديل يناير 6, 2022 بواسطه ابو جودي

[ابو جودي]

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

'نستخدم ذلك مع النصوص
'لو حقل الـ "username"
'فى الجدول من النوع نص استخدم الكود بالشكل الاتى
y = DLookup([userpasword], "users", "[username]='" & Me.[txtname] & "'")

'نستخدم ذلك مع الارقام
'لو حقل الـ "username"
'فى الجدول من النوع رقم استخدم الكود بالشكل الاتى
y = DLookup([userpasword], "users", "[username]=" & Me.[txtname])

'نستخدم ذلك مع الوقت والتاريخ
'لو حقل الـ "username"
'فى الجدول من النوع تاريخ استخدم الكود بالشكل الاتى
y = DLookup([userpasword], "users", "[username] =#" & Me.[txtname] & "#")

 

[ابو فتحى]

سؤال بسيط هذا الكود يغمل بشكل صحيح مع sql server ام مع الاكسيس فقط 

زادك الله علما

[ابو جودي]

3 ساعات مضت, ابو فتحى said:

سؤال بسيط هذا الكود يغمل بشكل صحيح مع sql server ام مع الاكسيس فقط 

زادك الله علما

طالما ان التعامل مع الـ SQL server  احيلك الى الموضوع التالى 

 

2-

https://www.generacodice.com/en/articolo/127163/الهروب-في-SQL-الوصول